Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;
...
&rexyScan;
&niceOutput;
  2. or download this
    main::(-e:1):    0
  DB<1> @regexes = (['first',qr/interesting/,0] , ['second','like',0] 
+, ['third',qr/I/,0] , ['fourth',qr/scan/,0]);
...
      -> qr/(?^u:scan)/
   2  0
  DB<3>