Using perl Syntax Highlighting
- use File::Find;
- find(\&finder,"dir");
- sub finder {
- my $file = $_;
- print $file."\n";
- if(-f $file) {
- if ($file =~ /\.txt$/ or $file =~ /\.php$/){
- print "$File::Find::dir"."$File::Find::name\n";
- }}}
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
El problema es que al reconocer un archivo quiero tenerlo con la ruta completa pero cuando uso un directorio común como /dir, el problema es que queda algo así: "dir/N3fa5t1cA.txt". Pero yo quiero la ruta completa.
¿ Alguien puede ayudarme ?
