Meddelande

Minska
No announcement yet.

Perl fråga

Minska
X
  • Filter
  • Klockan
  • Show
Clear All
new posts

  • Perl fråga

    Jag har en kodsnutt enligt följande:

    Kod:
    $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....app/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 URLn visa www.domain.se/mapp/index.html när scriptet har körts.

    Så jag antog att man ska skriva:
    Kod:
    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.
    Mvh
    Haider

  • #2
    Kanske:

    [kod]print "Status: 301 Moved Permanently\r\n";
    print "Location: ", $FORM{url}, "\r\n\r\n";[/kod]

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

    Kommentera

    Working...
    X