Help for this page

Select Code to Download


  1. or download this
    package Service::ParseLog;
    use strict;
    ...
      return wantarray ? @service : !$self->{is_parsing};
    }
    
  2. or download this
    my $log = new Service::ParseLog("servlog.txt");
    while ($log->read_service()) {
    ...
    if ($log->{is_parsing}) {
      # Incomplete last service
    }