![](https://seccdn.libravatar.org/avatar/715ec591c41fdf51acee78156234f9e2.jpg?s=120&d=mm&r=g)
On Thu, 2002-09-19 at 23:48, Sebastian Huber wrote:
Hallo, ich habe folgendes Problem: irgendein-config-file: # section begin bla bla # section end
Da hast Du ja Glück, daß ich gerade dafür gestern einen Einzeiler gemacht habe: perl -e 'undef $/; foreach (@ARGV) { $file = $_; open FILE, $_ ; while (<FILE>) {print "\t\"", $file, "\" => \"" , $1, "\", \n" if /<title>\s*([.,a-zA-Z0-9 -]*)\s*<\/title>/s;}}' FILENAME In Klammern steht das, was Du einfangen willst. <title> war bei mir der Beginn </title> das Ende Das Geheimnis bei der Regex ist der Schalter /s der . auch \n matchen läßt. Mit undef $/ wird verhindert, daß die whileschleife Zeilenweise vorgeht. HTH V. -- Volker Kroll 4mino AG Chief System Developer Chausseestr. 52 b volker.kroll@4mino.de D-10115 Berlin Tel.: +49-30-2888490-0 Fax.: +49-30-2888490-99