perl run this program like perl name.pl path stringtofound

[tijenderpopli]

#!/bin/perl
$datadir = $ARGV[0];
$strtofind = $ARGV[1];
opendir(cldDir, "$datadir") || die "Cannot opendir $data_dir";
foreach $cldFileName (sort readdir(cldDir)) {
$temp=index($cldFileName,$strtofind);
if($temp >= 0)
{
print $cldFileName;
open(DATA_FILE_HANDLE, "<".$datadir.$cldFileName);
foreach $each_line (<DATA_FILE_HANDLE>){
# print $each_line;
}
close(DATA_FILE_HANDLE);
}
}



Edited 1 time(s). Last edit at 11/21/2006 07:29AM by tijenderpopli.