Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Re: regexp issue: Porting script from 5.6.1 to 5.005_02

by PodMaster (Abbot)
on Aug 10, 2004 at 01:24 UTC ( [id://381426]=note: print w/replies, xml ) Need Help??


in reply to regexp issue: Porting script from 5.6.1 to 5.005_02

my $query = undef; if ($query =~ /^(([\w\d\-\_]+)[:,]|)(.*)$/) { # we get here! print "$`|$1|$2|$3|$4|$'|$query|"; } else { exit; } __END__ ||||||| C:\>perl -v This is perl, v5.8.4 built for MSWin32-x86-multi-thread
nothing matches nothing or nothing :)
C:\>perl -le"print 1 if undef =~ //" 1 C:\>perl -le"print 1 if undef =~ /|/" 1 C:\>perl -le"print 1 if undef =~ /blahblah|/" 1
What you say happens with 5.6.1 doesn't sound sounds questionable (I haven't checked the perlbug database).

MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!"
I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README).
** The third rule of perl club is a statement of fact: pod is sexy.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://381426]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others contemplating the Monastery: (6)
As of 2024-03-28 11:00 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found