version 1.1, 2003/11/14 19:52:10
|
version 1.2, 2003/11/14 20:41:48
|
Line 78 while (my $resDBname = shift()) {
|
Line 78 while (my $resDBname = shift()) {
|
my $src; |
my $src; |
next if (! ((undef,$src) = ($key =~ /^(.*)___(.*)___count/))); |
next if (! ((undef,$src) = ($key =~ /^(.*)___(.*)___count/))); |
my $value = &unescape($value); |
my $value = &unescape($value); |
|
$src = &escape($src); |
if (exists($accessDB{$src})) { |
if (exists($accessDB{$src})) { |
$accessDB{$src}+=$value; |
$accessDB{$src}+=$value; |
} else { |
} else { |
Line 101 while (my $resDBname = shift()) {
|
Line 102 while (my $resDBname = shift()) {
|
exit; |
exit; |
|
|
###################################### |
###################################### |
|
sub escape { |
|
my $str=shift; |
|
$str =~ s/(\W)/"%".unpack('H2',$1)/eg; |
|
return $str; |
|
} |
|
|
sub unescape { |
sub unescape { |
my $str=shift; |
my $str=shift; |
$str =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; |
$str =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; |