Help for this page

Select Code to Download


  1. or download this
    for (@$STF1){
    print OUTPUT "<li>$_->[0]</li>" .
                 qq{<a href="$_->[1]$STF3_Tables">$_->[2]</a><br />\n}
+;
}
  2. or download this
    for (@STF1){
    printf OUTPUT "<li>%s</li>" .
                  qq{<a href="%s$STF3_Tables">%s</a><br />\n},
                  @$_;
}
  3. or download this
    # my @temp = foo; my $ref = [ @temp ];
my $ref = [ foo ];
# ($a, $b) = \(@a, @b); return $a, $b;
return \(@a, @b);
  4. or download this
    2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$