Foro - Perl en Español

Hola, estoy en Ubuntu tratando de instalar el módulo DBD::mysql de la siguiente forma:
sudo cpan DBD::mysql
Y me devuelve
CPAN: Storable loaded ok (v2.20)
Going to read '/home/doddy/.cpan/Metadata'
Database was generated on Thu, 12 Dec 2013 20:53:02 GMT
Running install for module 'DBD::mysql'
CPAN: YAML loaded ok (v0.84)
Running make for C/CA/CAPTTOFU/DBD-mysql-4.025.tar.gz
CPAN: Digest::SHA loaded ok (v5.47)
CPAN: Compress::Zlib loaded ok (v2.063)
Checksum for /home/doddy/.cpan/sources/authors/id/C/CA/CAPTTOFU/DBD-mysql-4.025.tar.gz ok
CPAN: Archive::Tar loaded ok (v1.52)
DBD-mysql-4.025/
DBD-mysql-4.025/META.yml ...

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

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