| W. Wiedl Skripte CGI & Perl Reguläre Ausdrücke | Inhaltsverzeichnis < Suche |
Mit einem Perl-Programm kann
man z.B. alle Zeilen einer Datei, auf die dieses Muster
passt, ausgeben:
$Muster='\d{1,2}\.\d{1,2}\.\d{4}';
while ( <DAT> )
{
print $_ if m/$Muster/o;
}
oder man kann sämtliche Monatsangaben um 1 erhöhen:
$Muster='(\d{1,2}\.)(\d{1,2})(\.\d{4})';
while ( <DAT> )
{
s/$Muster/$1.$2+1.$3/geo;
}
Perl weist zwischen den einzelnen Versionen einige Unterschiede auf. Wenn nichts anderes erwähnt wird, beziehen sich die Aussagen auf die Perl Version 5.005_03. (built for MSWin32-x86-object, Binary build 518 provided by ActiveState Tool Corp.)
In [1] findet man die folgende
Bemerkung zu Perl, die insbesondere auch für die regulären Ausdrücke zutrifft:
Perl kann mit all seinn Möglichkeiten ein erstklassiges Werkzeug in der
Hand des geübten Benutzers sein, aber es scheint, dass man zuerst ein paarmal
den Daumen statt den Nagel treffen muss, bis man diese Meisterschaft
erreicht.
| Schlagwortkatalog | Einführung |