[Debian]:Re: grep und perl
Hi,
On Wed, Aug 02 2000 at 21:02 +0200, Ulrich Wiederhold wrote:
> 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.
>
> Angenommen mein Suchbegriff ist "Hallo Wie gehts", dann sollte auch
> eine Ausgabe erfolgen, wenn in der Datei nur "(Hallo)!Wie geht´s" in einer
> Zeile steht. Bisher verwende ich "grep -e", was aber im o.g. Fall nicht
> funktioniert! :(
> Das ganze wird in einem Perl-Script aufgerufen!
Du kannst ja in "Hallo Wie gehts" nach jedem Zeichen ein \W*
einfügen. Damit passt der reguläre Ausdruck auch auf "(Hallo)!
Wie geht´s":
#!/usr/bin/perl -w
$s = "(Hallo)! Wie geht's";
$p = "hallo wie gehts";
for ($i = length($p)-1; $i > 0; --$i) {
substr $p, $i, 0, '\W*';
}
print $s if $s =~ /$p/i;
Ciao,
Stefan
------------------------------------------------
Um sich aus der Liste auszutragen schicken Sie
bitte eine E-Mail an majordomo@jfl.de die im Body
"unsubscribe debian-user-de <deine emailadresse>"
enthaelt.
Bei Problemen bitte eine Mail an: Jan.Otto@jfl.de
------------------------------------------------
Anzahl der eingetragenen Mitglieder: 736
Reply to: