Using perl Syntax Highlighting
#!/usr/bin/perl
use strict;
use File::Find;
my $dir = ' C:\img ';
find(\&imprimir_archivo_img, $dir);
sub imprimir_archivo_img{
my $elemento = $_;
if(-f $elemento && $elemento =~ /\.jpg$/)
{
my $img = $elemento ;
my $dest = 'C:\';
move( $img, $dest);
}
use strict;
use File::Find;
my $dir = ' C:\img ';
find(\&imprimir_archivo_img, $dir);
sub imprimir_archivo_img{
my $elemento = $_;
if(-f $elemento && $elemento =~ /\.jpg$/)
{
my $img = $elemento ;
my $dest = 'C:\';
move( $img, $dest);
}
Coloreado en 0.005 segundos, usando GeSHi 1.0.8.4
Pero al intentar interpretarlo me da:
- Código: Seleccionar todo
C:\Documents and Settings\user\Escritorio\Programando\Perl\project>Img.pl
Can't find string terminator "'" anywhere before EOF at C:\Documents and Setting
s\JosS y bEa\Escritorio\Programando\Perl\project\Img.pl line 19.