Foro - Perl en Español

Hola, ¿qué tal? Como verán soy principiante en esto y quería saber si se puede y cómo es para que una función me devuelva más de un valor, para luego llamar a cada una de las variables devueltas y que tengan el valor devuelto en la función.

Gracias.

Saludos, con una molestia, tengo que sacar reportes de la siguiente manera: anual, mensual, quincenal y semanal. Todos menos el reporte quincenal no se cómo hacerlo ya que tengo que decir a qué quincena (1 a 24) corresponde el reporte.

¿Me pueden ayudar diciéndome cómo podría hacerlo? :?

Lo primero de todo estoy en Windows usando ActivePerl.

La verdad, busqué módulos, leí algo sobre PDL
http://search.cpan.org/~csoe/PDL-2.4.3/
y sobre IPA
http://search.cpan.org/~karasik/IPA-1.06/

Pero parece que todo eso es para Linux... ¿hay algún módulo para Windows?

Buenas tardes,

¿Alguien sabe cómo puedo hacer esta conversión de archivos con Perl?

Muchas gracias.

Saludos. Es la primera vez que intento programar en Perl. He programado en muchos idiomas, pero no en Perl. Pongo aquí mi script a ver si me lo solucionáis o me ayudáis a solucionarlo. Muchas gracias a todos.

#!/usr/bin/perl

###########################################################################################
# Aria-Security.net Advisory #
# Discovered by: OUTLAW #
# < www.Aria-security.net > #
# Gr33t to: A.u.r.a &amp; HessamX &amp; Cl0wn &amp; DrtRp #
# Special Thanx To ...

Hola, me gustaría saber qué es lo que significan de forma detallada, a poder ser, las condiciones y las instrucciones que se precisan en este bucle que es el fragmento de un programa:

foreach my $key (keys %hash) {
$flag = 0;
my $B = $hash{$key};
foreach my $key2 (keys %hash) {
my $B2 = $hash{$key2};
if($B2==$B && $key2!=$key && $key2<$key) {
$flag=1;
}
}

if ($flag == 1) {
delete $hash{$key};
}
}

Muchas ...

Hola de nuevo,

Estoy con un programa en Perl que me lee de un fichero en busca de una cadena de caracteres específica en cada una de las líneas. Si encuentra la cadena en el fichero realiza una acción y sino otra. Este es el código:

my $msg = "Cadena a buscar";
my $found = 0;

open (LOG_FILE, '<'.$output_file_path);

while (my $line = <LOG_FILE>) {

if ( $line=~ m/$msg/ ) {
$found = 1;
}; ...

Saludos, con una molestia, tengo mi programa que recorre un fichero pero ahora necesito que no tome en cuenta la última línea. ¿Cómo lo puedo hacer?

Hola,

A ver si alguien me puede ayudar con esta duda que tengo a la hora de escribir un script:

Tengo una base de datos Sybase en la que quiero realizar unas operaciones cada noche (borrado de datos en ciertas tablas). Lo que quiero es ejecutar un script en Perl para que cada noche me realice este trabajo. La manera de realizar esto de manera manual es abrir la shell de Windows (cmd.exe) y alli ...

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