Ein Nachbau von grep

 [Vorheriges Kapitel]  [Vorherige Seite]  [Inhaltsverzeichnis]  [Nächste Seite]  [Nächstes Kapitel]

grep.pl
#!/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.
 

 [Vorheriges Kapitel]  [Vorherige Seite]  [Inhaltsverzeichnis]  [Nächste Seite]  [Nächstes Kapitel]
Copyright © 1996 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003