unix grep to perl

[soniamadtha]

hello everyone,


i have the following values : 98000345 and i would like to search this value in all of the sql files in the directory /temp/*sql

normally on unix its grep( ' 98000345 ' ,/temp/*sql)

however in perl the grep is used somehow in a different way : grep(EXPR,ARRAY/LIST)

could anyone suggest how do i implement...grep( ' 98000345 ' ,/temp/*sql) in perl ?

thank u in advance

[shrek123]

You can do this by first opening the directory where your files are present and then implement grep.

opendir(DIR,"/temp");    # temp is the directory where your SQL files are 
                         # present
my @files = grep {/\.sql$/i} readdir(DIR);   # @files will contain all the .sql 
                                             # files of your folder.
 

Now, you can use grep on the files array.
Regards,
Shrek123

[miller]

Unix grep and Perl grep are not directly related. Instead, if you want the functionality of unix grep, then you must either access it directly via a system command, or program the logic yourself.

Here is a quick and dirty method for doing what you describe:

use strict;
 
my $dir = '/temp';
opendir(DIR, $dir) or die "Can't open $dir: $!";
 
FILE:
while (readdir(DIR)) {
    next if !/sql$/;
 
    my $file = "$dir/$_";
 
    local *FH;
    open(FH, $file) or die "Can't open $file: $!";
    while (<FH>) {
        if (/ 98000345/) {
            print "$file\n";
            next FILE;
        }
 
    }
    close(FILE);
}
closedir(DIR);
 

- Miller

[soniamadtha]

hey,

thank u..it helped me a lot..

regards
Sonia