Help for this page

Select Code to Download


  1. or download this
    foreach my $field (qw( foo bar baz)) {
        *$field = sub { 
    ...
            $self->{$field};
        };
    }
    
  2. or download this
    use CGI qw(:all);
    my @names = param();
    foreach my $name (@names) {
        $$name = param($name);
    }