my @fields = ();
my %fields = ();
while ( <LOG> ) {
chomp;
if ( m/^#/ ) {
if ( s/^#Fields: // ) {
@fields = split(/ /, $_);
}
next;
}
@fields{@fields} = split(/ /, $_);
my $uri = $fields{'cs-uri-stem'};
# The rest is left as an exercise
In reply to Re: Parsing a log file
by Anonymous Monk
in thread Parsing a log file
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |