Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl 
use strict;
...
$B[0] = 0;
dd @B;
dd @A;
  2. or download this
    +% ~/test/alias.pl 
(1, 2, 3, 4, 5, 7, 21, 55, 66)
(3, 4, 5)
(0, 4, 5)
(1, 2, 0, 4, 5, 7, 21, 55, 66)