---
title: "Perl"
type: "forum-thread"
url: "https://www.webforum.nu/amne/programmering/18960-perl"
topic: "Programmering"
topic_url: "https://www.webforum.nu/amne/programmering"
author: "Rödalacket"
published: "2000-02-20T13:10:00.000Z"
updated: "2000-02-22T20:05:00.000Z"
replies: 5
views: 400
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/programmering/18960-perl"
---

# Perl

## #1 — Rödalacket, 2000-02-20T13:10Z

Har skrivit ett script som ser ut så här:#!/usr/bin/perl

$info = $ENV {'QUERY_STRING'};

$info =\~ tr/+/  /;
$info =\~ s/%(..) / pack("c",he x($1))/ge;

@data = split (/&/, $info);
print data\[0\]
print data\[1\]

foreach $i (@data)	{
		($ruta, $text) = split(/=/, $i);
		$info{$ruta} = $text;
		
	}
open (GAST, "\>\>gast.txt");
print GAST $info('name');
print GAST $info('email');
close (gastbok);
	print "Content-type:text/html\\n\\n";
	print \<\<End_of_html;
\<html\>
\<head\>
\<title\>Tack\</title\>
\<body bgcolor="grey"\>
\<h2\>Tack för att du fyllde i formul&auml;ret\</h2\>
\</body\>
\</html\>
End_of_html

exit;

och HTML-formuläret ser ut så här:
\<form action="http://localhost/cgi-bin/ns.pl" method="get"\>
\<table border=0\>
\<tr\>\<td\>Namn:\</td\>\<td\>\<input type="text" name="name" size=40\>\</td\>\</tr\>
\<tr\>\<td\>E-mail:\</td\>\<td\>\<input type="text" name="email" size=40\>\</td\>\</tr\>
\<tr\>\<td colspan=2\>\<input type="submit" value="Skicka"\>\</td\>\</tr\>

Det jag vill är att det man skriver in i Namn och E-mail skall skrivas till gast.txt, men f-n (sorry) det funkar inte....
HJÄLP

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

## #2 — Rödalacket, 2000-02-20T13:12Z

Nu blev det en liten fuling dä uppe....
det skall vara ett x och ett ( där istället får  x(

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

## #3 — emission, 2000-02-21T00:44Z

print data\[0\]
print data\[1\]

semikolon.....

Du stänger fel filehandle

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

## #4 — Rödalacket, 2000-02-21T20:46Z

Har fixat det men det funkar iaf inte... \*suck\*

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

## #5 — OlleBoop, 2000-02-22T18:07Z

Egentligen har jag noll pejl på Perl men har du provat print GAST "$info('name')";??

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

## #6 — Csson, 2000-02-22T20:05Z

Det ska vara:

print GAST $info{'name'};
print GAST $info{'email'};

/Csson

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

---

Tråden på webben: https://www.webforum.nu/amne/programmering/18960-perl