I have asked the user to give a name of a file, the userid, and time. I need to sort through
this file with the userid and time, keeping all information pertinent to that line, then later
print the results in order of line. I don't have much. This is my first attempt:
#!/usr/bin/perl
print "Please enter trace file name"
$tracefilename = <STDIN>;
chomp $tracefilename;
print "Please enter agent extension"
$agentextension = <STDIN>;
chomp $agentextension;
print "Please enter time"
$time = <STDIN>;
chomp $time;
open (THATFILE, "$tracefilename") ||
die "cannot open $tracefilename: $!";
foreach $line (@lines) {
# now I'm stuck!!!
Edit 2001-03-12 by tye to add <code> tags