Foro - Perl en Español

Hola. Al momento de utilizar mkdir para crear un directorio me manda el mensaje de:

Permission denied

Sucede lo siguiente:

Creo una variable donde el directorio var/www/html/public_html/directorios/$inst/ existe. De manera dinámica creo el directorio con las variables $anio-$mes-$dia de acuerdo a una fecha seleccionada desde el HTML.

Así creo una variable $upload_dir con la siguiente ruta:
my $upload_dir = "/var/www/html/public_html/directorios/$inst/$anio-$mes-$dia";

Asigno los permisos 775 al directorio creado:
mkdir $upload_dir, 0775;

Lo anterior crea el ...

Esto es la continuación del proyecto anterior: http://perlenespanol.com/foro/problemas-con-pdf-reporter-y-barcode-t8948.html
El hilo anterior está resuelto, esto es una continuación.

Lo que necesito realizar es: luego de generar el pdf (enviando la cabecera), debería eliminar de la base de datos las credenciales generadas, y recargar la página HTML.

El script funciona hasta la eliminación inclusive, pero no sé cómo realizar que la página web se recargue.

Sospecho que no se puede realizar.

Dejo el final del código de ...

Hola. Para subir (guardar) varios archivos, ¿cuál es la sentencia correcta? Inicié subiendo un solo archivo de la siguiente manera:

#---Recibo el nombre del archivo a guardar
my $filename = $query->param('tipo_reporte');

my $upload_filehandle = $query->upload("tipo_reporte");

open ( UPLOADFILE, ">$upload_dir/$filename" ) or die "$!";
binmode UPLOADFILE;

while ( <$upload_filehandle> )
{
print UPLOADFILE;
}

close UPLOADFILE;


La pregunta es: ¿para subir múltiples archivos, la manera de hacerlo es por medio de un ciclo foreach()? ¿O existe ...

Hola, estoy desarrollando un complemento para un sistema web de una biblioteca.

Básicamente lo que hace el sistema es generar un archivo pdf con unos carné de lectores, el cual debe incluir un código de barras por cada uno.

Cuando inserto el texto, y dibujo las líneas delimitadoras, e incluso agrego el logotipo de la biblioteca, el archivo pdf se genera y abre sin inconvenientes.

Pero cuando agrego el código de barras, al intentar abrir ...

Hola a todos. Necesito ayuda para saber si haciendo uso del lenguaje Perl es posible leer/interpretar el contenido de un documento Word de Office. He realizado algunas búsquedas por la web y en "http://search.cpan.org/", pero hasta el momento no he encontrado nada sobre el asunto, al tanto de sugerencias.

Gracias de antemano.

Hola a todos.

Tengo problemas con la siguiente sentencia:
print "Ejecutando el comando: snmpwalk -v 2c -c localpublic $IPDEVICE\n";

#$salidaComando=system("snmpwalk -v 2c -c localpublic $IPDEVICE | head -5");
#$salidaComando=`snmpwalk -v 2c -c localpublic $IPDEVICE | head -5 2>&1`; ##### Si uso este se queda procesando...
#print `snmpwalk -v 2c -c localpublic $IPDEVICE | head -5`;
#print "Salida: $salidaComando\n";
system "snmpwalk -v 2c -c localpublic $IPDEVICE | head -5";
print $?;
print $? >> 8; ...

Buenas tardes, amigos perlianos.

Mi duda es acerca de esta estructura en XML:
<data>
<meta>
<sender type="IMEI">400234062240570</sender>
<receiver type="E-mail Account">[email protected]</receiver>
<time>2015-01-10T19:52:06Z</time>
<protocol>SBD</protocol>
<type>NAL GPS Report 6</type>
</meta>
</data>

Tengo una parte de mi código en Perl que es el siguiente:
print xml join q{|},
$datos->{meta}{sender}{type},
$datos->{meta}{receiver}{type},
$datos->{meta}{time},
$datos->{meta}{protocol},
$datos->{meta}{type};
print xml "\n";
El cual me da los siguientes datos:

IMEI|E-mail Account|2015-01-10T19:52:06Z|SBD|NAL GPS Report 6

Los datos que no puedo obtener son: 400234062240570 y ...

Hola,

Necesitaría acceder a una página con certificado.

Intento hacer algo parecido a esto pero me salta error 500... He probado varias cosas pero no he podido acceder y descargarme el código.

$url_concurso ='https://contrataciondelestado.es/wps/poc?uri=deeplink:detalle_licitacion&idEvl=SEzG1KS99dkQK2TEfXGy%2BA%3D%3D';
my $mech = WWW::Mechanize->new( autocheck => 0);
$mech->agent_alias('Windows IE 6');
$mech->get($url_concurso);
my $html_concurso = $mech->content;
print $html_concurso;

Hola, soy un estudiante y en este momento me encuentro con un problema que hace mucho no puedo solucionar el cual es que he intentado con todos los módulos para enviar adjuntos en correos desde un script hacia el SMTP de mis correos, ya sea Gmail o Hotmail, pero el asunto es que no logro conectarme al servidor :evil: El script lo estoy haciendo ...

Cordiales saludos perleros.

Tengo problemas para capturar la salida que se genera después de cada comando, a continuación relaciono parte del script que estoy usando:


@conn1 = conectar_telnet_cisco( $IPDEVICE, $userbackups, $passbackups );
if ( ( $conn1 ) ) {
$mensajeerror .= "Equipo=$DEVICE, IP=$IPDEVICE, INTERFACE=$INTERFACE, ERROR=$conn1\n<br>";
$conteoerrores++;
}
else {
@out = $conn1->cmd("configure terminal\n");
@out = $conn1->cmd("interface $INTERFACE\n");
@out = $conn1->cmd("shutdown\n");
@out = $conn1->cmd("exit\n");
@out = $conn1->cmd("exit\n");
sleep(10);
@out = $conn1->cmd("write memory\n");
sleep(10);

$comando ...