Select Code to Download

GotToBTru (21apr15):
c:\@Work\Perl>perl -wMstrict -MData::Dump -le
...
[\21, \46]

{ a => 1, b => 21, c => 3, d => 46, e => 5, f => 6 }

# paste_to_cbddd.pl    paste to clipboard                   24may12waw

...

C:\@Work\Perl\clipboard>perl -wMstrict -e "print \" \\\\\\\\\\\\\\\" \
+""
 \\\"

@ECHO OFF

...


:END

=comment
...
     # { $preceding_embedded_qqs++ if $1 eq q{"};  $escape{$1} }xmsge;

print "~$param~";

>perl -wMstrict -le
"persist();
...

0
1

# SelTran.pm        selective translation                   31jan10waw

...


1;

# SelTran.t         test selective translation              31jan10waw

...
    my ($from, $to) = @$ar_vector;
    is $xlate->($from), $to;
    }