Using perl Syntax Highlighting
use File::Copy;
$org='virus.pl';
@dest=('C:\config.pl','C:\ter.pl');
for ($i=0;$i<1;$i++)
{
copy( $org, $dest[i] ) or die("Fallo la copia");
}
$org='virus.pl';
@dest=('C:\config.pl','C:\ter.pl');
for ($i=0;$i<1;$i++)
{
copy( $org, $dest[i] ) or die("Fallo la copia");
}
Coloreado en 0.005 segundos, usando GeSHi 1.0.8.4
El problema es que solo me lo copia a la primera ruta y con la segunda no hace nada.