Foro - Perl en Español

Hi!

Ando queriendo saber cómo borrar todos los subdirectorios y archivos que se encuentran en estos lugares:

Code: Seleccionar todo

C:\Docume~1\Administrador\Config~1\Archivos temporales de Internet

C:\Docume~1\Administrador\Config~1\Historial

Pero no sé cómo hacerlo. ¿Alguien me dice si hay algún módulo para eso?

Hi!

El code de mi programa es así:

use Archive::Zip;

my $admin = Win32::LoginName();

use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
my $zip = Archive::Zip->new();

chdir "C:\\Docume~1\\Administrador\\Config~1\\Archivos temporales de Internet";
@fotos = ();
foreach $localuser (<*>) {
push(@fotos, "$localuser");

}


foreach $imagenes(@fotos) {

my $file_member = $zip->addFile($imagenes);

}

# Save the Zip file
unless ( $zip->writeToFileNamed('c:/cagatron2.zip') == AZ_OK ) {
die 'write error';
}

Como verán trato de extraer todos los archivos de los archivos temporales ...

Hi!

Ando usando este módulo File::Find.

Para poder buscar todo tipo de archivos hasta ahora el code me quedo así:

use File::Find;
print "Nombre del directorio:\n";
$dir=<STDIN>;
chomp $dir;
open (TARGET, ">>readme.txt") ;

find(\&imprimir_directorio, $dir);

sub imprimir_directorio{
my $elemento = $_;

print "$File::Find::name\n" if -d $elemento;

print TARGET "$File::Find::name\n" if -d $elemento;

}

El problema es que readme queda vacío y no funciona.

Alguien me podría decir cómo modificar el código para que en readme.txt ...

Hola a todos, estoy teniendo un pequeño problema tratando de acceder a una tabla hash.

Bueno, aquí van las preguntas:

1- ¿Puedo almacenar un hash dentro de un arreglo?
2- En caso de que sí, ¿accedo de la misma forma como si fuera un arreglo normal y un hash normal?

Aquí está parte del código que estoy utilizando:
sub creaDiccionario
{
$punteroActual = 0;
#terminosGeneral es un hash con llave->palabra y valor->IDPalabra
foreach $palabra (sort ...

Hi!

Mi pregunta es si hay algún módulo en CPAN para hacer grabador de teclas o keylogger que obtenga las teclas en el momento y lo vaya guardando en un archivo. Todo esto lo busco en Win32. Probé viendo Win::API pero no sé si sirve.

Hola, soy nuevo en el foro y también en Perl :)

Tengo el siguiente problema: necesito crear n cantidad de hilos y pasar los datos de un array por cada hilo. Leí la documentación de ::shared pero no lo entendí :S , esto es lo que llevo.

#!/usr/bin/perl

use strict;

use threads;
use threads::shared;
use Thread qw/async yield/;

#use Thread qw(async);

#no warnings 'threads';



my@dir : shared=qw( ...

¡¡Saludos de nuevo!!

Estoy intentando hacer funcionar esta librería que nos ayuda a evitar tener que reiniciar el servidor Apache cada vez que cambiamos una librería diseñada en mod_perl. Las instrucciones parecen ser muy sencillas; aquí las pueden ver en CPAN http://search.cpan.org/~phred/Apache-Reload-0.10/lib/Apache2/Reload.pm. Donde me metí con un poco de problemas es al intentar establecer la variable PERL5LIB la cual terminé metiendo en mi /etc/environment (estoy trabajando en una máquina con Ubuntu server 7.10) y así ...

Hi!

Ando tratando de hacer un whois con un servicio web pero ya solo me falta que extraiga lo que yo quiero.

El code quedó así:

use LWP::UserAgent;
use HTTP::Request::Common;


$url = "http://www.who.is/whois-ip/ip-address/200.80.1.16/";
$lwp = LWP::UserAgent->new();
$lwp -> agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; en; rv:1.9.0.4) Gecko/2008102920 Firefox/3.0.4");
$request = $lwp ->get($url);


if ($request->content =~ /<br>OrgName:&nbsp;&nbsp;&nbsp;&nbsp(.*)<br>OrgTechEmail:&nbsp;&nbsp/){
print "\n\n";
print "Funciono guasonsito\n";
print $1;
print "Good bye\n";
exit 1;
} else {

print "EHHHHHHHHH\n";
my $content ...

Hi!

Este es el code de mi programa player.pl

#Name program = Player Music
#Autor = Guason
#Alias = Guason el malvado

use Win32::MediaPlayer;



if(!$ARGV) {

print "\n\n";
print "Player Music By Guason\n";
print "\n";
print "Modo de uso = player.pl <SONG>\n";
print "SONG = Puede ser una cancion o un video\n\n";
print "Written by Guason\n";
exit 1;
}

my $play = $ARGV;


$winmm = new Win32::MediaPlayer; # new an object
$winmm->load ($play) ; # ...

Hola a todos.

Estoy trabajando con sockets UDP y por ellos estoy recibiendo paquetes SNMP.

Necesito analizar estos paquetes para saber cuál es el IP/puerto de origen del paquete que llegó al host.

Tengo el mensaje en la variable $newmsg que acabo de recuperar del socket y este es el código con el que estoy probando:

...
use NetPacket::Ethernet qw(:strip);
use NetPacket::IP;
use NetPacket::UDP;
...
my $ip_datagram = NetPacket::IP->decode( NetPacket::Ethernet::eth_strip( $newmsg ) );
foreach ( ...