Opened by Gast at 2006-04-14 16:54
User since
2003-08-14
2022 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-14
2022 Artikel
BenutzerIn
Also mal die Minimalversion:
Das regex-Problem lässt sich einfach beheben in dem man das Komma noch berücksichtigt. Die Verwendung des o-Modifiers wäre möglich und sinnvoll da sich $key nicht ändert wärend der Schleife. Die Idee (<>) zu verwenden habe ich aufgegriffen, deshalb wurde auch das splice nötig.
Code: (dl
)
1
2
3
4
5
6
7
8
#!/usr/bin/perl
use strict;
use warnings;
die "usage: skript b 3 19 file.log\n" if @ARGV != 4;
my ($key, $min, $max) = splice @ARGV, 0, 3;
/,$key=(\d+)/ && $1 >= $min && $1 <= $max && print while (<>);
Das regex-Problem lässt sich einfach beheben in dem man das Komma noch berücksichtigt. Die Verwendung des o-Modifiers wäre möglich und sinnvoll da sich $key nicht ändert wärend der Schleife. Die Idee (<>) zu verwenden habe ich aufgegriffen, deshalb wurde auch das splice nötig.