Help for this page

Select Code to Download

Select or download this
```
$log_line =~ s/"GET.*"h/ /;
```

Select or download this


foreach my $log_line(@log_data) {
  my ($date_string,$referrer) = ($log_line =~ /\[([^\]]+)\] "[^"]+"[^"
+]+"([^"]+)"/);
  print "$date_string,$referrer<P>\n";
}