in reply to illegal division by zero

Maybe you should do a proper debugging:
use Data::Dumper;
print Dumper($db{$_});
my ($starttime, $filename, $pageurl, $exposure, $clicks) = split(/\|\|
+/, $db{$_});
print Dumper($starttime);
print Dumper($filename);
print Dumper($pageurl);
print Dumper($exposure);
print Dumper($clicks);

[download]

then you would exactli know, what the contents of your variables are ...
Imre

Replies are listed 'Best First'.
Re: Re: illegal division by zero
by Anonymous Monk on Jan 30, 2004 at 08:58 UTC
    Maybe you should do a proper debugging

    Or even better:

    print Data::Dumper->Dump([\%db, $starttime, $filename, $pageurl, 
        $exposure, $clicks],
        [qw(db starttime filename pageurl 
        exposure clicks)]);
__OUTPUT__

$db = {
    'key' => '6    fface.gif    http://www.go.com   19   8  4 '
      };
$starttime = '6';
$filename = 'fface.gif';
$pageurl = 'http://www.go.com';
$exposure = '19';
$clicks = '8';

    [download]
[reply]
[d/l]
      THAT looks good, but consider answer fron Caron:
      you are using 
      $exposures
         ^

      [download]

      (plural) which is probably not defined.
      You should definitely use 
      use strict;

      [download]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom