html and cgi? 2

[dontu]

Hi all,
I want to introduce a hash in doc html and to press a button this hash it will to assume of prog perl and print by param keys/values.Can you help me somebody?

#!/usr/bin/perl
use strict;

use CGI;
print CGI::header();


my %disp = CGI:aram('hash');
print"<b>Welcome</b>";
print"<hr>";
my @keys = keys(%disp);
my @values1= values(%disp);
if(%disp = ~m/\(? [a-z]*[,\s]?/x){
foreach (@keys){
print "This is key $_ \n";
foreach (@values1){
print "This is value $_ \n";
}
}
}
print"<hr>";

 

[Deleted]

I think this is what you sare looking for

use CGI;

my $q = new CGI;

foreach my $key ( $q->param() ) {
    my @params = $q->param($key);
    my $value  = join( ", ", @params );
    print qq{ KEY: $key - VALUE: $value };
}

[URL unfurl="true"]http://unixjunky.com[/URL]

 

[KevinADC]

or:

#!/usr/bin/perl
use strict;
use CGI;
my $q = new CGI;
my %form = $q->Vars;
print $q->header,
      $q->start_html,
      '<b>Welcome</b><hr>',
      map {"This is key: $_ - This is value: $form{$_}\n"} keys %form,
      '<hr>',
      $q->end_html;

read the CGI.pm documentation for proper use of the module:

http://perldoc.perl.org/CGI.html