Ver Tema

Doddy · 2011-11-23 10:57 @498

Tengo el siguiente código

Syntax: [ Download ] [ Hide ]

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";
}}}

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 ?

explorer · 2011-11-23 11:16 @511

find(\&finder,'/dir');

Ejemplo:

perl -E 'use File::Find; find(sub { say $File::Find::name }, "/var");'

Más información en File::Find.

Doddy · 2011-11-23 11:33 @523

Puede que sea de mente lenta pero no necesito la sintaxis del módulo sino que cuando consiga el nombre del archivo poder tener su ruta completa no "dir/hola.txt".

explorer · 2011-11-23 12:09 @548

¿No te ha funcionado la solución que te he dado? Fíjate en la '/'...

Publicidad

Socializa