Global symbol Errorlog (CGI/PERL)

[alligator]

Hallo,

Aber mir ist dann nicht klar wie ich globale Variablen deklarieren muss,

perldoc -f our
perldoc vars

Du solltest dir über die Unterschiede von lokalen und globalen Variabelen im
Klaren sein und überlegen, ob du wirklich globale Variablen brauchst.

Hinweise dazu findest du unter:

perldoc perlsub
perldoc perlmod

Gruß Kai

HI Kai,

ich bin im logischen Unterschied schon drüber bewußt aber nicht wie ich es Syntaxmäßig machen muss.
Aber der Post von Markus hat mich da schon ein wenig weiter gebracht, obwohl ich noch ein kleines Syntaxproblem mit my habe:

So tut es:

my @aussortiert;
my @fertig;

foreach my $sort (@htmlgesplittet)

{
 if (($sort =~ m/onClick="surl='/i) || ($sort =~ m/FONT class="S" size="2" face="arial, helvetica, sans-serif">/i))

{
     push(@aussortiert, "$sort");
 }
}

foreach my $sort_abschneiden (@aussortiert)
{
 if (($sort_abschneiden =~ m/sans-serif">(.+)/) || ($sort_abschneiden =~ m/surl='(.+?)'/))
    {
 push (@fertig, "$1");

}
}

So nicht:

foreach my $sort (@htmlgesplittet)

{
 if (($sort =~ m/onClick="surl='/i) || ($sort =~ m/FONT class="S" size="2" face="arial, helvetica, sans-serif">/i))

{
     push(my @aussortiert, "$sort");
 }
}

foreach my $sort_abschneiden (@aussortiert)
{
 if (($sort_abschneiden =~ m/sans-serif">(.+)/) || ($sort_abschneiden =~ m/surl='(.+?)'/))
    {
 push (my @fertig, "$1");

}
}

Da bringt er mir wieder den Global-Errorlog ???
Das ist mir noch nicht so ganz klar, warum das so ist, aber ich werd mir das nochmla in der Perldoc durchlesen und hoffe das es dann klarer ist *bet*

cu
alligator