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 ...

Ya está disponible la nueva versión de la distribución Rakudo Star: v2012.11.

Recordemos que esta distribución reúne los siguientes componentes:

* la versión 2012.11 del compilador Rakudo Perl 6
* la versión 4.6.0 de la máquina virtual Parrot
* varios módulos, documentación, y otros recursos

Anuncio (en inglés)

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, ...

«Como decía el otro día, necesito un programa que calcule distancias entre ciudades. No puedo ir a GOOGLE MAPS y hacerlo a mano porque hablamos de una tabla completa.

Hoy vamos a utilizar Perl.»

Artículo

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

Hice este simple script para buscar y bajar música.

El código:

#!usr/bin/perl
#MP3 Downloader 0.1
#Coded By Doddy H

use LWP::UserAgent;
use URI::Split qw(uri_split);
use Time::HiRes "usleep";

my $nave = LWP::UserAgent->new;
$nave->agent(
"Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
);
$nave->timeout(5);

my $se = "downloads_mp3";

unless ( -d $se ) {
mkdir( $se, "777" );
}

chdir $se;

head();

print " Song : ";
chomp( my $song = <stdin> );

$song =~ ...