0 Werte rauswerfen

[Skeeve]

Moin!

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:

Na klar tun sie das:

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

Hausaufgabe: Erkläre die Funktionsweise des Scripts!

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.

Ganz genau! Mal abgesehen davon:
1. Nicht jeder erstellt überhaupt Diagramme mit Perl
2. Eventuell erstellen wir sie mit einem anderen Modul
3. Wie soll man zu einem Modul was sagen, wenn Du (also der OP) es nichtmal nennt...

Naja... "Schwamm drüber" wie Mr. Fish immer zu sagen pflegte...

-- Skeeve