---
title: "Skriver fel på filen"
type: "forum-thread"
url: "https://www.webforum.nu/amne/perl-ruby/19017-skriver-fel-på-filen"
topic: "Perl & Ruby"
topic_url: "https://www.webforum.nu/amne/perl-ruby"
author: "Asterix"
published: "2000-04-14T07:17:00.000Z"
updated: "2000-04-18T19:41:00.000Z"
replies: 3
views: 390
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/19017-skriver-fel-på-filen"
---

# Skriver fel på filen

## #1 — Asterix, 2000-04-14T07:17Z

Vad är det för fel på följande kod? Jag kan inte hitta några fel men när den skriver den sista strängen till filen så skrivs den inte på en ny rad utan forsätter på den raden som man skrivit innan.

```
print WRITE "$FORM{'linkpath'};$FORM{'linkname'}\n";
```

Hela koden ser ut så här:

```
#!/usr/bin/perl

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);

print "Content-type:text/html\n\n";
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;
}

$data = $FORM{'namn'};

open(DATA, $data);
@lines = <DATA>;
close(DATA);

open(WRITE,">$data"); 

print WRITE "@lines[0]\n";
print "$buffer<br>";
print "@lines[0]<br>";

$nr = 0;
foreach $line (@lines) {
	$nr++;
	if ($nr ne "1") {
		if ($FORM{$nr} ne "on") {
			print WRITE "$line\n";
			print "$line<br>";
		}
 	}
}

if ($FORM{'linkname'} ne "") {
	print WRITE "$FORM{'linkpath'};$FORM{'linkname'}\n";
	print "$FORM{'linkpath'};$FORM{'linkname'}";
}

close(WRITE);
```

För att kolla på sidan där skriptet finns gå till  <http://www.settlers.org/staff/emil/xlinks> och logga in med Demo och demo, välj sedan edit links

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

## #2 — Asterix, 2000-04-14T14:09Z

Jag löste det själv!

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

## #3 — woodi, 2000-04-14T21:12Z

Vad var felet!?

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

## #4 — Asterix, 2000-04-18T19:41Z

Jag skrev \\n på ett annat ställe så blev det rätt

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

---

Tråden på webben: https://www.webforum.nu/amne/perl-ruby/19017-skriver-fel-på-filen