Foro - Perl en Español

Hola nuevamente, amigos del foro. Les cuento: tengo el siguiente código:
#!/usr/bin/perl
use strict;
use warnings;
use Tie::InsertOrderHash;

tie my %Meses, => 'Tie::InsertOrderHash',
'Enero' => 'January',
'Febrero' => 'February',
'Marzo' => 'March',
'Abril' => 'April',
'Mayo' => 'May',
'Junio' => 'June',
'Julio' => 'July',
'Agosto' => 'August',
'Septiembre'=> 'September',
'Octubre' => 'October',
'Noviembre' => 'November',
'Diciembre' => 'December',
;

for my $mes (keys %Meses ) {
print "$mes\n";
}

Lo que hace es imprimir ...

Hola, compañeros.

Con el siguiente código interpreto la información de una web utilizando HTML::TableExtract. Se leen dos tablas. Por pantalla sale lo que he pegado después del código, y necesitaría guardar la información en un fichero csv en el formato que indico en la parte inferior de esta consulta. Muchas gracias por adelantado.

#!/usr/local/bin/perl
use strict;
use warnings;
use utf8::all;
use v5.10;
use LWP::Simple;
use HTML::TableExtract;
use String::Util qw< trim >;
use Text::CSV;

my ...

Hola, amigos del foro. Buscando una solución a mi problema en el foro encontré el siguiente script:
#!/usr/bin/perl

use strict;
use Spreadsheet::Read;

my $ref = ReadData ("huatacondo.xls");

my $hoja=2;

my $maximo_de_filas = $ref->{maxrow};
my $maximo_de_columnas = $ref->{maxcol};

my @filas = Spreadsheet::Read::rows($ref->);
foreach my $fila ( @filas ) {

foreach my $celda ( @$fila ) {
print "$celda ";
}
print "\n";
}


Lo que hace es leer el archivo Excel y mostrar todo ...

Hola estoy teniendo problema con este código:

if ( $cosa eq "" ) { menu(); }
print "\n\n Searching string\n\n";
my %found = buscar($cosa);
$total = int( keys %found ) - 1;
print " Exploits Found : " . $total . "\n\n\n";
unless ( -d $cosa ) {
mkdir( "logs/exploitdb/" . $cosa, "0777" );
}
for my $da ( keys %found ) {
my $tata = $da;
$tata =~ s/\<//;
$tata =~ s/(\s)+$//;
if ...

Creo que un tema donde podamos poner algoritmos y funciones estaría bastante bien, ya que no hay ninguno. Dejo una función para comenzar :)

#!/usr/bin/perl
# Pasa una cadena en mayusculas a morse.
# Aceitunas

use strict;

print "Introduce una cadena: ";
my $datos = <STDIN>;

my @letras = <DATA>;

my $len = length($datos);
my $i = 0;

while($i < ($len-1))
{
my $char = ...

Hola, espero que podáis ayudarme con un ejercicio que no consigo hacer. Usando el fichero /etc/passwd "opcpasswd" que tiene que admitir las opciones -h idusuario | -g idusuario:

• -h muestra el árbol de directorios y archivos (de forma recursiva del usuario indicando idusuario y ver antes si existe usuario)
• -g muestra los grupos a los que pertenece el usuario idusuario (indicar GID de grupo y ver antes si existe usuario)

Tengo hecho ...

Hola a todos, tengo las siguientes líneas dentro de un script:
my $dir = "$tempDir/$imageDir"; # directorio en el cual están las imágenes
my $oldname = '';
my $renNo = 1;
if(opendir(DIR,$dir)){ # abro el directorio
foreach (readdir DIR){ # lo recorro
$oldname = $_; # paso todo a la variable local
if ( $oldname =~ /($name-fig-)(\d+|\d+\d+).ppm/) { # regex para name-fig-0000001.ppm
my $renNo = int($2); # parte entera =1, =2, =natural
my $newname="$1$renNo.ppm"; ...

Hola. Quería preguntar si alguien sabía cómo subir un archivo comprimido a un proyecto en Google Code porque todos los manuales se hacen con programas Java, y la verdad, no es lo mismo.

¿ Alguien sabe ?

¿Qué carácter toma Perl como fin de cadena? Sé que en otros lenguajes como C es '\0' pero en Perl no lo he encontrado...

Un saludo.

Hace tiempo que quería meter todas estas líneas en un array pero la única solución que logré fue meterlas en un archivo de texto y leerlas desde ahí.

Las líneas son estas:
admin'--
'or'1'='1
'or'
' or 0=0 --
" or 0=0 --
or 0=0 --
' or 0=0 #
" or 0=0 #
or 0=0 #
' or 'x'='x
" or "x"="x
') or ('x'='x
' or 1=1--
" or 1=1--
or 1=1--
' ...