Script hängt sich auf: weis nciht wo... - #3283 (Perl/CGI)

format_c

2004-08-01 21:18

User since
2003-08-04
1706 Artikel
HausmeisterIn

[quote=esskar,01.08.2004, 19:06]...

Code: (dl )

my $redir = shift || 1;

ist $redir immer wahr. ...[/quote]
Darum gehts doch glaub ich weniger. Es geht doch glaub ehere darum ob shift wahr oder falsch zurückliefert und damit elegant ein Defaultwert zugewiesen werden kann:

Code: (dl )

format_c@server:~> perl
sub test {
        my $wert = shift || 'default';
        print $wert,"\n";
}
print "Versuch1 mit Parametern:\n";
test('meinwert');
print "Versuch2 ohne Parameter:\n";
test();
Versuch1 mit Parametern:
meinwert
Versuch2 ohne Parameter:
default
format_c@server:~>

Edit:@pktm: Hast du auch mal rain pragmatisch folgende Sachen ausprobiert:
- use strict;
- use warnings;
- use CGI::Carp qw/fatalsToBrowser warningsToBrowser/;
- Nach Ausgabe des HTTP-Header warningsToBrowser(1);
- UNd den HTML-Code nach warnings kontolliert

Ich sags nur, weil ich dadurch schon mal tage lang nach einem Fehler gesucht hatte der durch eine warnung verursacht wurde.

Was macht $self->redir() ??
Gruß Alex\n\n

Effizente Linuxshell