Hallo Liste,

kann mir jemand sagen, warum die folgenden Zeilen nicht mehr die Liste der
besetzten E-Mailadressen ausgibt?

        my %EMail =();

        for(my $i = 1; $i <= 1000; $i++) {

                my $user = Users->new();

                if ($user->init('id' => $i)) {
                        my $props     = $user->getInfo();
                        my $userlogin = $user->getInfo ('login');

                        $EMail{$userlogin} = $user->getInfo ('email');
                        print "userlogin: $userlogin | ";
                        print "$EMail{$userlogin} \n";

                } else {
                        print "id $i unbesetzt\n";
 		}

        }

Viele Grüsse
 Jens