Help for this page
my %owner = ( );
open (FILE,"cron.log") or die "Can't open 'cron.log -- here's why: + $!\n";
use IO::File; my $fh = new IO::File("cron.log", "r") or die "Can't open 'cron.log' ( +$!)\n"; # Now use $fh in place of FILE ...
my @split = split /[ ]+/; my $split1 = $split[1] || ""; next if ($split1 !~ /oracle|sybase/)
#!/usr/bin/perl use strict; ... print "$owner - JobID:$_ - RunTime:${$owner}{$_}\n"; }; }
www.com | www.net | www.org
No recent polls found