Help for this page

Select Code to Download


  1. or download this
    Array found where operator expected at check.pl line 82, at end of lin
    +e
            (Missing operator before ?)
    
  2. or download this
            if (@data = ($line =~ STATUS_COMPLETED_RE )) {
                $stats{level} = $shift @data;
                $stats{group} = $shift @data;
                $stats{total} = $shift @data;
            }
    
  3. or download this
    use constant 
    STATUS_COMPLETED_RE => qr{ ^string-here \s string-here: \s
    ...
                             }xms
                             ;