Foro - Perl en Español

Hi!

El otro día había encontrado una ventana de chat hecha en IO::Socket que se comunicaban entre server y cliente mediante un raw_input pero no lo encuentro mas ¿alguien me dice cómo puede haber sido el code o en que página está?

Hi!

Ando queriendo hacer una ventana con el módulo Tk que cada vez que se presione el botón cerrar se cree otra igual y no tenga salida pero no sé cómo hacerla.

Ventana normal:
use Tk;

$mw = MainWindow->new( -background => "black", -cursor=>"crosshair");
$mw->geometry("600x325+100+100");
$mw->title("{Ventana de prueba");



$mw->Label(-background => "black", -foreground => "black")->pack();


$mw->Label(-background => "black", -foreground => "black")->pack();
$mw->Label(-background => "black", -foreground => "black")->pack();
$mw->Label(-background => "black", -foreground => "black")->pack();



MainLoop;

¿Cómo haría que ...

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?

En este caso el array 'vector' contiene:

push (@vector,"6\tRoma");
push (@vector,"3\tParis");
push (@vector,"5\tMadrid");
push (@vector,"7\tYork");
push (@vector,"9\tYork");
push (@vector,"2\tRoma");
push (@vector,"4\tParis");
push (@vector,"1\tRoma");

Y yo quiero eliminar para cada ciudad, la de mayor valor, es decir, que al final vector tenga:

Code: Seleccionar todo

"3\tParis"
"7\tYork"
"2\tRoma"
"1\tRoma"

¿Cómo puedo hacerlo? Gracias.

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!

Viendo el módulo File::Copy.

Como no veo ningún ejemplo de lo que quiero hacer o no entiendo la sinopsis.

Quisiera saber cómo hago que un archivo (hola.txt) se copie a la unidad E:\.

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, soy nueva en esto y agradecería que me ayudaseis si podéis.

Tengo que hacer un script en Perl que me cuente el número de accesos en un día de una serie de ficheros comprimidos. Podría ser descomprimiendo y contando el número de líneas que tenga el fichero del día que quieras buscar.

¿Cómo podría hacerlo?

Además los ficheros son backups y hay algunos que se mezclan 2 fechas... ¿Qué hago?

Muchas gracias.

Agradecería mucho que alguien me explicase cómo utilizar el comando "fprint" y para qué sirve exactamente.

Es que no sé dónde buscar información acerca de él, por eso se me ha ocurrido preguntar aquí. Muchas gracias :) .


EDITO: Por cierto, el objetivo es imprimir una tabla bastante larga con él.

He encontrado esto: http://perlenespanol.com/tutoriales/fun ... rintf.html, pero no me sirve ...

J.J.Merelo está buscando apoyos, en forma de vídeos, para lograr que Granada (España) sea la sede de la futura YAPC::EU::2010.

El primer vídeo que ha llegado es de Damian Conway.