CGI mit redirect() (solved) (Perl/CGI)

[thread]17048[/thread]

CGI mit redirect() [solved]

Tags: perl5 CGI Similar Threads

Readers: 11

Articles: hide open all | hide show old branches

+3 replies
miwieg

2012-01-07 14:51
User since
2006-07-16
59 articles
BenutzerIn
Hallo,

Ich möchte ein CGI-Perlskript schreiben, dass wenn es einen bestimmten Parameterwert bekommt, keine HTML-Seite generiert sondern auf eine URL umleitet (d.h. ein weiteres CGI-skript).
Dafür benutzt man doch "redirect()", oder?

Mein aktueller Code (siehe unten) funktioniert leider nicht ("perl -c" gibt jedoch OK):
Code: (dl )

1 2 3 4 5 6 7 8 9

#! /usr/bin/perl use strict; use CGI qw(:standard); my $option = param("type"); if($option eq "newQuery"){ redirect($hostURL .'/cgi-bin/I/relationIQuery.pl?type=list'); } elsif($option eq "similarExtractI"){ # some HTML file is generated }
Kann mir jemand sagen, was ich falsch mache?

Vielen Dank im Voraus.
- +2 replies
- GwenDragon
  
  2012-01-07 14:57
  User since
  2005-01-17
  14816 articles
  Admin1
  Da Fehlt die Ausgabe mit print.
  Siehe auch https://metacpan.org/module/CGI#GENERATING-A-REDIR...
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9
  
  #! /usr/bin/perl use strict; use CGI qw(:standard); my $option = param("type"); if($option eq "newQuery"){ print redirect($hostURL .'/cgi-bin/I/relationIQuery.pl?type=list'); } elsif($option eq "similarExtractI"){ # some HTML file is generated }
  
  Davon mal abgesehen, dass in deinem Beispiel die Definition von $hostURL fehlt.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - miwieg
    
    2012-01-07 15:04
    
    User since
    2006-07-16
    59 articles
    BenutzerIn
    
    Ja, klappt! Vielen Dank!!!
    
    Übrigens, die Definition von $hostURL war drin.
    Ich hatte den angegebenen Code auf das Nötigste gestutzt. Dabei hatte ich leider die Definition von $hostURL übersehen.

View all threads created 2012-01-07 14:51.