Foro - Perl en Español

«En Perl disponemos de un tipo de variable denominado ‘hash’, que permite almacenar conjuntos de pares (clave, valor). Es equivalente a lo que en otros lenguajes se denomina “array asociativo”».

Artículo

Buenas, tengo un problema porque los resultados no me salen en letras y números.

#!/usr/bin/perl -w

use Net::FTP;

$ftp = Net::FTP->new( "xxx.xxx.xxx.xxx", Debug => 0 )
or die "Cannot connect to some.host.name: $@";

$ftp->login( "xxxxxx", 'xxxxxx' )
or die "Cannot login ", $ftp->message;

$ftp->get( "sapfi_rechazo_01032011_HCM_1724.txt.Z", "/home/rocco/sapfi_rechazo_01032011_HCM_1724.txt" )
or die "get failed ", $ftp->message;
print "successful\n";

$ftp->quit;

open( MIFICH, "/home/rocco/sapfi_rechazo_01032011_HCM_1724.txt" ) || die "lo siento, no puedo encontrar fichero.txt\n";

my $archivo = "sapfi_rechazo_";

if ( ...

Siento que el título sea tan poco explicativo, pero la verdad es que no entiendo ni yo mismo cómo hacer lo que quiero :lol:

Estoy creando un script que descargue recursivamente las imágenes de todo un blog. Tengo más o menos todo montado y "funcionando" usando unicamente LWP::Simple. El problema viene al "extraer" los enlaces a esas imágenes. Lo primero que hago es descargar la página así: ...

«Redis es un servidor de estructuras de datos; permite almacenar, ordenar y operar datos estructurados en simples cadenas, hashes, listas, sets y sorted sets. Puede ser utilizado como un “gestor” de base de datos NoSQL»

Artículo

Buenas tardes. Quisiera saber cuál es la función para abrir varios archivos txt, para poder validar sus campos. He leído ya mucho de esto. Lo hice con este comando pero no veo los datos del txt.

open(MIFICH,"prueba.txt");

## funciones del programa

close(MIFICH);

Buenas. Tengo un problema. Quiero usar expresiones regulares para separar cada campo de este texto:

5100053| 7400203478| 59388| 2000064786|28062010|30062010| 603.40| 603.40|

5100119| 7400204486| 6975| 2000064787|28062010|30062010| 640.00| 640.00|
La idea es que el texto pueda describirlo, para cargar cada campo a la base de datos.

Ayuda urgente.

Agrego que estos textos los tengo en una carpeta que bajo por SFTP.

«Una forma sencilla pero flexible de leer en Perl el contenido de una URL es hacer uso del módulo LWP::UserAgent.

El siguiente ejemplo muestra cómo leer el contenido de la url http://www.ejemplo.com:»

Artículo

«Un script CGI debe tener acceso a la información que le pasa el servidor web:

• El nombre de host, la url y los argumentos (query string) con los que se ha hecho la petición al servidor que ha provocado la ejecución del script.
• Los cookies que son de aplicación.
• Los parámetros y sus valores, si se trata de una solicitud POST de un formulario
• etc…

El script debe realizar su ...

Un simple programa en Perl para leer el correo usando Gmail.

Una imagen



El codigo


#!usr/bin/perl
#Gmail Inbox 0.1
#Version Tk
#Coded By Doddy H
#Modules
#ppm install http://www.open.com.au/radiator/free-downloads/Net-SSLeay.ppd
#http://search.cpan.org/~sullr/IO-Socket-SSL-1.54/SSL.pm
#http://search.cpan.org/~fays/GMail-Checker-1.04/Checker.pm

use Tk;
use Tk::HList;
use Tk::ROText;
use GMail::Checker;
use HTML::Strip;

if ( $^O eq 'MSWin32' ) {
use Win32::Console;
Win32::Console::Free();
}

my $yeahfucktk = MainWindow->new();
$yeahfucktk->title(
"Gmail Inbox 0.1 || Coded by Doddy H || Status : <None>");
$yeahfucktk->geometry("870x220+20+20");
$yeahfucktk->resizable( ...

Hola compañeros, tengo un problema.

Estoy haciendo un programa para bajarme de forma automática unos ficheros de una web. Si lo ejecuto directamente desde el shell con curl, me descarga el fichero sin problemas:

$ curl "http://nomads.ncep.noaa.gov/cgi-bin/filter_gfs.pl?file=gfs.t00z.pgrbf00.grib2&lev_10_m_above_ground=on&var_UGRD=on&var_VGRD=on&subregion=&leftlon=-20&rightlon=20&toplat=40&bottomlat=20&dir=%2Fgfs.2012042800" -o myfile
% Total % Received % Xferd Average Speed Time Time Time Current
Dload Upload Total Spent Left Speed
101 2942 0 2942 0 0 2268 0 --:--:-- 0:00:01 --:--:-- 12057

Pero con el siguiente fichero ...