Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/env perl
    
    ...
    $info{$posts[$_]}{extra} = $extra[$_] for 0..$#posts;
    
    print "$_~$info{$_}{extra}\n" for @posts;
    
  2. or download this
    a to b
    b to c
    ...
    b~x
    c~y
    d~z