perl
getquery.pl #!/usr/bin/perl use CGI; $q=new CGI; @names=$q->param; print $q->header(-charset=>"utf-8"), $q->start_html( -title=>$title, -lang =>'ja', -style=>{-src=>'../style.css'} ); foreach my $name ( @names ) { print "$name: ",$q->param…
getquery.pl #!/usr/bin/perl use CGI; $q=new CGI; @names=$q->param; print $q->header(-charset=>"utf-8"), $q->start_html( -title=>$title, -lang =>'ja', -style=>{-src=>'../style.css'} ); foreach my $name ( @names ) { print "$name: ",$q->param…
