Zamiana ciągu znaków z nowymi liniami

Article View: pl.comp.lang.perl

Article #52284

#52284

From: piecia aka dracorp
Date: Fri, 09 Sep 2011 08:30

20 lines
1542 bytes

Witam
Z racji pewnych zmian w perlu (>5.14) tzn:
*Use of qw(...) as parentheses is deprecated*
Chciałbym wszystkie wystąpienia qw() zamienić na (qw(...)). W niektórych 
przypadkach pomiędzy wyrazami może wystąpić nowa linia.
Więc coś takiego nie do końca zadziała:

#v+
perl -pi -e 's/(qw\([^)]+\))/\(\1\)/mg' plik
#v-

Zamieni mi qw() występujące w jednej linii ale rozbite na kilka linii już 
nie.
Jak prawidłowo powinno się to zapisać?

Wydawało mi się że modyfikator /m powinien to przełknąć ale jednak nie.

-- 
piecia aka dracorp
pisz na: piotr kropka rogoza at wp kropka eu

Technical Details

Message-ID: <pan.2011.09.09.08.31.11@dracorp.one.pl>

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!agh.edu.pl!news.agh.edu.pl!news.onet.pl!.POSTED!not-for-mail

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!agh.edu.pl!news.agh.edu.pl!news.onet.pl!.POSTED!not-for-mail
From: piecia aka dracorp <imie.nazwisko@wp.eu>
Newsgroups: pl.comp.lang.perl
Subject: Zamiana ciągu znaków z nowymi liniami
Date: Fri, 9 Sep 2011 08:30:57 +0000 (UTC)
Organization: http://onet.pl
Lines: 20
Message-ID: <pan.2011.09.09.08.31.11@dracorp.one.pl>
NNTP-Posting-Host: 62.108.180.232
Mime-Version: 1.0
X-Trace: news.onet.pl 1315557057 18885 62.108.180.232 (9 Sep 2011 08:30:57 GMT)
X-Complaints-To: niusy@onet.pl
NNTP-Posting-Date: Fri, 9 Sep 2011 08:30:57 +0000 (UTC)
User-Agent: Pan/0.135 (Tomorrow I'll Wake Up and Scald Myself with Tea; GIT 30dc37b master)
X-face: &O(G<?G0x[)D}ri@2r:nnqjWG"C%v#'ES"T|m>Gaw3JWL>[XKRh^(75y8=DvLC1QXn9Vtc= !QWAS}|{A97ADU]x0*KE-Z>sKRlHMqyJ7c!=^wW,f#RXJ%e_@(U2YaNV10ucCf
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit