Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict;
...

print "Matched: \$1 '$1', \$2: '$2', \$3: '$3'\n"
    if $tail =~ /^\s*(.+)\s+\.\s*CP\s*\(\s*(\S+)\s*\)\s*\,\s+(.+)\s*\n
+/i;
  2. or download this
    Matched: $1 '.D(next_out_en),', $2: 'n16', $3: '.CDN(n48), .Q('