|
raghu_shekar has asked for the wisdom of the Perl Monks concerning the following question:
hi. This question might sound pretty simple to you guys, hope u can help me out here. I want to go to a directory, list all the files there, check each one of them against a particular name and extension(eg dump*txt), open the file and update it. I have managed mostly everything but im just failing at comparing. <IF $test eq (dump*txt)>
Can you please help me out with achieving this. |
Re: search a particular file
by cdarke (Prior) on Mar 10, 2010 at 12:14 UTC
|
I think you are confusing UNIX/Linux shell pattern matching with Perl. Perl uses Extended Regular Expressions for its pattern matching, it only uses shell patterns for filename expansions (globbing). Your if statement should be something like this: if ($test =~ /^dump.*txt$/) { ... }
Notice, lower case if with the condition in parentheses.
Update: corrected RE | [reply]
[d/l] |
Re: search a particular file
by Anonymous Monk on Mar 10, 2010 at 10:47 UTC
|
| [reply] |
A reply falls below the community's threshold of quality. You may see it by logging in. |
Re: search a particular file
by rovf (Priest) on Mar 10, 2010 at 11:00 UTC
|
In addition to the response you already got, note that the angle operator, when given a glob pattern, returns a list of files matching the pattern
my @files=<dump*txt>
Also have a look at File::DosGlob and perlre.
--
Ronald Fischer <ynnor@mm.st>
| [reply]
[d/l] |
Re: search a particular file
by ungalnanban (Pilgrim) on Mar 10, 2010 at 12:30 UTC
|
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>
--sugumar--
| [reply]
[d/l] |
|
|
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";
}
}
here the @lis has all the different files in the directory... but the specific file is not fetched.. | [reply]
[d/l] |
|
|
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] |
|
