---
title: "Ett script som bara skickar vidare..."
type: "forum-thread"
url: "https://www.webforum.nu/amne/perl-ruby/73702-ett-script-som-bara-skickar-vidare"
topic: "Perl & Ruby"
topic_url: "https://www.webforum.nu/amne/perl-ruby"
author: "MoneyOpps.nu"
published: "2003-04-10T10:22:10.000Z"
updated: "2003-04-13T12:09:09.000Z"
replies: 5
views: 354
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/73702-ett-script-som-bara-skickar-vidare"
---
# Ett script som bara skickar vidare...
## #1 — MoneyOpps.nu, 2003-04-10T10:22Z
Hur gör man ett script som bara kollar några variabler i url:n och sen skickar vidare till en annan adress?
Det är en .pl-fil det gäller om det spelar någon roll.
Permalänk: https://www.webforum.nu/p/73702
## #2 — Joakim, 2003-04-10T12:44Z
Vad menar du med kollar? Skall det sparas, eller skall variablerna påverka vart besökaren blir hänvisad?
// Joakim
Permalänk: https://www.webforum.nu/p/1007767
## #3 — nordan, 2003-04-10T22:19Z
Så här kanske
```
www.doman.se/scriptet.pl?url=1
```
```
#!/usr/bin/perl
use CGI;
$url = CGI::param('url');
if($url == 1)
{
print "Location:http://www.aftonbladet.se \n\n";
}
elsif($url == 2)
{
print "Location: http://www.expressen.se\n\n";
}
else
{
print "Content-type: text/html\n\n";
print "Oops";
}
```
Permalänk: https://www.webforum.nu/p/1008058
## #4 — Hansen, 2003-04-10T22:38Z
Kanske så här:
```
#!/usr/bin/perl
use strict;
use warnings;
use CGI;
my $q = new CGI;
my $id = $q->param('id');
if ( defined $id && $id =~ /^\d+$/ ) {
# select url from url where id = $id
# update url set visits=visits+1 where id=$id
# print $q->redirect($url);
}
else {
print
$q->header,
$q->start_html( -title => 'Hoppsan' ),
$q->p("Ogiltigt id: $id"),
$q->end_html;
}
```
\* två förslag samtidigt, inte illa ;o) \*
Permalänk: https://www.webforum.nu/p/1008068
## #5 — MoneyOpps.nu, 2003-04-11T06:52Z
Tack för eran hjälp.
Det var precis det jag var ute efter.
Ska testa om det fungerar senare ikväll.
Tack!
Permalänk: https://www.webforum.nu/p/1008154
## #6 — kimu, 2003-04-13T12:09Z
Kanske lite sent nu. Men här är en variant av Hansens kod som inte kräver CGI-modulen, så du slipper den tid det tar att starta den. Men kör du mod_perl så är det hugget som stucket.
```
#!/usr/bin/perl
use strict;
use warnings;
my(%query, $key, $value);
map {($key, $value) = split /=/; $query{$key}=$value} split(/;|&/, $ENV{"QUERY_STRING"});
my $id = $query{"id"};
if ( defined $id && $id =~ /^\d+$/ ) {
# select url from url where id = $id
# update url set visits=visits+1 where id=$id
# print "Location: $url\r\n\r\n";
}
else {
print "Content-type: text/html\r\n\r\n",
"Hoppsan",
"Ogiltigt id
";
}
```
Permalänk: https://www.webforum.nu/p/1009747
---
Tråden på webben: https://www.webforum.nu/amne/perl-ruby/73702-ett-script-som-bara-skickar-vidare