URL aufrufen

[CPAN]

Jetzt bin ich draufgekommen

Solche Fehler passieren, wenn ein Neuling versucht, HTTP manuell zu sprechen. Verwende ein Webframework oder zumindest eine HTTP-Bibliothek. In Plack würde es so aussehen:

    use Plack::Response qw();  
    use HTTP::Status qw(HTTP_TEMPORARY_REDIRECT);  
    my $uri = 'http://example.org';  
    my $app = sub {  
        my $r = Plack::Response->new;  
        $r->redirect($uri, HTTP_TEMPORARY_REDIRECT);  
        return $r->finalize;  
    }  

In CGI.pm so:

    use CGI qw();  
    use HTTP::Status qw(HTTP_TEMPORARY_REDIRECT);  
    my $c = CGI->new;  
    my $uri = 'http://example.org';  
    print $c->redirect(  
        -uri => $uri,  
        -status => HTTP_TEMPORARY_REDIRECT,  
    );