Leser: 10
1 2 3 4 5 6 7 8
my $rangecolumns = $_[2]->cget(-columns); $card[0] = '<html><head><title></title><link rel="stylesheet" type="text/css" href="../format.css"></head><body>'.$_[0].'<table border="1" bordercolor="#000000" cellspacing="0"><tr>'; for(my $c = 0; $c < $rangecolumns; $c++) { push @card,"<td>".$_[2]->headerCget($c, -text)."</td>\n"; }
Guest keanWenn ich den Code jetzt ausführe kommt der Fehler "Use of uninitialized value $rangecolumns in numeric lt (<)"
Ich habe die Variable doch aber mit my deklariert...
1 2 3 4 5 6
sub foo { my ( $cgi, $template ) = @_; print $cgi->header, $template->output; }
my $rangecolumns = $_[2]->cget(-columns) || 1;
2009-03-11T08:12:21 kean[...] wie ich [...] gewechselt bin...
2009-03-11T15:55:57 GwenDragonWeil die Bemerkung keinen Nutzwert hat und im Trash ist!