Probleme mit dem Substitutionsoperator - #77430 (Allgemeines zu Perl)

holli

2007-06-11 00:45

User since
2003-10-01
6 Artikel
BenutzerIn

Weil ich

a) blöd

oder

b) übermüdet

bin.

Ich hatte

Code: (dl )

%a = (foo => 1, bar => 2);
%b = (goo => 1, dar => 2);

while ( my ($i, $j) = each %a )
{
    while ( my ($x, $y) = each %a )
    {
        print "$i $j $x $y\n";
    }
}

als Testcode genommen. Natürlich crasht das -> Endlosschleife. (silly me).

Code: (dl )

%a = (foo => 1, bar => 2);
%b = (goo => 1, dar => 2);

while ( my ($i, $j) = each %a )
{
    while ( my ($x, $y) = each %b )
    {
        print "$i $j $x $y\n";
    }
}

funzt.