Foro - Perl en Español

Hola. Tengo el siguiente código.

@paginas = repes( cortar( savewords("paginas.txt") ) );

print "uno : ".@paginas;

@paginas = repes( cortar( savewords("paginas.txt") ) );

print "dos : ".@paginas;

sub savewords {
my @words;
my @r;
open( FILE, $_ );
@words = <FILE>;
close FILE;
for (@words) {
push( @r, $_ );
}
return (@r);
}

sub repes {
my @limpio;
foreach $test (@_) {
push @limpio, $test unless $repe{$test}++;
}
return @limpio;
}

sub cortar ...

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.