testing for multiple files 2

[MoshiachNow]

HI,

I guess it's an easy one.

I have multiple files in my dir like At21.job,At13.job,etc

I need to test for at least one file of this type existence.
The following line does not seem to do the job:

unless (-f "<At*.job>") {

I have also tried: unless (-f "At*.job") {

and : unless (-f "At.*") {


Appreciate any ideas.



Long live king Moshiach !

http://www.7for70.com/

 

[1DMF]

try

if(-e "At*.job"){ exits , do what ever }

also I always use the entire path when i use file operators, don't know if it makes a difference.

i.e,

my $file = "PATH_TO_FILE/At*.job";
if(-e $file){do whatever};

"In complete darkness we are all the same, only our knowledge and wisdom separates us, don't let your eyes deceive you.

 

[MoshiachNow]

Thanks,

tried the above,still no good.

Long live king Moshiach !

http://www.7for70.com/

 

[1DMF]

how about....

# get all files 
my @files = glob('DIR_TO_FILES/*');
my $OK = 0;
# Loop 
for(@files){
   if($_ =~ m/At/gi){  $OK = 1; }
}

if($OK){ Do what ever }

"In complete darkness we are all the same, only our knowledge and wisdom separates us, don't let your eyes deceive you.

 

[1DMF]

also to make it more efficient as there is no point in continuing once match is made..

 # get all files 
my @files = glob('DIR_TO_FILES/*');
my $OK = 0;
# Loop 
for(@files){
   if($_ =~ m/At/gi){  $OK = 1; last;}
}
if($OK){ Do what ever }

"In complete darkness we are all the same, only our knowledge and wisdom separates us, don't let your eyes deceive you.

 

[MoshiachNow]

Works fine,Thanks

But is there no easier solution ?

Long live king Moshiach !

http://www.7for70.com/

 

[1DMF]

probably, this is a case of the blind leading the blind i'm afraid ;-)

also note that my example will match 'At' anywhere, that includes any part of the file path as well as name!

So ensure none of your directories have 'At' in them.

I'm sure one of the PERL guru's will be able to offer a 'better' solution, I guess the -e with the correct syntax should do it, but maybe you can't use wild cards the way you want to.


Also I noticed the example i gave ring case, so should be.

if($_ =~ m/At/g){  $OK = 1; last;}

if you are any good at regexe's you might also want to make it a better match like so...

if($_ =~ m/At[^>]*.job/g){  $OK = 1; last;}

I think that's correct to say must match 'At'..[Anything]'.job' , but i'm not that great at regex's



"In complete darkness we are all the same, only our knowledge and wisdom separates us, don't let your eyes deceive you.

 

[1DMF]

or maybe...

if($_ =~ m/At+[0-9].job/g){  $OK = 1; last;}

to match 'At'[numbers]'.job'


"In complete darkness we are all the same, only our knowledge and wisdom separates us, don't let your eyes deceive you.

 

[rharsh]

This might help:

chdir 'c:/test/';
print "$_\n" for <At*.job>;

 

[Kirsle]

Try a grep:

my $files = grep (/At[0-9]+\.job/, glob('DIR_TO_FILES/*'));

if ($files == 0) {
   print "no files matched";
}
else {
   print "there were $files files";
}

$files would return true all the time as long as it's not zero, so that

if ($files) {

would return true only if there was at least one file found.

 

[MoshiachNow]

Thanks to all,

chdir 'c:/test/';
print "$_\n" for <At*.job>;

was the shortest solution.


Long live king Moshiach !

http://www.7for70.com/

 

[1DMF]

lol PERL, the beauty of more than one way to do it, now where did I put the cat?

"In complete darkness we are all the same, only our knowledge and wisdom separates us, don't let your eyes deceive you.

 

[ishnid]

lol PERL, the beauty of more than one way to do it, now where did I put the cat?

Definitely the best Perl quote I've heard in months.

 

[1DMF]

Thanks Ishnid, i'm suprised you didn't add your 2 pence worth on how you'd have done this ;-)

"In complete darkness we are all the same, only our knowledge and wisdom separates us, don't let your eyes deceive you.

 

[ishnid]

Is that an invitation? ;-)

Probably something like:

if ( glob '/path/to/At*.job' ) {
   # at least one exists matching that pattern
}

 

[1DMF]

knew you had it in you!

"In complete darkness we are all the same, only our knowledge and wisdom separates us, don't let your eyes deceive you.

 

[bluegroper]

You can write faster code than perl, but you can write code faster with perl."

My perennial favourite.
-BG