↓こんな感じで十分かと
html + javascript
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=UTF-8"> <script src="//ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"> </script> <script> function submit_method(method){ var data = { scalar_1 : 'scalar_val', scalar_2 : 'これは文字列です', array_1 : [1,2,3,4,5], array_2 : ['あ','い','う','え','お'], hash_1 : {1:'A',2:'B'}, hash_2 : {1:'あ',2:'い'} }; var this_obj = this; $.ajax({url: 'hello.pl', type: method, data: data, success: function(ret_json,txt_status,xhr){ alert('REQUEST DONE:'+ method); }, error: function(ret_json,txt_status,xhr){ alert('REQUEST ERROR'); } }); } </script> </head> <body> <button type="button" onClick="submit_method('GET')" >SUBMIT GET</button> <button type="button" onClick="submit_method('POST')" >SUBMIT POST</button> </body> </html>
サーバ (.pl)
#!/usr/local/bin/perl use strict; use CGI; use Data::Dumper; main(); sub main { #↓これをアプリケーションログに残すと、回帰テストに利用できるのでは? my $url = join('',$ENV{'HTTP_HOST'}, $ENV{'REQUEST_URI'}); print STDERR "URL: $url\n"; my $q = CGI->new(); print STDERR Dumper($q); }