Foro - Perl en Español

Hola a todos, tengo el siguiente script:

#!/usr/bin/perl -w

use strict;
use Image::Grab;

my $img = new Image::Grab;
$img->url('http://www.ncdc.noaa.gov/gibbs/image/GOE-12/IR/2004-01-01-00');
$img->grab;

#Salvamos la imagen al disco
open(IMAGEN, ">2004-01-01-00.jpg") || die"No se pudo crear archivo: $!";
print IMAGEN $img->image;
close IMAGEN;

Esto está bien ya que me descarga la imagen, pero yo quiero descargar las imágenes de un año entero, y hago un ciclo for y no me reconoce nada.

Si tienen alguna sugerencia se los agradezco ...

Me explico, tengo varias líneas en un fichero de la siguiente forma.

13caracteres:defaultnombre

De forma que una línea podría ser así:

13caracteres:defaultnombre213caracteres:defaultnombre113caracteres:defaultnombre0

Yo tengo que extraer las palabras y guardarlas en otro archivo de forma que en el archivo de salida se almacenen así:

Code: Seleccionar todo

nombre0:13carateres
nombre1:13carateres
nombre2:13carateres

Teniendo en cuenta que a nombrex le corresponden los 13 caracteres que tiene a su izquierda después de la palabra default.

También como se podría pensar, la línea ...

Hola otra vez.

Esta vez quería saber si existen otras expresiones que hagan lo mismo que sort, delete, keys, split, die y si existen distintas formas de concatenar ya que creo que estoy usando todo el rato lo mismo.

Gracias.

Soy super nuevo trabajando con Perl y estoy un poco perdido. ¿Alguien sabe cómo desde un servidor Unix puedo bajar un archivo de texto que está en una pagina web HTTPS?

Si lo quiero bajar directamente de la página manualmente, coloco el path y me pide un login y password. Después de eso entra a la página que tiene el archivo que necesito. Lo que quiero hacer es lo mismo pero de manera automática desde ...

Hola, ¿qué tal?

Me dirijo a ustedes en busca de ayuda.

Tengo una aplicación con la que accedo a un directorio y me fijo los archivos .txt que hay, y me los traigo.

Lo que necesito es que me los devuelva ordenados por fecha de creación.

Espero su ayuda..
gracias.

Acá les dejo el código actual, así se entiende un poco más.

#Abrimos el directorio

my $dir = '\Desktop\Archivostxt/';

opendir(DIR, $dir) or die $!; ...

hola, ¿qué tal? Soy nuevo en Perl y me encargaron un trabajo en el que tengo que ver qué archivos hay dentro de un directorio. Quería saber si me pueden ayudar a resolver esto.

Muchas gracias.
Saludos.

Hola de nuevo, estoy haciendo un programa que me genera un archivo y como este finalmente pesa mucho necesito comprimirlo y que quede en formato zip, he utilizado la librería Archive::Zip, y el programa me crea el archivo .zip pero no está agregando el archivo que necesito que comprima, es decir, al final me crea un archivo zip ¡¡pero vacío!! :( , aquí adjunto el código que ...

Saludos, con una molestia, necesito hacer un programa que busque texto dentro de una imagen tif, debido a que contamos con más de 2 millones de imágenes está difícil hacerlo a mano, ¿alguien sabe de alguna función o alguna manera de hacerlo en Perl? :shock:

Bueno tratando de hacerme un sencillo chequeador de URL, escribí el siguiente código.

#!/usr/bin/perl -w
use strict;
use LWP::UserAgent;
use HTTP::Request;
use Parallel::ForkManager;

print "Trabajando...\n";
my $archivo_links = $ARGV;
chomp($archivo_links);
open LINKS,"$archivo_links" or die "No se encuentra el archivo.... \n";
my @links = <LINKS>;
close(LINKS);

my $ua = LWP::UserAgent->new;
$ua->agent("Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)");
my $timeout = 30;
my $bots = 5;
my $start = 0;
my $pm = new Parallel::ForkManager($bots);
open CODE, ...

¡Saludos a todos desde México!

Estoy empezando con Perl y estoy batallando mucho con este programita. :roll:
Tengo dos archivos de texto con el siguiente formato,
Archivo1.txt

Code: Seleccionar todo

AC000000000   0   0
AC100000000   0   0
AC1100KLP00   19   51.72
AC3030GEN15   7   30.91
AC4015GEN04   11   4.83
AC4017GEN04   0   4.41
AC4017GEN05   24   5.54
AC5001GEN05   66   6.68
AC5002FPC09   15   28.78
AC5002GEN05   16   8.88
AC5003GEN00   6   6.11
AC700000000   0   0

Archivo2.txt
AC1100KLP00 761.91 ...