🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.perl
Article #51744

Re: Walidacja wyrażenia regularnego - operatory =~ i !~ jako zmienna

#51744
From: Tomasz "rocku" K.
Date: Wed, 06 Jan 2010 19:45
24 lines
1496 bytes
..:: sjf ::.. pisze:
> ...
> W jaki sposób przerobić mój program, aby możliwe było wykorzystanie 
> dopasowania RE i zanegowanego RE?

Po co w ogóle stosować eval przy wierszu z gwiazdka? Możesz określić na 
początku czy stosować wersje zanegowaną czy nie, a później:
if ($neg) {
     $host !~ $opt{g}
} else {
     $host =~ $opt{g}
}

Odnośnie samej operacji z evalowaniem wyrażenia, w tym przypadku zdaje 
się działać poprawnie:

$ perl -e '$r=q|"foo" !~ /v/|;  print (1 == eval $r ? "true\n" : "false\n")'
true
$ perl -e '$r=q|"foo" =~ /v/|;  print (1 == eval $r ? "true\n" : "false\n")'
false

-- 
Pozdrawiam,
Tomasz "rocku" K.
Technical Details
Message-ID: <hi2p9i$5ka$1@achot.icm.edu.pl>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news2.icm.edu.pl!not-for-mail
References: <hi2nr1$sdr$1@news.onet.pl>

Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news2.icm.edu.pl!not-for-mail
From: "Tomasz \"rocku\" K." <rocku@no.spam>
Newsgroups: pl.comp.lang.perl
Subject: Re: Walidacja wyrażenia regularnego - operatory =~
 i !~ jako zmienna
Date: Wed, 06 Jan 2010 20:45:54 +0100
Organization: http://news.icm.edu.pl/
Lines: 24
Message-ID: <hi2p9i$5ka$1@achot.icm.edu.pl>
References: <hi2nr1$sdr$1@news.onet.pl>
NNTP-Posting-Host: chello089079123153.chello.pl
Mime-Version: 1.0
X-Trace: achot.icm.edu.pl 1262807154 5770 89.79.123.153 (6 Jan 2010 19:45:54 GMT)
X-Complaints-To: abuse@icm.edu.pl
NNTP-Posting-Date: Wed, 6 Jan 2010 19:45:54 +0000 (UTC)
In-Reply-To: <hi2nr1$sdr$1@news.onet.pl>
User-Agent: Thunderbird 2.0.0.23 (X11/20090817)
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit