Thread Kommaseparierte Listen bereichsweise ausgeben. (28 answers)
Opened by Gast at 2006-04-14 16:54

Ronnie
 2006-04-15 02:07
#64958 #64958
User since
2003-08-14
2022 Artikel
BenutzerIn
[default_avatar]
an die Kommandozeilenparameter kommst du über das Array @ARGV:
Code: (dl )
my ($key, $min, $max) = @ARGV;

ausgeben willst du eine Zeile wenn in der Zeile der Suchschlüssel gefunden wird und dessen numerischer Wert (nach dem '=') größer oder gleich dem Minimalwert ist und kleiner oder gleich dem Maximalwert:
Code: (dl )
m/$key=(\d+)/ && $1 >= $min && $1 <= $max

Das einlesen der Eingangsdaten sollte allerdings nicht so erfolgen:
Quote
Code: (dl )
my @liste = `cat list.txt`; # wir sind auf linux

Schau dir mal http://perldoc.perl.org/functions/open.html an.

View full thread Kommaseparierte Listen bereichsweise ausgeben.