On Wed, Aug 02, 2000 at 09:02:24PM +0200, Ulrich Wiederhold wrote:
> Hallo, ich muß in einer Datei nach einem String suchen. Bei dieser Suche
> müssen Sonderzeichen ignoriert werden, d.h. Zeichen wie (){}()´` usw.
> sollen ignoriert werden.
#!/usr/bin/perl
# bla.pl
while(<>) {
s/[\{\}\[\]\(\)]//g; # böse Zeichen rausfiltern
return true if(/Hallo Wie Gehts/i); # suchen
}
dann abspeichern und aufrufen mit
bla.pl file oder
cat file | bla.pl
(der "<>" dateioperator nimmt $ARGV[1] oder STDIN, jenachdem was vorhanden
ist, ziemlich genial ausgedacht.)
--
ciao, Jens (mailaddr im Header) http://www.pinguin.conetix.de
"Schiebe nie etwas auf Boshaftigkeit, was http://www.hitch-hiker.de
ausreichend durch Dummheit erklärt werden kann." http://www.linuxfaq.de
Attachment:
pgp_KqSjkqX21.pgp
Description: PGP signature