jleecong — Fri, 09 Jun 2000 17:22:00 +0000

I have looked at them quit a few times It is very hard learning something that you can do 5 different ways. I have tried lots of differnt stuff however they either don't work or are not the results that I want. Anyway this is the code that I am using now.

#####################################################
# TxT Searcher v1.1 #
#####################################################
# By: Justin Congdon #
# #
#####################################################
print "Please enter the file you want to search: ";
$path = <STDIN>;
chomp $path;
open(PATH,$path) | | die "Error couldn't open $path, Error";
@Path = <PATH>;
print "Please enter what you would like to search for: ";
$search = <STDIN>;
chomp $search;
$search =~ tr/A-Z/a-z/;
print "Searching....\n";
@results = grep {/$search/} @Path;
foreach $List (@results){
($ip,$usr,$env,$y,$date,$when,$prox,$prox1,$****,$add,$ip1,$****1,$****2,$****3,$****4,$****5,$****6,$****7,$fadd,$type,$****8,$****9,$****10) = split(/,/,$List);
print "\nYour search found the following results:\n\n$usr |$add |$when |$date \n\n" if ($List);
}
I formated the output some. But would like the results to look cleaner. I also need a if,else statment so if nothing is found in the file it will tell you instead of just going to the C prompt and if something is found it won't keep repeating (Your search found lalalala....)

Thanks

[This message has been edited by jleecong (edited 09 June 2000).]

Orpheus — Thu, 08 Jun 2000 17:05:00 +0000

Read http://www.cpan.org/doc/manual/html/pod/perlre.html it's a good tutorial on regular expressions. Since your pretty new to Perl you probably don't know what those are so I really suggest you read them.