Re: search a particular file

See the following sample code.
it will match the file name starting with dump and followed by some text and ending with.txt

#!/usr/bin/perl
use strict;
use warnings;


my @files = qw(dump123.txt abc dump124.txt 123 xyz 12dumpa.txt);

foreach (@files)
{
    if ( $_ =~ m/^dump.*txt$/)
    {
        print $_."\n";
    }
}
<br>
[download]

--sugumar--

Comment on Re: search a particular file Download Code

Replies are listed 'Best First'.
Re^2: search a particular file by raghu_shekar (Novice) on Mar 11, 2010 at 04:14 UTC
Hi, Here find the piece of code im using.. pls tell me where im going wrong... i took all your advice and since glob din workout i did the last piece of code. here it is #!/usr/bin/perl $path = "path to the directory"; chomp($path); chdir($path); @lis = `ls`; foreach (@lis) { if ($_ =~ m/^dump*txt$/) #say the file i want is dump_234_129_15.txt { print $_."\n"; } } [download] here the @lis has all the different files in the directory... but the specific file is not fetched..	[reply] [d/l]
Re^3: search a particular file by raghu_shekar (Novice) on Mar 11, 2010 at 04:21 UTC
Hi All, I managed to find the mistake i was doing..U guys have been very very helpful.. i missed out the . `if ($_ =~ m/^dump.*txt$/)` in the if statement. So i guess the script was looking for a file starting with dump and ending with txt. but now its working fine.. Thanks a lot.. you guys rock.. will be back for more... :)	[reply] [d/l]