Help for this page

Select Code to Download

Select or download this

while(my $s1 = <LOG>){
  next unless $s1 =~ m#^(\d+/\d+/\d+) (\d+:\d+:\d+) user=(\S+) func\(#
+;
...
    ...   # $s2 is log data
  }
}