Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

Re: ACA JAPH (hints)

by goibhniu (Hermit)
on Aug 22, 2007 at 14:08 UTC ( [id://634353] : note . print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    @ca = (sub {
        @kp = split(//, shift @_, 0);
    ...
    );
    $ca[0]->('thequickbrownfoxjumpsoverthelazydogs', 10);
    print $ca[1]->('ZOCK FWUKLMT BMTE LFQR', \%C2) . "\n";
    
  2. or download this
    # @ca - code array
    # @kp - key phrase
    ...
    # $t  - text
    # $h  - hash reference
    # $r  - result