Help for this page

Select Code to Download


  1. or download this
    #!/ActivePerl/bin/perl

...
   if (@list) { say "@list" } else { say "no list" }

}
  2. or download this
    Prototype after '@' for main::sayit : @;_ at q.pl line 6.
Prototype after '@' for main::sayit : @;_ at q.pl line 21.
...
4 5 6
no list
no list