Hi roadtest,

You have a number of issues, all of which are very minor.

For one thing, note that @owner and %owner are separate things (the first is an array, the second a hash), and you don't ever declare the hash:

my %owner = ( );
[download]

You should also (though you didn't ask about this) check the return value from open, otherwise (as I did) you could get a confusing error message like "readline() on closed filehandle FILE at C:\test\x.pl line 10".  Here's a simple fix for that:

    open (FILE,"cron.log") or die "Can't open 'cron.log -- here's why:
+  $!\n";
[download]

but even better than that is to use the 3-arg open statement instead of the 2-arg version, which (along with lexical filehandles) is considered better programming practice:

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 ...
[download]

It might be better to break next if (split /[ ]+/)[1] !~ /oracle|sybase/ ; into multiple lines:

    my @split  = split /[ ]+/;
    my $split1 = $split[1] || "";
    next if ($split1 !~ /oracle|sybase/)
[download]

so that when your input file doesn't contain what you expect, or something else goes wrong, you can debug the values in @split, or the value of $split1 (which might be undefined; hence my converting it to "").

You don't need to do (keys %{$owner} (which you've done in two or three places), it suffices to do (keys %owner) to get the keys of the hash.

Here's a version that runs without warnings:

#!/usr/bin/perl
use strict;
use warnings;
use Date::Manip;
use IO::File;

my @owner = qw/oracle sybase/;
my %owner = ( );

my $fh = new IO::File("cron.log") or die "Can't open 'cron.log' ($!)\n
+";
while(<$fh>) {
    chomp;
    my @split  = split /[ ]+/;
    my $split1 = $split[1] || "";
    next if ($split1 !~ /oracle|sybase/);
    my ($mode,$owner,$job_id,undef,undef,undef,undef,$timestamp,undef)
+ = 
            split /[ ]+/;

#get same jobID finish timestamp and calculate difference, 
#then save back
    ${owner}{$job_id} = DateCalc (${$owner}{$job_id},$timestamp)
            if ($mode=~ /^>/);
}
close $fh;

foreach my $owner(@owner) {
    foreach (keys %owner) {
        print "$owner - JobID:$_ - RunTime:${$owner}{$_}\n";
    };
}
[download]

Now you can focus on whether the program is working as you wish...

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.