File path added to file name variable

deshdaaz has asked for the wisdom of the Perl Monks concerning the following question:

Hi Monks, Below is the code.

 my @files = File::Find::Rule->name(qr/UFLEX.*stdf$/)
                               ->file()
                               ->in(cwd());
 
foreach my $file (@files) {

print "$file\n";
[download]

The output is :

/datalogs/TD+/prod/temp/UFLEX13_UD16B208.1apr25_03_45.stdf

I was expecting just the actual file name to be assigned to $file. Why is the path concatenated to my variable? If I use the "dot" to specify current working directory instead of cwd() it works well but then it's searching all the hidden dirs as well when the script is run through cron. My goal is to avoid running hidden . directories. Thanks for reading and helping. Deshdaaz.

Comment on File path added to file name variable Select or Download Code

Replies are listed 'Best First'.
Re: File path added to file name variable by toolic (Bishop) on May 07, 2013 at 23:58 UTC
To get just `UFLEX13_UD16B208.1apr25_03_45.stdf`, you can use File::Basename in your foreach loop: `foreach my $file (@files) { print basename($file), "\n"; }` [download] I can't find any mention of basename in File::Find::Rule.	[reply] [d/l] [select]
Re: File path added to file name variable by deshdaaz (Novice) on May 08, 2013 at 00:07 UTC
Never mind. Maxdepth does the trick.	[reply]