[31123] in Perl-Users-Digest
Perl-Users Digest, Issue: 2368 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Apr 26 03:09:42 2009
Date: Sun, 26 Apr 2009 00:09:06 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sun, 26 Apr 2009 Volume: 11 Number: 2368
Today's topics:
Re: How to check that a filehandle is open? <blgl@hagernas.com>
Re: How to check that a filehandle is open? <smallpond@juno.com>
Re: How to check that a filehandle is open? <whynot@pozharski.name>
new CPAN modules on Sun Apr 26 2009 (Randal Schwartz)
Re: Perl is too slow - A statement <vilain@NOspamcop.net>
Re: Posting to perl.beginners via google groups <hjp-usenet2@hjp.at>
Re: totally out of my area (but not OT) - Windows updat <jurgenex@hotmail.com>
Re: unexplained warning message in m{...} regexp <klaus03@gmail.com>
Re: unexplained warning message in m{...} regexp <klaus03@gmail.com>
Re: unexplained warning message in m{...} regexp sln@netherlands.com
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 25 Apr 2009 15:31:30 +0200
From: Bo Lindbergh <blgl@hagernas.com>
Subject: Re: How to check that a filehandle is open?
Message-Id: <gsv3bu$5tt$1@aioe.org>
In article <slrngv5acq.b36.nospam-abuse@chorin.math.berkeley.edu>,
Ilya Zakharevich <nospam-abuse@ilyaz.org> wrote:
> Re the subject: 10 years ago I would check
>
> defined fileno $fh
>
> But nowadays, filehandle does not necessarily has an OS file
> descriptor associated to it...
In which case fileno returns some defined value which can't be mistaken
for a file descriptor. -1 is the traditional choice (used by e.g.
PerlIO::scalar).
/Bo Lindbergh
------------------------------
Date: Sat, 25 Apr 2009 07:50:22 -0700 (PDT)
From: smallpond <smallpond@juno.com>
Subject: Re: How to check that a filehandle is open?
Message-Id: <4d92ae9b-bdf9-42b8-9ab3-ce2cd10a6ebb@u39g2000pru.googlegroups.com>
On Apr 25, 2:11=A0am, Ilya Zakharevich <nospam-ab...@ilyaz.org> wrote:
> Re the subject: 10 years ago I would check
>
> =A0 =A0defined fileno $fh
>
> But nowadays, filehandle does not necessarily has an OS file
> descriptor associated to it...
>
> I could also check *$fh{IO} - but it would be defined if, e.g., $fh is
> \*FOO, and a bareword FOO was *mentioned* in the code at place where
> filehandle is expected (the code may not be ever executed, just
> mentioning is enough). =A0Moreover, I expect that *$fh{IO} survives
> after close()ure of $fh.
>
> I could do
>
> =A0 defined eval { seek $fh, 0, 1 }
>
> but the answer is ALWAYS defined (although sometimes ''), and, to add
> insult to injury, would send a warning in my wake...
>
> So: what should one do to check that $fh is open()?
>
> Thanks,
> Ilya
Scalar::Util::openhandle $fh;
returns undef unless $fh is open or tied.
------------------------------
Date: Sat, 25 Apr 2009 15:08:53 +0300
From: Eric Pozharski <whynot@pozharski.name>
Subject: Re: How to check that a filehandle is open?
Message-Id: <slrngv5vba.8ef.whynot@orphan.zombinet>
On 2009-04-25, Ilya Zakharevich <nospam-abuse@ilyaz.org> wrote:
> Re the subject: 10 years ago I would check
>
> defined fileno $fh
>
> But nowadays, filehandle does not necessarily has an OS file
> descriptor associated to it...
>
> I could also check *$fh{IO} - but it would be defined if, e.g., $fh is
> \*FOO, and a bareword FOO was *mentioned* in the code at place where
> filehandle is expected (the code may not be ever executed, just
> mentioning is enough). Moreover, I expect that *$fh{IO} survives
> after close()ure of $fh.
>
> I could do
>
> defined eval { seek $fh, 0, 1 }
>
> but the answer is ALWAYS defined (although sometimes ''), and, to add
> insult to injury, would send a warning in my wake...
>
> So: what should one do to check that $fh is open()?
IO::Handle provides a bit of hope
perl -MIO::Scalar -wle '
$sfh = IO::Scalar->new(\$data);
print "foo" if $sfh->opened;
print $sfh->fileno;
'
Name "main::data" used only once: possible typo at -e line 2.
foo
Can't locate object method "FILENO" via package "IO::Scalar" at /usr/lib/perl/5.10/IO/Handle.pm line 132.
YMMV however
perl -MIO::Scalar -MUNIVERSAL -wle '
print IO::Scalar->isa("IO::Handle") ? 1 : 0;
print IO::Scalar->can("opened") ? 1 : 0;
'
1
1
but
perl -MIO::Zlib -MUNIVERSAL -wle '
print IO::Zlib->isa("IO::Handle") ? 1 : 0;
print IO::Zlib->can("opened") ? 1 : 0;
'
0
1
I think that's possible to step on class that provides enough API of
B<IO::Handle> for use and lacks B<opened> method.
--
Torvalds' goal for Linux is very simple: World Domination
Stallman's goal for GNU is even simpler: Freedom
------------------------------
Date: Sun, 26 Apr 2009 04:42:27 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Sun Apr 26 2009
Message-Id: <KIoyEr.IA8@zorch.sf-bay.org>
The following modules have recently been added to or updated in the
Comprehensive Perl Archive Network (CPAN). You can install them using the
instructions in the 'perlmodinstall' page included with your Perl
distribution.
Acme-Boolean-0.3
http://search.cpan.org/~gugod/Acme-Boolean-0.3/
There is more then one way to be true.
----
AnyEvent-SNMP-0.2
http://search.cpan.org/~mlehmann/AnyEvent-SNMP-0.2/
adaptor to integrate Net::SNMP into Anyevent.
----
Apache-Bootstrap-0.06
http://search.cpan.org/~phred/Apache-Bootstrap-0.06/
Bootstraps dual life mod_perl and mod_perl2 Apache modules
----
Apache-Dispatch-0.11
http://search.cpan.org/~phred/Apache-Dispatch-0.11/
call PerlHandlers with the ease of Registry scripts
----
Apache-Dispatch-0.12
http://search.cpan.org/~phred/Apache-Dispatch-0.12/
call PerlHandlers with the ease of Registry scripts
----
App-DPath-0.01
http://search.cpan.org/~schwigon/App-DPath-0.01/
Cmdline tool around Data::DPath
----
Audio-Scan-0.13
http://search.cpan.org/~agrundma/Audio-Scan-0.13/
Fast C parser for MP3, Ogg Vorbis, FLAC, ASF, WAV, AIFF, Musepack, Monkey's Audio
----
CEDict-Pinyin-0.02001
http://search.cpan.org/~davaz/CEDict-Pinyin-0.02001/
Validates pinyin strings
----
CEDict-Pinyin-0.02002
http://search.cpan.org/~davaz/CEDict-Pinyin-0.02002/
Validates pinyin strings
----
CEDict-Pinyin-0.02003
http://search.cpan.org/~davaz/CEDict-Pinyin-0.02003/
Validates pinyin strings
----
CGI-DataObjectMapper-0.0104
http://search.cpan.org/~kimoto/CGI-DataObjectMapper-0.0104/
Data-Object Mapper for CGI form data
----
CGI-RSS-0.9600
http://search.cpan.org/~jettero/CGI-RSS-0.9600/
provides a CGI-like interface for making rss feeds
----
Catalyst-Component-ACCEPT_CONTEXT-0.06
http://search.cpan.org/~jrockway/Catalyst-Component-ACCEPT_CONTEXT-0.06/
Make the current Catalyst request context available in Models and Views.
----
Catalyst-Plugin-Log-Dispatch-0.10
http://search.cpan.org/~shot/Catalyst-Plugin-Log-Dispatch-0.10/
Log module of Catalyst that uses Log::Dispatch
----
Chess-Play-0.04
http://search.cpan.org/~gippoliti/Chess-Play-0.04/
Play chess games, calculate legal moves, use a search algorithm
----
Class-Light-0.01002
http://search.cpan.org/~davaz/Class-Light-0.01002/
Provides cascading object initialization and autovivified accessors and mutators
----
DBIx-MoCo-Pageset-0.01
http://search.cpan.org/~matsumoto/DBIx-MoCo-Pageset-0.01/
A flexible pager utility for DBIx::MoCo using Data::Pageset
----
DBIx-Publish-0.03
http://search.cpan.org/~adamk/DBIx-Publish-0.03/
Publish data from DBI as a SQLite database
----
Devel-CheckOS-1.61
http://search.cpan.org/~dcantrell/Devel-CheckOS-1.61/
check what OS we're running on
----
Email-Pipemailer-1.000
http://search.cpan.org/~rjbs/Email-Pipemailer-1.000/
a thing that delivers mail received on STDIN (placeholder)
----
File-Rsync-Mirror-Recent-0.0.6
http://search.cpan.org/~andk/File-Rsync-Mirror-Recent-0.0.6/
mirroring via rsync made efficient
----
Git-SVNReplay-1.0001
http://search.cpan.org/~jettero/Git-SVNReplay-1.0001/
replay git commits into a throwaway svn repo
----
HTTP-Request-AsCGI-0.501
http://search.cpan.org/~hdp/HTTP-Request-AsCGI-0.501/
Setup a Common Gateway Interface environment from a HTTP::Request
----
Hash-Search-0.02
http://search.cpan.org/~xestia/Hash-Search-0.02/
Search and return hash keys using regular expressions
----
Hoppy-0.00001
http://search.cpan.org/~miki/Hoppy-0.00001/
Flash XMLSocket Server.
----
Image-Fixup-0.01000
http://search.cpan.org/~davaz/Image-Fixup-0.01000/
----
Image-Fixup-0.01001
http://search.cpan.org/~davaz/Image-Fixup-0.01001/
Provides methods to fixup images.
----
JIRA-Client-0.03
http://search.cpan.org/~gnustavo/JIRA-Client-0.03/
An extended interface to JIRA's SOAP API.
----
JiftyX-ModelHelpers-0.23
http://search.cpan.org/~gugod/JiftyX-ModelHelpers-0.23/
Make it simpler to fetch records in Jifty.
----
Mail-ClamAV-0.26
http://search.cpan.org/~converter/Mail-ClamAV-0.26/
Perl extension for the clamav virus scanner
----
Module-Install-AssertOS-0.08
http://search.cpan.org/~bingos/Module-Install-AssertOS-0.08/
A Module::Install extension to require that we are running on a particular OS
----
MooseX-MethodAttributes-0.07
http://search.cpan.org/~bobtfish/MooseX-MethodAttributes-0.07/
code attribute introspection
----
MooseX-MethodAttributes-0.08
http://search.cpan.org/~bobtfish/MooseX-MethodAttributes-0.08/
code attribute introspection
----
MooseX-Types-Structured-0.13
http://search.cpan.org/~flora/MooseX-Types-Structured-0.13/
Structured Type Constraints for Moose
----
MySQL-Admin-0.42
http://search.cpan.org/~lze/MySQL-Admin-0.42/
Mysql Administrator and more
----
ORDB-CPANTS-0.04
http://search.cpan.org/~adamk/ORDB-CPANTS-0.04/
An ORM for the published CPANTS SQLite database
----
ORDB-CPANTSWeight-0.01
http://search.cpan.org/~adamk/ORDB-CPANTSWeight-0.01/
An ORLite-based ORM Database API
----
ORDB-CPANTSWeight-0.02
http://search.cpan.org/~adamk/ORDB-CPANTSWeight-0.02/
An ORLite-based ORM Database API
----
ORDB-CPANTesters-0.08
http://search.cpan.org/~adamk/ORDB-CPANTesters-0.08/
An ORM for the published CPAN Testers SQLite database
----
ORDB-CPANUploads-0.03
http://search.cpan.org/~adamk/ORDB-CPANUploads-0.03/
An ORLite-based ORM Database API
----
PDF-API3-3.001
http://search.cpan.org/~otto/PDF-API3-3.001/
Next version after PDF::API2
----
Padre-Plugin-Perl6-0.33
http://search.cpan.org/~azawawi/Padre-Plugin-Perl6-0.33/
Padre plugin for Perl6
----
Python-Serialize-Pickle-InlinePython-0.01
http://search.cpan.org/~tokuhirom/Python-Serialize-Pickle-InlinePython-0.01/
handle pickled data with Inline::Python
----
Simo-0.1105
http://search.cpan.org/~kimoto/Simo-0.1105/
Very simple framework for Object Oriented Perl.
----
Simo-0.1106
http://search.cpan.org/~kimoto/Simo-0.1106/
Very simple framework for Object Oriented Perl.
----
Sledge-Plugin-QueryHash-0.01
http://search.cpan.org/~matsumoto/Sledge-Plugin-QueryHash-0.01/
Get query params helper module for Sledge
----
Smolder-1.38
http://search.cpan.org/~wonko/Smolder-1.38/
Web-based Continuous Integration Smoke Server
----
Socket-Class-2.15
http://search.cpan.org/~chrmue/Socket-Class-2.15/
A class to communicate with sockets
----
Syntax-Highlight-Perl6-0.44
http://search.cpan.org/~azawawi/Syntax-Highlight-Perl6-0.44/
Perl 6 Syntax Highlighter
----
Syntax-Highlight-Perl6-0.45
http://search.cpan.org/~azawawi/Syntax-Highlight-Perl6-0.45/
Perl 6 Syntax Highlighter
----
Term-GentooFunctions-1.302
http://search.cpan.org/~jettero/Term-GentooFunctions-1.302/
provides gentoo's einfo, ewarn, eerror, ebegin and eend.
----
Test-Ping-0.05
http://search.cpan.org/~xsawyerx/Test-Ping-0.05/
Testing pings using Net::Ping
----
Text-Template-Simple-0.62_17
http://search.cpan.org/~burak/Text-Template-Simple-0.62_17/
Simple text template engine
----
Text-Template-Simple-0.62_18
http://search.cpan.org/~burak/Text-Template-Simple-0.62_18/
Simple text template engine
----
Unicode-LineBreak-0.001_02
http://search.cpan.org/~nezumi/Unicode-LineBreak-0.001_02/
UAX #14 Unicode Line Breaking Algorithm
----
Unix-Process-1.3101
http://search.cpan.org/~jettero/Unix-Process-1.3101/
Perl extension to get pid info from (/bin/ps).
----
WWW-HtmlUnit-0.04
http://search.cpan.org/~awwaiid/WWW-HtmlUnit-0.04/
Inline::Java based wrapper of the HtmlUnit library
----
WWW-Shorten-PunyURL-0.03
http://search.cpan.org/~pfig/WWW-Shorten-PunyURL-0.03/
An interface to SAPO's URL shortening service
----
Xtract-0.01
http://search.cpan.org/~adamk/Xtract-0.01/
Take your database and deliver it to the world
----
Xtract-0.02
http://search.cpan.org/~adamk/Xtract-0.02/
Take any database and deliver it to the world
----
Xtract-0.03
http://search.cpan.org/~adamk/Xtract-0.03/
Take any database and deliver it to the world
----
Xtract-0.04
http://search.cpan.org/~adamk/Xtract-0.04/
Take any data source and deliver it to the world
----
YAML-Syck-1.06
http://search.cpan.org/~audreyt/YAML-Syck-1.06/
Fast, lightweight YAML loader and dumper
----
YAML-Syck-1.07
http://search.cpan.org/~audreyt/YAML-Syck-1.07/
Fast, lightweight YAML loader and dumper
----
jmx4perl-0.01_01
http://search.cpan.org/~roland/jmx4perl-0.01_01/
If you're an author of one of these modules, please submit a detailed
announcement to comp.lang.perl.announce, and we'll pass it along.
This message was generated by a Perl program described in my Linux
Magazine column, which can be found on-line (along with more than
200 other freely available past column articles) at
http://www.stonehenge.com/merlyn/LinuxMag/col82.html
print "Just another Perl hacker," # the original
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Smalltalk/Perl/Unix consulting, Technical writing, Comedy, etc. etc.
See http://methodsandmessages.vox.com/ for Smalltalk and Seaside discussion
------------------------------
Date: Sat, 25 Apr 2009 13:06:03 -0700
From: Michael Vilain <vilain@NOspamcop.net>
Subject: Re: Perl is too slow - A statement
Message-Id: <vilain-EF1AC5.13060325042009@news.motzarella.org>
In article
<787c3c48-e25e-44b0-943a-3f60712fbfc9@k2g2000yql.googlegroups.com>,
mercurish@googlemail.com wrote:
> We hear this all too common:
> "I have one huge problem with Perl; it is too slow."
>
> But is Perl realy slow, could perl be slow at all?
>
> The problem is that most programmers associate an implementation of a
> programming
> language with the language it self. The current interpreter is too
> slow and hence programmers
> think that 'Perl' is too slow.
>
> Perl5 doesn't perform anything to make Perl machine like-able, Perl5
> is infact hated by machines
> where the Perl5 program is being executed.
>
> Though however, with Perl6 the maintainers of the programming language
> are hoping to reduce the
> runtime overhead of using Perl over the traditional programming
> languages such as C.
>
> But is Perl ready to be used for huge projects or is other languges
> such as Python taking over??
>
> What are we going to do??
>
>
> -- Kasra
As a recovering sysadmin, I find perl to be more than excellent at doing
the day-to-day stuff. It's my tool of choice unless I can bang
something out in the shell in 5 minutes.
As to generalized trollish comments about performance, I find it's
usually not the tool that's needs performance enhancement, it's the
performer that needs enhancement.
--
DeeDee, don't press that button! DeeDee! NO! Dee...
[I filter all Goggle Groups posts, so any reply may be automatically by ignored]
------------------------------
Date: Sat, 25 Apr 2009 21:04:51 +0200
From: "Peter J. Holzer" <hjp-usenet2@hjp.at>
Subject: Re: Posting to perl.beginners via google groups
Message-Id: <slrngv6nml.u8m.hjp-usenet2@hrunkner.hjp.at>
On 2009-04-24 00:00, Eric Pozharski <whynot@pozharski.name> wrote:
> On 2009-04-22, Peter J. Holzer <hjp-usenet2@hjp.at> wrote:
[postings to a moderated group via google groups vanish]
>> The moderator might not even get messages posted through google groups.
>> For a moderated group, the newsserver where you post (Google Groups in
>> this case) needs to be set up to send all postings by email to the
>> moderator's address. The address is of course different for each
>> moderated group, although many hierarchies have a common pattern. If
>> Google Groups wasn't careful, they may send the submissions to
>> perl-beginners@moderators.isc.org or something like that ...
>
> Google Groups isn't newsserver
Of course it is. You can read and write usenet messages there and it
exchanges these messages with other news servers. So it is a
newsserver.
It doesn't offer a (public) NNTP interface, but that is irrelevant for
this problem.
hp
------------------------------
Date: Sat, 25 Apr 2009 21:17:14 -0700
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: totally out of my area (but not OT) - Windows updates script
Message-Id: <fun7v4tpqfpumeioaguii80a3ppfu18fvc@4ax.com>
Jürgen Exner <jurgenex@hotmail.com> wrote:
>ccc31807 <cartercc@gmail.com> wrote:
>>This is totally out of my area, but not OT.
>>
>>I have an urgent request from a Windows sysadmin to write a script to
>>install Windows updates from Microsoft.
>
>Your sysadmin would probably be far better of to use Microsoft's site
>admin tools, which will download the updates once to a central local
>server and then distribute them locally.
Found the link again. Please see
http://technet.microsoft.com/en-us/wsus/bb466186.aspx or the
corresponding page for your market.
jue
------------------------------
Date: Sat, 25 Apr 2009 02:23:05 -0700 (PDT)
From: Klaus <klaus03@gmail.com>
Subject: Re: unexplained warning message in m{...} regexp
Message-Id: <4edd4ff9-bb9b-411e-8889-3d6415dbba89@c36g2000yqn.googlegroups.com>
On Apr 25, 3:13=A0am, Ilya Zakharevich <nospam-ab...@ilyaz.org> wrote:
> =A0 [There are two different mechanisms of unescaping in the lifetime of
> =A0 =A0a REx.
>
> =A0 =A0a) First, the parser removes delimiters
Ok, so far I am with you.
> (and unescapes escaped delimiters)
> (it may also remove certain other escapes - do not remember details=
).
Why unescaping escaped delimiters ?
> =A0 =A0b) The result is passed to REx engine. =A0It processes all the
> =A0 =A0 =A0 remaining special-for-REx escapes.
I don't know how the REx engine works, but I would be surprised if it
could not handle an escaped delimiter (such as '\{' in my case),
whereas at the same time it can handle an escaped non-delimiter (such
as '\[' for example).
> =A0 =A0I did not have time to document it when I was working on Perl
> =A0 =A0RExes. =A0I doubt the docs improved from that time...]
That's why I was confused when I came across this case.
> The difference is kinda subtle. =A0E.g., variables interpolated in RExes
> are subject ONLY to "b"-unescaping.
This information would be useful in the documentation.
>=A0Also, one can see the result of
> "a" in debugging output of
>
> =A0 =A0use re 'debugcolor';
>
> Hope this helps,
> Ilya
>
> P.S. =A0If one tries to use \ as a delimiter, one can get yet funnier
> =A0 =A0 =A0 quirks of this 2-step semantic... =A0;-)
This information would also be useful in the documentation.
------------------------------
Date: Sat, 25 Apr 2009 06:50:05 -0700 (PDT)
From: Klaus <klaus03@gmail.com>
Subject: Re: unexplained warning message in m{...} regexp
Message-Id: <f74bc3f1-4381-42ca-9819-9c5227f83878@v35g2000pro.googlegroups.com>
On Apr 25, 6:22=A0am, Xho Jingleheimerschmidt <xhos...@gmail.com> wrote:
> Klaus wrote:
> > there is no reason to quote metacharacters { } in the
> > first place,
> =A0> as they always come in pairs and are handled natuarally by m{...
>
> > { }...} as a nested pair of curlies, for example m{a{1,2}}
>
> They don't always come in pairs. =A0What if the literal string you wanted
> to match were '{0,0' ?
I was talking about '{' and '}' as metacharacters. A '{' in /a{0,0}/
is a metacharacter and always comes paired with a '}'. Those { }
metacharacters are never escaped in a regexp.
The '{' in '{0,0' is a literal curly, and they, of course, can come in
any number or combination. Any { } literal has to be always escaped in
a regexp.
--
Klaus
------------------------------
Date: Sat, 25 Apr 2009 13:55:40 -0700
From: sln@netherlands.com
Subject: Re: unexplained warning message in m{...} regexp
Message-Id: <10t6v49ub6soa6i8u7npmc7tpu504jh44g@4ax.com>
On Fri, 24 Apr 2009 02:04:05 -0700 (PDT), Teo <matteo.corti@gmail.com> wrote:
>Dear Franz,
>
>On Apr 24, 10:32 am, Frank Seitz <devnull4...@web.de> wrote:
>> Klaus wrote:
>>
>> > It seems to me that Perl is confused about using '{' and '}' inside a
>> > match of the form m{...}
>>
>> Perl is not confused. It's a syntax error, because { and } have a special
>> meaning in regexes. See perldoc perlre (Section "Quantifiers").
>
>No is not: the curly brackets are correctly escaped. The problem only occurs if {} are used:
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
wrong! same problem, different side effects
>other bracketing delimiters (e.g., m(\A\{0,0\}
^^^^^^^^^^
The problem is with all closure delimeters, including {} and ().
Perl doesn't look like it has had unit testing.
What about that Illya?
See if you can spot the error using () as delimeters. Consider this:
use strict;
use warnings;
$_ = '(0,0)';
my $Ax = qr (\(0,0\));
print "Ax (bad) = $Ax \n";
if ( /$Ax/ ) {
print "yes - \$Ax matched '$1'\n";
}
else {
print "no\n";
}
print "\n";
my $Bx = qr /(\(0,0\))/;
print "Bx (good) = $Bx \n";
if ( /$Bx/ ) {
print "yes - \$Bx matched '$1'\n";
}
else {
print "no\n";
}
__END__
Output:
Ax (bad) = (?-xism:(0,0))
yes - $Ax matched '0,0'
Bx (good) = (?-xism:(\(0,0\)))
yes - $Bx matched '(0,0)'
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V11 Issue 2368
***************************************
