Foro - Perl en Español

¿Cómo podría pasar un hash como parámetro a una función? Usaría algo como esto pero es correcto

&procedimiento ($valor1,%hash);

¿Será que sí?

sub procedimiento(
@valores = _@;
);

¿no es como raro eso, pero será que es posible?

Saludos..

Tengo una tabla en postgres que tiene algunas llaves restrictivas para los datos.
Al tratar de insertar algún dato no válido desde Perl, alguna de las llaves le impedirá hacerlo.
Pero quisiera almacenar el mensaje de error que devuelve Perl en una tabla de "errores", ¿¿¿cómo puedo hacer esto???
Hasta el momento uso el unless pero necesito saber cuál fue el mensaje de error enviado al fracasar la primera sentencia del unless.

Gracias y ...

Estoy implementando la seguridad en una aplicacion que desarrolle, utilizo sesiones (Apache-Session) combinado con una tabla de MySQL y aparte uso los metodos de encriptacion Digest::MD5 y Crypt::Blowfish. cada vez que envio un http:request con la sesion ID .

Mi ignorancia en este tema de seguridad me lleva hacer esta pregunta:

1. Si copio la sesion ID de la barra de direcciones del explorador , abro en mi PC otra ventana y pego la dirección ...

Oye Uriel,,

Como hago para publicar mis tutoriales, son basicos, pero te aseguro que tiene lo que buscan los que se inician en Perl, ya que muchas de las personas corren al ver lo complicado que se vuelve jeejje ^^ y te lo digo por experiencia,

Bueno la idea, es colaborar con el sitio, ahora que he avanzado bastante en Perl,

Hola

hice esto en Perl::

use DBI;
use Oraperl;
$ENV{"ORACLE_HOME"} = "/opt/oracle/product/9.2.0";

$dbh = DBI-> connect("dbi:Oracle:host=algunhost;sid=algunSID", "esquema", "secreto");
DBI-> errstr;

my $ipuser =$ENV{"REMOTE_ADDR"};

$user_exists = "select ip from hit_cri where ip = '$ipuser'";
$sth = $dbh->prepare($user_exists);
$rv = $sth->execute;
my $userip = $sth->fetchrow_array;
$sth->finish;
if ($userip = $ipuser) {
$value = "select main from hit_cri where ip = '$ipuser'";
$stha = $dbh->prepare($value);
$rva = $stha->execute;
my $value_keep = $stha->fetchrow_array();
$stha->finish;

$increase = "update hit_cri set ...

Agradeceria si me pudiesen indicar si debo hacer un tratamiento especial cuando utilizo una vista en vez de un Tabla.

He creado una vista, la ejecuto y me da correctamente, pero cuando ejecuto el script que la contiene no se ejecuta la misma. Estoy usando el modulo DBI.

my $ref = $dbh->selectall_arrayref
("SELECT u.codusu, u.nombre, u.codcat, u.nivel, m.des_breve, m.id_modcobro " .
" FROM usuario u , modalidad_cobro m " .
" WHERE u.id_modcobro = m.id_modcobro ...

Hola,

He estado mirando los tutoriales y me han gustado mucho. He estado mirando especialmente el de AJAX. Estoy viendo la posibilidad de crear un script de upload de ficheros pero añadiendo funciones AJAX para ver una barra de porcentaje del fichero enviado.

No estaría mal preparar algún tutorial sobre esto.

Saludos,

Javier

¡¡Hola a todos!!

Mi problema es que deseo ejecutar un CGI desde un usuario, que debe eliminar, borrar o listar, en carpetas de otros usuarios...

He intentado darle esas propiedades a traves del sudo pero no he tenido resultados y tengo igual error 500, he intentado ejecutarlo en la carpeta del usuario con el archivo de nombre de root pero recibo también error 500.

Alguien tiene alguna sugerencia... ...

Hola a todos:

La verdad es que he aprendido mucho de perl con uds... sin embargo tengo el siguiente problema:

Necesito separar unos patrones en diferentes palabras, las cuales se encuentran escritas en una misma línea. Gracias a su ayuda puedo descomponer las palabras en los patrones, sin embargo necesito que aparezcan en el orden que vienen en la entrada. Ademas, las palabras que no sigan un patron deben imprimirse en la salida tal ...

Hola gente....

...se tendrian que comunicar los clientes con un solo servidor. Este mismo servidor tendria que responderles en terminales diferentes, como un chat privado con el cliente. :?:

Si alguien me ayuda le agradeceria mucho... desde ya muchas gracias!!! :D

Salu2