---
title: "Perl fråga"
type: "forum-thread"
url: "https://www.webforum.nu/amne/perl-ruby/177746-perl-fråga"
topic: "Perl & Ruby"
topic_url: "https://www.webforum.nu/amne/perl-ruby"
author: "haider"
published: "2009-03-30T10:37:39.000Z"
updated: "2009-03-30T11:30:44.000Z"
replies: 1
views: 1081
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/177746-perl-fråga"
---

# Perl fråga

## #1 — haider, 2009-03-30T10:37Z

Jag har en kodsnutt enligt följande:

```
$query = $ENV{'QUERY_STRING'};
($name, $value) = split(/==/, $query);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
```

(En del av koden kan vara onödig, men jag har tagit koden från ett tidigare script.)

Scriptet läser av en URL och separerar datan därifrån.
Alltså:

<http://www.domain.se/cgi-bin/script.pl?url==/mapp/index.html>

Vad jag skulle vilja göra är att den ersätter sidan jag kommer in i med /mapp/index.html, en redirect av något slag. Allra helst ska URL:en visa <https://www.domain.se/mapp/index.html> när scriptet har körts.

Så jag antog att man ska skriva:

```
open (file, $FORM{url};
print <file>;
close (file);
```

Är det rätt?
Eller finns något enklare sätt?

Jag behöver skriva om länkarna till en sida som tidigare använt cgi script. Förhoppningen är att google så småningom indexerar bort cgi-delen och att det som kvarstår är den korrekta adressen.
Under tiden vill jag inte bryta länkarna utan jag vill att perl scriptet ska vidarebefordra trafiken till rätt plats.

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

## #2 — tydal, 2009-03-30T11:30Z

Kanske:

```
print "Status: 301 Moved Permanently\r\n";
print "Location: ", $FORM{url}, "\r\n\r\n";
```

Har dock inte skrivit något i Perl på väldigt länge...

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

---

Tråden på webben: https://www.webforum.nu/amne/perl-ruby/177746-perl-fråga