Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
print Dumper \@foo;

print "nok" if $foo[7] ne '$';
  2. or download this
    @view
  |- 0: alias $foo[1]  
...
  |- 3: alias $foo[6]
  |- 4: 'G'
  \- 5: 'C'
  3. or download this
    @view
  |- 0: alias $foo[1]  
...
  |- 3: alias $foo[6]
  |- 4: alias $foo[7]
  \- 5: alias $foo[8]