Help for this page

Select Code to Download


  1. or download this
    use warnings;
use vars qw($VERSION);
$VERSION="0.02";
  2. or download this
    # DANGER! this initially used keys %$line, but order can't be guarante
+ed.
# my (@keys,@values);
# for (keys %$line)
...
# }
my @keys = keys %$line;
my @values = map $$_, values %$line;
  3. or download this
    # map { "?" } (0..scalar @values-1)
( "?" ) x @values