Foro - Perl en Español

Hola amigos les comparto unas funciones que hice para la creaciones de menús y otras funciones más, para facilitar la creación de pequeñas aplicaciones de consola.
Espero que les sea útil.
Saludos.


#!/usr/bin/perl


require Term::Screen;
$scr = new Term::Screen;
unless ($scr) { die "Algo anda mal \n"; }
$scr->clrscr();

sub marco {
my $x1 = $_;
my $x2 = $_;
my $y1 = $_;
my $y2 = $_;
my $forma = $_;
my ...

Hola a todos,

Me presento: me llamo Augusto Jiménez. Les saludo desde Tabasco, México.

Quiero saber si existe un script Perl para colocar un slideshow dentro de un html, tipo www.linux.com o http://www.linux-mag.com/, donde las imágenes y el texto de ellas cambia dinámicamente; además son enlaces a artículos u otras páginas del sitio.

¿Puede hacerse con un script Perl? ¿Puede lograrse la misma ...

Tengo los siguientes archivos:

log.txt
blancanieves -animacion
Balada Triste De Trompeta -drama
Cisne Negro -thriller
Caracremada -drama
jungla de cristal -accion
Saw VII -terror
Los Próximos Tres Días thriller
El Oso Yogui -animacion
Sin Retorno -drama
El Santuario -accion
...............
...............
....................
.............



busca.txt
accion
animacion
drama

Con el siguiente script:
open (BUSCA, 'busca.txt');
my @busca = <BUSCA>;
chomp @busca;
close(BUSCA);

for (my $i = 0; $i < @busca; $i++) {
open(LOG, "< ...

Hola,

Estoy haciendo una consulta a una BBDD mediante el módulo DBI.

El código es el siguiente
my $db = DBI->connect( 'dbi:Oracle:'.$P_DDBB,$P_loginDB,$P_passwordDB,);

my $stm = $db->prepare("truncate table COSMOSS_1G_SONDAS_IPSLA");
$stm->execute();
$stm = $db->prepare("truncate table COSMOSS_GRUPOS_SONDAS_TMP");
$stm->execute();
$stm->finish();

#realizamos la consulta para obtener las máquinas (sondas) que contienes las pruebas.
$stm = $db->prepare("SELECT NOMBRE FROM COSMOSS_AUXILIAR_SONDAS");
$stm->execute();

@_datos = $stm->fetchrow_array();


La tabla contiene 13 filas y solo me devuelve el primer registro ($#_datos = ...

Intento instalar el módulo cpan Data::FormValidator::Constraints y me sale error

CPAN.pm: Going to build M/MA/MARKSTOS/Data-FormValidator-4.66.tar.gz

version version 0.87 required--this is only version 0.82 at /usr/local/share/perl5/Module/Metadata.pm line 19.
BEGIN failed--compilation aborted at /usr/local/share/perl5/Module/Metadata.pm line 19.
Compilation failed in require at /usr/share/perl5/Module/Build/ModuleInfo.pm line 10.
Compilation failed in require at /usr/share/perl5/Module/Build/Base.pm line 23.
BEGIN failed--compilation aborted at /usr/share/perl5/Module/Build/Base.pm line 23.
Compilation failed in require at /usr/share/perl5/Module/Build.pm line 15.
BEGIN failed--compilation aborted at /usr/share/perl5/Module/Build.pm line 15.
Compilation failed ...

Buenas tardes,

Escribo por si me podéis ayudar con el siguiente problema.

Necesito crear un hash a partir de varios arrays.

He escrito una subrutina para que el primer elemento de un array sea asignado como clave, y que el valor lo compongan el resto de los elementos del array. Pero tengo problemas para poblar (introducir las claves y los valores) el array.

Al intentar imprimir el hash (usando el modulo Data::Dumper) el array aparece ...

Estaba probando de crear un archivo Excel de la salida. El tema es que solo me guarda el último valor del array y no todos =(

Les dejo el script acotado...

use Spreadsheet::WriteExcel;
my $workbook = Spreadsheet::WriteExcel->new('64.xls');
my $worksheet = $workbook->add_worksheet();
$worksheet->write(0, 0, 'Hostname');
$worksheet->write(0, 1, 'Autenticacion');

print "### Autenticacion ###\n";
foreach $aaaserver(@aaaserver) {
if ($aaaserver ~~ @servertacacs) {
print "Server= $aaaserver -> OK\n";
$worksheet->write(1, 1, "$aaaserver -> OK");
}
else {
print "Server= ...

Hola amigos:

Quería consultarlos porque necesito traerme el párrafo de un artículo o al menos unas cuantas palabras de un texto cuando se cumple una condición.

Mi idea es si aparece la palabra "A" cerca de la palabra "B" (es decir separada por una diferencia de 0-20 palabras).

Me gustaría traerme todo el párrafo donde está eso.

Mi código es el siguiente:

while ($texto =~ /(($str_corte)(\W+\w+){0,20}\W+($str_calle))/gi)
{
$tmp=$tmp . $1 . "\n";
} ...

Hola. Tengo el siguiente código:


%hash = (
'personas' => {
'pepe' => '17',
'auto', 'argentina',
'ruben' => '20',
'moto', 'bolivia',
}
);

El problema es que quiero abrir el hash personas que está dentro de otro para poder imprimirlos
en pantalla de la siguiente forma:
pepe

auto argentina

ruben

moto bolivia

¿Alguien puede ayudarme?

Hola. Teniendo el siguiente
my %lista

sub lista {
@valores = ("uno","dos","tres");
for my $valor(@valores) {
#####
}
return %lista;
}
El problema es que es que no sé cómo agregar valores al hash creando una lista con el mismo nombre y valor que la variable $valor para poder retornarlo a una función.

¿Alguien puede ayudarme?