Array in anonymen Hash über die Referenz löschen ?

[hotti]

hmm, was soll eigentlich gemacht werden?

  
use strict;  
use warnings;  
use Data::Dump qw(dump);  
  
my $public_chat = {};  
  
$public_chat->{'Manuel'} = [[time(), 'Flood ?', 1], [time()-8, 'Spam!', 4], [time()-20, 'Unknown', 1]];  
$public_chat->{'Robert'} = [[time(), 'Bla Bla', 2], [time()-8, 'FLOOOD', 7], [time()-20, 'Lalala', 1]];  
  
foreach my $name(keys %{$public_chat}){  
	my $i = 0;                            # wir brauchen den Index  
	foreach my $x(@{$public_chat->{$name}}){  
		if($x->[2] > 3){  
			#delete $public_chat->{$name}->[$i]->[2];    # Löscht den Wert  
			#delete $public_chat->{$name}->[$i];     # Löscht Array-Ref  
			#$public_chat->{$name}->[$i] = [];     # Macht Array leer  
			#delete $public_chat->{$name}; # Löscht den User, hier sinds alle  
		}  
		$i++;  
	}	  
}  
print dump $public_chat;  

Such Dir's Beste raus ;)