Help for this page

Select Code to Download


  1. or download this
    use Time::Seconds;
my @LIST = map {
...
  print join("\t", @{$_}) ."\n";
}
  2. or download this
    Oracle  server1 FILESYSTEM ALERT        WARNING 85% FULL        8     
+  23 hours, 30 minutes, 4 seconds
Oracle  server2 FILESYSTEM ALERT        WARNING 85% FULL        5     
+  21 hours, 59 minutes, 59 seconds
Oracle  server1 BACKUP ALERT    DAILY   1       0 seconds
  3. or download this
    my ($ts1,$ts2) = (sort (keys %{$ERROR1{$group}->{$host}->{$service}->{
+$state}}))[0,-1];