strict und my - #61263 (Allgemeines zu Perl)

steffenw

2003-10-08 00:38

User since
2003-08-15
692 Artikel
BenutzerIn

Code: (dl )

print $var foreach my $var (1..10);

Ich habe damit kein Problem, daß das nicht funktioniert. Die Variable wird ja auch später deklariert, als sie benutzt wird.

Man braucht es ja nur anders herum zu schreiben.

Code: (dl )

1
2
3

foreach my $var (1..10)
{ print $var;
}

So funktioniert es auch vorzüglich.

Manchmal baue ich auch solche Konstruktionen wie:

Code: (dl )

if ($aa == $bb or $cc == $dd and my $flag=1)
{  print "Bedingung stimmt\n";
    print "jedoch durch 2. Teil zustandegekommen\n" if $flag;
}

Denn bei if, while, usw. klappt die Deklaration in der Bedingung auch recht gut. Die so deklarierte Variable ist bei if, o.ä bis in den else-Zweig hinein gültig.

$SIG{USER} = sub {love 'Perl' or die};