Reguläre Ausdrücke auf mehrzeilige Eingabe - #60837 (Allgemeines zu Perl)

michael25

2005-12-09 18:32

User since
2005-08-31
23 Artikel
BenutzerIn
[default_avatar]

Hallo zusammen,

ich habe hier ein Problem mit regulären Ausdrücken, die auf eine mehrzeilige Zeichenkette angewandt werden soll. Vielleicht kann mir jemand helfen?

Folgender String ist gegeben:
output "Daten 1\n
Daten 2\n
..."

Auf die Zeilenvorschubzeichen kann ich leider nicht verzichten, da diese Ausgabe genauso in eine Datei geschrieben werden soll.
Folgender Code:

Code: (dl )

while (my $client = $server->accept) {
     $client->autoflush(1);
     while (<$client>) {        

     if (/^output/s) {
        print $_;
     }

Leider lautet die Ausgabe immer nur:
output "Daten 1

Lieber wäre mir:
output "Daten 1\n
Daten 2\n
..."

Weiß jemand Rat?