Foro - Perl en Español

Hola. Estoy mejorando una función que hice para usar print con colores usando un módulo llamado Color::Output. Ahora le agregué otra función llamada texto_raro() que es como un efecto de texto corrido. El tema es que combinando los dos da errores con caracteres raros al contrario que cuando los uso por separado.

El código es este:
use Color::Output;
Color::Output::Init;
use Time::HiRes "usleep";

sub texto_raro {
my @letras = split //, $_;
for(@letras) {
usleep(40_000); ...

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