0 Werte rauswerfen

[Skeeve]

Moin!

Da ich keine Torten-, Balken- oder wasweißich Diagramme in Perl kenne, habe ich mich mal darauf beschränkt, nur die Nullwerte zu entfernen:

  
use Data::Dumper;  
use strict;  
use warnings;  
  
my @AoA = (  
        [ 0, 0, 0 ],  
        [ 215, 2, 1234 ],  
        [ 0, 5, 10 ],  
        [ 0, 278, 0],  
      );  
  
my @NoNull= map { [ grep { $_ } @$_ ] } @AoA;  
  
  
print Dumper(\@NoNull);  
  
__END__  
Ergebnis:  
$VAR1 = [  
          [],  
          [  
            215,  
            2,  
            1234  
          ],  
          [  
            5,  
            10  
          ],  
          [  
            278  
          ]  
        ];  
  

-- Skeeve