kriterium

[jens]

ich will in mein perlprogramm ein kleines kriterium einbauen,wieß aber nicht wie.
ich schreibe meine daten über <STDIN> in ein array und will mir die anzahl eines bestimmten buchstaben aus meinen werten (beispielweise x) ausgeben lassen.
das mit der anzahl der buchstaben lässt sich ja mit hilfe eines counters ausgeben (was bei mir auch funktioniert).
nun müsste ich nur noch wissen wie ich den befehl schreibe das nur nach dem "x" gesucht wird.
danke

[Christian Kruse]

Hallo jens,

nun müsste ich nur noch wissen wie ich den befehl schreibe
das nur nach dem "x" gesucht wird.

Du wirst zwangslaeufig den Array durchloopen muessen und
mit 'x' vergleichen muessen. grep() nimmt dir da die Arbeit
des loopens ab. Du kannst also so arbeiten:

my $num = grep { $_ eq 'x' } @data;

grep() gibt eine Liste von Positiv-Matches zurueck. Eine
Liste in einem Skalaren Kontext gibt die Anzahl der Elemente
zurueck. Deshalb brauchst du ueberigens auch keinen Zaehler,
um die Anzahl der Elemente zu bekommen. Ein

$num = @data;

reicht da.

Gruesse,
 CK