Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -wT
use strict;
...
# warning do not do this
my @ary = $q->param('options') || ();
# this kills the array return of CGI.pm
  2. or download this
    my @fields = qw(foo bar baz);
for (@fields) {
    $q->param($_,'') unless defined $q->param($_);
}
  3. or download this
    my @fields = qw (foo bar baz);
for (@fields) {
    $USER{$_} = '' unless defined $USER{$_};
}