Foro - Perl en Español

Buenos días,

Soy un poco bastante ignorante en esto de Perl, y el caso es que me ha llegado un problema que tengo que solucionar y creo que está relacionado con versiones Perl.

El problema es el siguiente, tengo una máquina Solaris 8; cuando intento ejecutar el script kstat me aparecen los siguientes errores:

Use of reserved word "our" is deprecated at /opt/ixos/opt/perl/lib/sun4-solaris/POSIX.pm line 3.
Can't modify subroutine entry in scalar assignment at /opt/ixos/opt/perl/lib/sun4-solaris/POSIX.pm line ...

Hi!

Mi duda es muuuuuuy básica.

No sé usar chdir() para hacer estas cosas:

Code: Seleccionar todo

C:\Documents and Settings\??\Cookies

C:\Documents and Settings\??\Configuración local\Archivos temporales de Internet

El problema radica en que quiero que se meta en esas carpetas sin conocer el nombre de usuario.

Por ejemplo, en batch sería usando %username% pero en Perl, no sé...

Buenas a todos.

Estoy con un programa Perl que una de sus tareas es ejecutar un programa Perl que se encuentra en otra máquina. Para ello he probado los siguientes comandos:

print "Executing = \n";
my $rsh_result = `rsh -n $computer_address perl $monitor_path/$perl_monitor_script`;
print "Resultado -> - ]\n";
my $rsh_result2 = system("rsh","-n","$computer_address","perl $monitor_path/$perl_monitor_script");
print "Resultado2 -> - ]\n";
my @rsh_result3 = qx(rsh -n $computer_address perl $monitor_path/$perl_monitor_script);
print "Resultado3 -> ...

Hola. Quiero aprender a usar XML y quisiera saber si me pueden recomendar algún manual o algo que me pueda ayudar. Tengo varias cosas que me gustaría hacer como por ejemplo, sacar información de la BD y construir un xml, algo como esto:

<Info>
<Id>12345</Id>
<Account>
<Card>
<cardActive>1</cardActive>
<cardExp></cardExp>
<cardId>777889003666</cardId>
<cardLost>0</cardLost>
</Card>
<Card>
<cardActive>1</cardActive>
<cardExp></cardExp>
<cardId>777889003672</cardId>
<cardLost>0</cardLost>
</Card>
</Account>
</Info>

La parte de <Card> ya la pude sacar con este código:

my @rows;
sDB_Select($dbh,$stmt,\@rows,$sub); ...

Hola amigos.

Quiero buscar un valor ($ip) dentro de una lista ips.txt; si este IP existe en la lista ejecuto una acción. De lo contrario ejecuto otra.

Creé un archivo ips.txt:

Code: Seleccionar todo

192.168.50.2
192.168.50.3
192.168.50.4
192.168.50.5

$file= "/partition/practicas/ips.txt";
open(DATOS, "<$file");

my @lineas = <DATOS>;
close(DATOS);

$ip=192.168.50.2




foreach $linea (@lineas) {
if ($linea == $ip) {
print "Tengo el ip, $ip\n !!!";
}
else {
print "no tengo ip !!!";
}

El problema es que ...

Primeramente saludarlos y agradecerles por este hermoso trabajo.

He estado revisando diversos redirectores para squid escritos en Perl, entre los cuales conseguí uno que me funciona muy bien pero quiero hacerle modificaciones.

Este script fue escrito por el señor Victor Carceler:

http://iespuigcastellar.xeill.net/Members/vcarceler/temp/welcomeredirector.pl/view

#!/usr/bin/perl
#
# WelcomeRedirector v0.2 (por Victor Carceler)
#
# Este script es software libre GPL
#
# Este script es un redirector para Squid (http://www.squid-cache.org/Doc/FAQ/FAQ-15.html)
# ...

Saludos, tengo un programita que al final tengo que convertir el archivo en formato DOS y en ZIP, pero al momento de ejecutarlo no lo hace todo (el zip). Será que me pueden ayudar.


my $convert="unix2dos /repo/bankc/OficCumplim/$file";
system($convert);
my $path ="cd /repo/bankc/OficCumplim/";
system($path);
my $zip ="zip $file.zip $file";
system($zip);
my $remove=" rm /repo/bankc/OficCumplim/$file";
system($remove);


y me da el siguiente mensaje:
unix2dos: converting file /repo/bankc/OficCumplim/EF0905BA.143 to DOS format ...
zip warning: name not matched: ...

Hola a todos.

Ya hice algunos post más antes y en base a ellos desarrollé mi primer script en Perl. Funciona muy bien, pero no me dio los resultados que esperaba ya que en PHP se ejecutaba más rápido y utilizaba menos recursos.

Bueno, esto no me desanima, ya que me explicaron que Perl funciona mucho más rápido con mod_perl. Mi pregunta es ¿EL MOD_PERL USA OTRA SINTAXIS? ¿DEBO MODIFICAR EL CÓDIGO YA HECHO O ...

Hola a todos

Felicito por esta página y este foro de gente que le da duro al Perl.

Bueno, mi interrogante es la siguiente: tengo una wikimedia y allí hay un programa en Perl, que construye una timeline.pl; el asunto es que instalé el Perl en mi PC (Win XP) y me funciona de maravilla, pero cuando lo subí todo al servidor web, no sé configurar el path del Perl, por lo tanto no se ...

Buenas, estoy tratando de hacer lo siguiente:

Recojo de una webcam una matriz de colores que son los píxeles de la imagen.

Mi idea es enviar al Perl una cadena que contenga la cabecera de un BMP y los valores de los píxeles, para que cree "imagen.bmp", en hexadecimal.

Si le envío los valores en ascii, no me reconoce los espacios en blanco.

El problema es que en la cabecera hay bytes 0 y Perl ...