Hi,
leider konnte ich bei mir (deutsch-deutsches Keyboard) nicht korrekt die österreichischen Anführungszeichen erzeugen, aber habe stattdessen " und ' genommen. Die musst Du halt austauschen.So sollte es gehen:
#!/usr/bin/perl -wuse strict;
my $string = do {local $/; <DATA>};
while ($string =~ m/("[^'"]*")/gsc) {
print $1, "\n\n";
pos($string) -= 1;
};
pos($string) = 0;
while ($string =~ m/('[^'"]*')/gsc) {
print $1, "\n\n";
pos($string) -= 1;
};
__DATA__
ein "text mit fehlern", 'denn' es "kommen' regelmig
sterreichische 'Anfhrungszeichen an den' falschen
Stellen vor, "deshalb sollten diese gefunden werden
und der Text "dazwischen ausgegeben" werden.
Und damit wir' wenigstens fnf Zeilen haben, dies.
ergibt:
"text mit fehlern""deshalb sollten diese gefunden werden
und der Text "
"dazwischen ausgegeben"
'denn'
' regelmäßig
österreichische '
'Anführungszeichen an den'
Gruss,
svenXY
Datum: 11.11.2005-14:31
Im Text nach unlogischen Zeichenfolgen suchen (es fehlt » oder «)
