[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index] [Thread Index]

[Debian]:Re: grep und perl



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: pgpSWD7FZL4wW.pgp
Description: PGP signature


Reply to: