• Los parámetros necesarios a mandar a la web.
• El código de repuesta de la pagina, para poder tomar decisiones.
• Los datos que nos envían la pagina, como Cookies.

#!/usr/bin/perl -w

use strict;

#Modulos necesarios
use LWP::UserAgent;
use HTTP::Request::Common;

my $url_login = 'http://127.0.0.1/pruebas/login.php';

my $usuario  = $ARGV[0];

my $password = $ARGV[1];

my $ua = new LWP::UserAgent;
$ua->agent("Mozilla/5.0 (X11; U; Linux i686; en-US) AppleWebKit/534.16 (KHTML, like Gecko) Chrome/10.0.648.133 Safari/534.16");

my $response = $ua->request(
POST $url_login, #Realizo la peticion POST
{
usuario => $usuario,#Le asigno el valor de la variable $usuario a la query usuario
password => $password,#Le asigno el valor de la variable $password a la query password
});


#Verificos que los datos ingresados sean correcto
#para esto verifico que en el codigo de repuesta
#sea 302

if($response->status_line =~ /302/)
{
print "Datos correctosn";
print "Cookie mandada por el servidor -> ".$response->header('set-cookie')."n";
exit;#Finalizo el script
}

#Si ah llegado hasta aqui, es porque los datos no son verdaderos

<?php

$url_login = 'http://127.0.0.1/pruebas/login.php';
$usuario  = 'yoya';//Usuario
$password = 'admin';//Password

$ch = curl_init();
curl_setopt($ch, CURLOPT_USERAGENT, 'Mozilla/5.0 (X11; U; Linux i686; en-US) AppleWebKit/534.16 (KHTML, like Gecko) Chrome/10.0.648.133 Safari/534.16');
curl_setopt($ch, CURLOPT_URL, $url_login);
curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1);
curl_setopt ($ch, CURLOPT_POST, true);
curl_setopt($ch,CURLOPT_HEADER,true);

/*
Le asigno el valor de la variable $usuario a la query usuario
Le asigno el valor de la variable $password a la query password
*/
curl_setopt ($ch, CURLOPT_POSTFIELDS, "usuario=".$usuario."&"."password=".$password);
$result = curl_exec($ch);


/*Verificos que los datos ingresados sean correcto
para esto verifico que en el codigo de repuesta
sea 302*/

if(curl_getinfo($ch, CURLINFO_HTTP_CODE) == "302")
{
preg_match("/Set-Cookie:s*([w=]+)[s;n]*/i", $result, $cookie_valor);

echo "Datos correctos<br>";
echo "Cookie mandada por el servidor -> ".$cookie_valor[1]."<br>";
exit;
}

echo "Datos introducidos incorrecto<br>";
exit;

?>

<?php
session_start();

if(!empty($_POST['usuario']) && !empty($_POST['password']))
{
 $usuario  = $_POST['usuario'];
 $password = $_POST['password'];

 if($usuario == 'yoya' && $password == 'admin')
 {
    $_SESSION['conectado'] = 1;
    header('Location: index.php');
 }

}

?>

<p><h1>Ingresar</h1></p>

<form name="login" method="POST" action="login.php">
<p>Usuario:<br><input type="text" name="usuario"></p>

<p>Password:<br><input type="password" name="password"></p>

<p><input type="submit" value="Enviar"></p>

</form>

<?php

function saludo($str = null)//Funcion saludo
{//Inicio

 if(empty($str))//Si la variable $str esta vacia entonce
 {
    throw new Exception('Ingresar un parametro');//Lanzamos la excepción

 }//Fin del if

 elseif(is_int($str))//Si la variable $str contiene solo numeros enteros
 {                   //Entonces ....
 throw new Exception('No se permite numeros enteros');
 }//Fin del elseif

 else{ //Sino
 return $str;
 }//Fin del else
}//Fin de la funcion


try{
 saludo("Hola mundo\n");
 saludo(2);

} catch (Exception $e) {
 echo $e->getMessage();//Mostramo el mensaje de la excepcion
 print_r($e);
}
?>

Hola mundo
Exception Object
(
   [message:protected] => No se permite numeros enteros
   [string:Exception:private] =>
   [code:protected] => 0
   [file:protected] => /var/www/html/pruebas.php
   [line:protected] => 14
   [trace:Exception:private] => Array
       (
           [0] => Array
               (
                   [file] => /var/www/html/pruebas.php
                   [line] => 25
                   [function] => saludo
                   [args] => Array
                       (
                           [0] => 2
                       )

               )

       )

   [previous:Exception:private] =>
)