Thread Regular Expression: Ich suche mal wieder ein Regexp ....
(17 answers)
Opened by BrownWolf at 2003-09-20 20:34
Funktioniert leider nicht:
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 open(DAT,"datei.txt"); my @read = <DAT>; close(DAT); for(@read) { if ($_ =~ /"(.*?)"/s) { print $1; } } Gibt mir wieder nur ein Ergebnis wenn die " in einer Zeile stehen. Code (perl): ()
1 2 3 sub _{s;;xrqIpiql\\{}p{pl{R>rl{N{}gjwpkssq]>rl{N;;;*{{}=*{_};; ${{}={q{{{}}}=>[reverse+split+reverse+q;}{;]};${{}->{q{{{}}}}->[@{{}];} ${{}=reverse+_(q{{}}=>q{{}})^chr(30)x+length&_(q{{}}=>,q{{}})and+print; |