Opened by BrownWolf at 2003-12-18 04:42
User since
2003-08-15
692 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-15
692 Artikel
BenutzerIn
[quote=BrownWolf,01.01.2004, 22:58][/quote]
Dann rufst Du von einem undefinierten Scalar aus eine Methode auf. Printe mal in der Sub mit Data::Dumper alles das, was in dem Moment für Dich interessant ist. Ich glaube, dann kommst Du der Sache näher.
Dann rufst Du von einem undefinierten Scalar aus eine Methode auf. Printe mal in der Sub mit Data::Dumper alles das, was in dem Moment für Dich interessant ist. Ich glaube, dann kommst Du der Sache näher.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
foreach my $user(@users) {
$user = lc($user);
my $room = $chatters{$user}->{room};
if(lc($room) eq lc($raum)) {
my $handle = $chatters{$user}->{client};
use Data::Dumper;
$handle or print Dumper \$user, \%chatters;
delete $chatters{$user} if(!$handle->send("$text
\r"));
}
}$SIG{USER} = sub {love 'Perl' or die};