Hey all - I am trying to learn perl and I know that key to this is a deep
understanding of regular expressions. I attempted to write a little tool
that would allow me to test out regular expressions on multiple files (I'm
thinking an email archive search tool at this point).
In the first incarnation I would test against each line of a file and then
rewrote it so that I can test against all the contents of a file (basically
one big string variable). It works but can anyone tell me what the best way
to report where in the file the match occurs? Also, is there a quicker way
of getting the contents of a file in a string rather than my loop?
Here is the code:
#finding regular expressions in perl>>
print "Enter a regular expression to use \n";
my $regexp = <STDIN>;
chomp $regexp;
print "Your regular expression is $regexp \n";
my $s="";
while(defined($foo = <c:/davidcode/perlbeast/*.secret>)){ #or whatever file
path you want...
$foo =~ s#.*/##;
open(TEST,$foo) || die "cannot open file";
while(defined($line = <TEST>)){
$s = $s . $line;
}
if($s =~ /$regexp/){
print "match \n";
}
close(TEST) || die "cannot close file";
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
