Vad är det för fel på följande kod:
<BLOCKQUOTE><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Perl-kod:<pre>#!/usr/bin/perl
############################################################
#
# Configuration
#
############################################################
$url = "http://www.settlers.org/files/maps/s3";
############################################################
$buffer=$ENV{'QUERY_STRING'};
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/</\<\;/g;
$value =~ s/>/\<\;/g;
$FORM{$name} = $value;
}
open(READ, "maps.txt");
@lines = <READ>;
close(READ);
open(WRITE, ">maps.txt");
foreach $line (@lines) {
if ($line =~ /$FORM{'file'}/g) {
chomp($line);
($filename, $hits, $name, $size, $author, $map, $players) = split(/\|/, $line);
$hits++;
print WRITE "$filename|$hits|$name|$size|$author|$map|$players\n";
# print "$filename|$hits|$name|$size|$author|$map|$players<br>";
} else {
print WRITE $line;
# print "$line<br>";
}
}
close(WRITE);
print "Location: $url/$FORM{'file'}.zip"
Jag skulle gissa att det är något med sista raden men mer vet jag inte.
------------------
/Emil Hesslow