Foro - Perl en Español

#!/usr/bin/perl
print "Ingrese un numero en base 2: ";
$num = <stdin>;
$b4 = 0;
$pot11 = 1;
$pot1 = 1;
$sum1 = 0;
$b8 = 0;
$pot22 = 1;
$pot2 = 1;
while ( $num != 0 ) {
$a = int( $num / 10 );
$d = $num - 10 * $a;
$num = $a;
$sum1 = $sum1 + $d * $pot1;
$sum2 = $sum2 + $d * $pot2;
$pot1 = $pot1 ...

Buenas tardes a todos,

Soy muy nueva en Perl y estoy intentando replicar un script que haga lo siguiente:
- Descarga de una URL un archivo en formato Excel
- El contenido de este fichero lo mete en una base de datos MySQL.

De momento el problema que tengo es la descarga del archivo. Me da siempre error.

Este script se ejecutará una vez a la semana, bajará el archivo de la URL, cuyo nombre ...

Buenas,

Lo busqué en Google pero no lo encontré...

Alguien me podría decir para qué es esta línea:

$retorno = $? >> 8;

Entiendo que le paso el estado de regreso de la última operación de ejecución de un proceso externo y lo guardo en $retorno, pero no entiendo que hace ese ">> 8". El ">>" es para agregarlo a un archivo, pero "8" no sé qué es... No existe ninguna variable que se llame ...

¡¡Hola!!

Estoy tratando de cambiar de directorio con el comando "chdir", pero sin embargo se queda pegado el directorio ejecutado la primera vez. ¿Me podrían ayudar a ver qué tengo mal en el código? Gracias.

Se lee un archivo línea por línea, primero se ejecuta un bat y luego si se ejecutó bien se debe cambiar al directorio que se cargó de la línea del archivo para compilar.

$fileCompile = $ENV{'CC_RUNSCRIPTS'} . "\\Lista_CP_Temp.txt"; ...

Hola, solicito vuestra ayuda nuevamente, tengo el siguiente código:

my $local=3;
print LOG "*seg ***$seg \n";

our ($yr_txt,$mes_txt,$dia_txt,$hora_txt,$min_txt, $seg_txt) = Add_Delta_DHMS($yr,$me,$dia,$hora,$min,$seg, 0,-$local, 0 ,0);
$yr_txt = sprintf "%2d",$yr_txt;
$mes_txt= sprintf "%2d",$mes_txt;
$dia_txt= sprintf "%2d",$dia_txt;
$hora_txt= sprintf "%02d",$hora_txt;
$min_txt= sprintf "%02d",$min_txt;
print LOG "**seg *1 *$seg \n";
print LOG "**txt **$seg_txt \n";
$seg_txt= sprintf "%5.2f",$seg_txt;
print LOG "****$seg_txt \n";

Mi problema es que la variable $seg_txt, me toma solo la parte entera de la información ...

Hola a todos. Acabo de empezar en esto del Perl y he tirado varias veces de los tutoriales y algunos mensajes en el Foro para ver cosas, pero ahora ando perdido con algo porque no entiendo el comportamiento de una estructura con la que estoy pegándome; a ver si me podéis ayudar.

Tengo un xml con una serie de servicios para unas llamadas HTTP que tengo que hacer. El script ya está hecho y funciona, ...

Intento desarrollar un script en Perl, que permita identificar todos los archivos con permisos peligrosos para la seguridad del sistema, y quiénes son sus dueños.

El script debe recibir el directorio donde se van a buscar los archivos y mostrar cuáles son los archivos (ruta completa, propietario, permisos).

¿Qué archivos son los que debo buscar?

Aquellos que tengan permisos 777 (-rwxrwxrwx), 766 (-rwx-wx-wx), 666 (--wx-wx-wx).

Ejemplo de uso:

./buscarPeligrosos.pl /home

¡¡¡Hola a todos!!!

Tengo un problema y estoy atorado con esto desde hace ya varios días. Tengo un archivo así:

ID RPKM_C RPKM_T1 RPKM_T2
Pp1s10008_1V6.1 15.1413902 13.23147945 63.56598706
Pp1s100_101V6.1 3.02827804 2.615525008 7.196149479
Pp1s100_102V6.1 6.012701324 6.004640585 12.75103445
Pp1s100_104V6.1 4.660445525 4.4133651 8.656488079
Pp1s100_106V6.1 4.05209418 3.87275314 6.58645081
Pp1s100_107V6.1 3.563197791 3.881832493 7.756641103
Pp1s100_108V6.1 2.658938461 2.450037373 6.639192251

Y necesito un script que me compare los RPKM_C vs RPKM_T1, RPKM_C vs RPKM_T2, de cada ID y que los asigne a ...

Hola.

Desde hace tiempo no puedo abrir un archivo .cgi desde la carpeta cgi-bin del servidor pero sólo en este equipo, en los demás se abre sin problemas.

La dirección es la siguiente http://www.intelresponder.com/cgi-bin/arp2/ar.cgi y la contraseña es aeiou.

Una vez que accedemos, la pantalla de la derecha se abre sin problemas, pero la izquierda se queda en blanco y el logo de carga no para de funcionar, hasta ...

Hola, buenos días. Es la primera vez que participo del foro.

Me apasiona mucho Perl, pero estoy empezando.
Por favor, si alguien pueda darme una LUZ.

htt://servidor.com/archivo.php
htt://servidor.com/archivo.html
htt://servidor.com/archivo.txt ......

Tengo un servidor y necesito consultar si un determinado archivo se encuentra en mi servidor,
sin sobrecargar el servidor, suponiendo que sean más de 1000 archivos.

La lista de archivos las tiene que leer de un lista.txt.

Yo tengo este código muy sencillo:
#!/usr/bin/perl -l ...