Advertisement
Guest User

Untitled

a guest
Mar 3rd, 2015
236
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.21 KB | None | 0 0
  1. package functions;
  2.  
  3. sub get_parameters
  4. {
  5. my ($query) = @_;
  6. my (@values,$key);
  7. my $form;
  8. foreach $key ($query->param) {
  9. @values=$query->param($key);
  10. $form->{$key}=$values[0];
  11. }
  12. return $form;
  13. }
  14.  
  15. 1;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement