Foro - Perl en Español

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

Hola. Quería preguntarles qué les parece el caso de John Titor. Si no lo conocen este es el enlace de la Wikipedia: http://es.wikipedia.org/wiki/John_Titor Yo creo que es un ingeniero en computación que vio muchas películas de ciencia ficción.

¿ Ustedes qué opinan ?

Está en la pista 65 de este crucigrama.