RE: directory operations

[Tim Johnson]

If you did want to filter based on a regular expression, you can always do it the long 
way:
 
opendir(DIR,".") || die;
my @file_list = readdir(DIR);
foreach my $file(@file_list){
     if(-f $file && ($file =~ /Place Regex Here/)){
          #do something...
     }
}
 
You get the general idea.  Also, if you want to do a recursive search, look into the 
standard File::Find module.
 

        -----Original Message----- 
        From: Randy W. Sims [mailto:[EMAIL PROTECTED] 
        Sent: Thu 4/1/2004 2:02 AM 
        To: MuthuKumar 
        Cc: [EMAIL PROTECTED] 
        Subject: Re: directory operations
        
        

        [snip]

        

        > my @file_list = </*.txt/>
        > foreach $file (@file_list){
        > file loop
        > <snip>.
        > close(file-handle);
        > }
        >
        > I have checked like this.. i did not get any response at all..
        > No files are stored in the array too. what is wrong with this.. and how to
        > accomplish this.
        
        my @file_list = <*.txt>;