Foro - Perl en Español

Bien, tengo una imagen como la siguiente:

¡Ojo! en la imagen de ejemplo hay 3 figuras, pero podría haber más o menos.

Necesito separar las figuras, cada una en una imagen diferente.

Tengo una idea de cómo podría hacerlo. Quizás leyendo los píxeles según lineas verticales y en la primera aparición de un píxel "no blanco" será el principio de la primera figura.

Mientras estoy sobre la figura (al ir escaneado los píxeles en ...

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