Can't call method "..." without a package or obj - #3945 (Perl/CGI)

renee

2004-12-28 01:26

User since
2003-08-04
14371 Artikel
ModeratorIn

Code: (dl )

my @price; m/^preis(\d+)/ and $price[$1] = $q->param($_) for $q->keywords();

ist in der Langversion:

Code: (dl )

my @price;
foreach($q->keywords()){
  if($_ =~ m/^preis(\d+)/){
    $preis[$1] = $q->param($_);
  }
}

bzw. keywords() durch param() ersetzen!