0 Werte rauswerfen

[Struppi]

und das wäre nicht möglich gewesen vorher zu zeigen?

doch bestimmt. hat ich nur grad net dran gedacht, das doch noch genauer zu erklären. ganz großes sorry. für mich war klar, was ich meinte. für die anderen sicher net.

so sieht's aus, also ich würd's so machen, bin aber nicht so vertraut mit grep und map die in irgendeiner Kombination sicher auch funktionieren:

my @AoA = (  
        [ 0, 0, 0 ],  
        [ 215, 2, 1234 ],  
        [ 0, 5, 10 ],  
        [ 0, 278, 0],  
);  
my @NoNull = cleanup_AoA( \@AoA );  
  
print Dumper(\@NoNull);  
  
sub cleanup_AoA  
{  
   my $arr = shift;  
   my @new;  
   foreach(@$arr)  
   {  
         my $null = 0;  
         foreach(@$_)  
         {  
             $null = 1, last if $_;  
         }  
         push @new, $_ if $null;  
   }  
   return wantarray ? @new : \@new;  
}

Dann wäre klarer gewesen, was du mit "Nullwerten" meinst, denn keiner weiß was oder wie du Tortendiagramme machst.

Ich mal Tortendiagramme mit Chart::Pie. Mit was sonst? Man soll sich doch das Leben nicht schwerer machen als es ist, oder!?

Schon klar, aber du kannst natürlich nicht damit rechnen, dass jeder jedes CPAN Modul kennt, ich hatte noch nie mit Diagrammen und Perl zu tun.

Struppi.