0 Werte rauswerfen

[Leeloo5E]

Hallo,

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!  
  
Nein, Danke. Die Zeiten sind entgültig vorbei ;-)  
Trotz allem schau ich mir die Funktionen an, um sie evtl. zukünftig zu verwenden. Dumm ist nur, wenns grep und map in anderen Sprachen nicht gibt. Dann muss man wieder umdenken und sich das so wie Struppi hinbiegen. Aber sei's drumm. Haben wir mal wieder was dazu gelernt ;-)  
  

> > > 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  
  
Richtig!  
  

> 2. Eventuell erstellen wir sie mit einem anderen Modul  
  
Richtig!  
  

> 3. Wie soll man zu einem Modul was sagen, wenn Du (also der OP) es nichtmal nennt...  
  
Hielt ich nicht für notwendig zum Lösen des Problems. Das erstellte Array @AoA ist vorab erstmal unabhängig davon, obs für ein Diagramm verwendet wird oder nicht. Ich hatte es nur erwähnt, warum ich denn die Arrays in dem Array, die komplett aus Nullen bestehen raus haben will, um das Verständnis für die Angelegenheit an sich zu verbessern.  
  

> Naja... "Schwamm drüber" wie Mr. Fish immer zu sagen pflegte...  
  
Genau!  
  
Gruß,  
Leeloo

-- 
"Als es noch keine Computer gab, war das Programmieren noch relativ einfach." - Edsger W. Dijkstra