Help for this page

Select Code to Download


  1. or download this
    if (exists $db{$url}) {
my $value = $db{$url};
...
$db{$url} = 1;
print "Location: $url\n\n";
}
  2. or download this
    $db{ $url } ++;
print "Location: $url\n\n";