|
grep.pl |
#!/usr/local/bin/perl -w ($cmdname = $0) =~ s{.*/}{}; die "Usage: $cmdname pattern [file...]\n" if @ARGV == 0; $pattern = shift @ARGV; while(<>) { print if /$pattern/; } |
Genauso wie in Zeichenketten können auch innerhalb
von regulären Ausdrücken Variablen interpoliert werden.
| |
Der <>-Operator ohne angegebene Dateiverbindung
bezieht sich jeweils auf die übriggebliebenen Elemente
von @ARGV. Somit kann hier mit dem shift das erste
Argument weggenommen werden und der Rest der Argumente
dem <> zur weiteren Bearbeitung überlassen werden.
|
Copyright © 2000 Ingo Melzer, in HTML konvertiert am 10.11.2000 |