|
#!/usr/local/bin/perl use strict; use warnings; my $cmdname = $0; $cmdname =~ s{.*/}{}; die "Usage: $cmdname pattern [file...]\n" if @ARGV == 0; my $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 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003 |