Thread Steuerzeichen ausgeben: ohne es auszufühen (15 answers)
Opened by pktm at 2006-07-15 01:17

pktm
 2006-07-15 11:39
#68100 #68100
User since
2003-08-07
2921 Artikel
BenutzerIn
[Homepage]
user image
Naja, das Problem ist, dass ich das Steuerzeichen aus einer RegEx erhalte.
Dort kann ich doch schlacht maskieren oder?
Hier mal ein Stück Code:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
            my $datenMitMonatsnamen = qr/
(
\d\d?\.
\s+
(?:Januar|Februar|März|April|Mai|Juni |Juli |August|(?:Oktober)|November|Dezember
|Jan\. |Feb\. | Apr\.| Jun\.|Jul\.|Aug\. |Okt\. |Nov\. |Dez\.)
\s+
(?:\d\d\d\d|\'?\d\d\D)
)
/x; # kommts bekannt vor?
if( $zuUntersuchenderBereich =~ m/($datenMitMonatsnamen)/) {

# Ausnahme in Wortliste aufnehmen,
# Position entsprechend verschieben
print "Monatsangabe ($1) gefunden bei Zeichen [\Q$z\E] "
. "an Position $c, "
. "Länge: " . length($1) . "\n";

push @ausnahmen, $1;
$c += length($1);
}


Dort würde ich gerne die Stelle ausgeben, an der etwas gefunden wird. Das ist aber i.d.R. etwas wie \n, \t, \s oder irgendwelche Kombinationen daraus. Und ich würde jetzt gerne wissen, was genau da gefunden wurde.

Grüße, pktm
http://www.intergastro-service.de (mein erstes CMS :) )

View full thread Steuerzeichen ausgeben: ohne es auszufühen