---
title: "Vad är det för fel på mitt script?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/perl-ruby/19021-vad-är-det-för-fel-på-mitt-script"
topic: "Perl & Ruby"
topic_url: "https://www.webforum.nu/amne/perl-ruby"
author: "Asterix"
published: "2000-04-25T13:19:00.000Z"
updated: "2000-04-25T13:23:00.000Z"
replies: 1
views: 355
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/perl-ruby/19021-vad-är-det-för-fel-på-mitt-script"
---

# Vad är det för fel på mitt script?

## #1 — Asterix, 2000-04-25T13:19Z

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.

Permalänk: https://www.webforum.nu/p/19021

## #2 — Asterix, 2000-04-25T13:23Z

Jag löste det. Jag hade ju glömt att skriva \\n\\n sist på sista raden.

Permalänk: https://www.webforum.nu/p/340539

---

Tråden på webben: https://www.webforum.nu/amne/perl-ruby/19021-vad-är-det-för-fel-på-mitt-script