in reply to Parsing a log file
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
|
|---|