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?

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.

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

Muy buenas a todos,

Tengo una consulta básica sobre IO::Socket, mandé por equivocación un mensaje hace poco sobre esta consulta por error al Foro Experto, por lo cual pido disculpas ya que tuve que haberlo publicado aquí en Básico...

He estado intentando un script que sea capaz de enviar mensajes a uno o varios clientes previamente conectados a un servidor; he tomado prestado de este mismo foro los códigos con los cuales estoy probando y ...