regex w wielu liniach, mam problem

Article View: pl.comp.lang.perl

Article #39771

#39771

From: Grzegorz Szyszlo
Date: Mon, 18 Oct 2004 06:22

35 lines
1588 bytes

Czesc. Nie moge sobie poradzic z taką przykładową konstrukcją regexa:

#!/usr/bin/perl -w
use strict;

my $a= <<EOF;
to jest skomplikowany tekst
a to mniej skomplikowany
jeszcze troche
EOF

print "\n";
print $a;

$a=~/
^.*?(jest).*?$  #to jest ok
^.*?(to).*?$    #jak tu wpisze nawet sam daszek, to sie wali
/xsm;

print "\n";
print "\$1=$1\n";
print "\$2=$2\n";


chodzi o druga linie z komentarzem. jak ja wpisze, to juz
mi nie dopasowuje calego wyrazenia :(
ja moge takie wyrazenie poprawnie zapisac?

z moich pomyslow, moge wytypowac jakis dziwny nieuzywany
znak, i za pomoca TR zamienic np. znak ~ na ten nietypowy,
a wszystkie entery na ~. po tej operacji nie mam juz
problemu z regexem wieloliniowym. ale pytanie, czy musze
tak kombinowac? prosze o pomoc.

znik.

Technical Details

Message-ID: <ckvngq$hal$1@news.lublin.pl>

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!news.onet.pl!lublin.pl!news.lublin.pl!not-for-mail

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!news.onet.pl!lublin.pl!news.lublin.pl!not-for-mail
From: Grzegorz Szyszlo <znik@wbc.lublin.pl>
Newsgroups: pl.comp.lang.perl
Subject: regex w wielu liniach, mam problem
Date: Mon, 18 Oct 2004 08:22:36 +0200
Organization: lubman
Lines: 36
Message-ID: <ckvngq$hal$1@news.lublin.pl>
NNTP-Posting-Host: user.wbc.lublin.pl
Mime-Version: 1.0
X-Trace: news.lublin.pl 1098080603 17749 212.182.104.10 (18 Oct 2004 06:23:23 GMT)
X-Complaints-To: abuse@news.lublin.pl
NNTP-Posting-Date: Mon, 18 Oct 2004 06:23:23 +0000 (UTC)
User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.4) Gecko/20030721 Debian/1.4-1.nobse.2
X-Accept-Language: pl, en-us
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit