|
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 © 1996, 1998, 1999, 2000 Andreas Borchert, in HTML konvertiert am 07.02.2000 |