thats the output format i'm looking for, just that the data is coming from a logfile.
the script takes a URI from STDIN and parses the file based upon the fields of each line. so if i typed in:
/profileQuery
i get these results:
URI Date Seconds Fil
+e Size
----------------- --------------------- ------- ---
+------
/profileQuery [06/Apr/2004:13:40:36 0
+893
URI Date Seconds Fil
+e Size
----------------- --------------------- ------- ---
+------
/profileQuery [06/Apr/2004:13:41:12 0
+867
URI Date Seconds Fil
+e Size
----------------- --------------------- ------- ---
+------
/profileQuery [06/Apr/2004:13:41:23 0
+883
while that is ok if there are just a few entries for that URI in the log, not so much if there are several hundred. i found some documentation for the field specifiers.. but those were for Perl 6 and didnt work.
here is a snip of the code that looks at the log fields
while(<DB>) {
$Recs = $_;
chomp($Recs);
($IP, $Host, $Dash, $Date, $TZ, $Method, $URL, $Pro, $Status, $Tim
+e, $Size)
=
split(' ', $Recs);
if($URL eq $SearchFor) {
$SuccessCount = $SuccessCount + 1;
|