Help for this page

Select Code to Download


  1. or download this
    my $query = undef;
if ($query =~ /^(([\w\d\-\_]+)[:,]|)(.*)$/) {
...

C:\>perl -v
This is perl, v5.8.4 built for MSWin32-x86-multi-thread
  2. or download this
    C:\>perl -le"print 1 if undef =~ //"
1
...
C:\>perl -le"print 1 if undef =~ /blahblah|/"
1