судя по всему вы не сможете слету написать свой модуль который за вас будет делать работу.
поэтому используйте:
0. use CGI;
~$ perl -mCPAN -e \'install CGI\'
~$ perldoc CGI
довольно хорошо изложено
1. mod_rewrite (rewritemap)
http://cyberperl.ru/index.php?option=com_content&task=view&id=38&Itemid=1 довольно подробно и просто изложено
и на заметку, скрипту _любому_ данные передаются как STDIN, не нужно изобретать велосипед а просто почитать документацию.
если метод GET это QUERY_STRING, если метод POST это STDIN
вопросы? perl-at-ipchains.ru
sub get_args() {
my(%r);
if ($ENV{"REQUEST_METHOD"} eq "GET") {
$ENV{"QUERY_STRING"} =~ tr/+/ /;
$ENV{"QUERY_STRING"} =~ s/%([0-9a-fA-F]{2})/pack("c",hex($1))/ge
;
my(@params) = split("&",$ENV{"QUERY_STRING"});
for ($i = 0;$i < scalar(@params);$i++) {
($option,$value) = split("=",$params[$i]);
$r{$option}=$value;
}
}
if ($ENV{"REQUEST_METHOD"} eq "POST") {
read(STDIN,$temp,$ENV{"CONTENT_LENGTH"});
$temp =~ tr/+/ /;
$temp =~ s/%([0-9a-fA-F]{2})/pack("c",hex($1))/ge;
my(@params) = split("&",$temp);
for ($i = 0;$i < scalar(@params);$i++) {
($option,$value) = split("=",$params[$i]);
$r{$option}=$value;
}
}
return %r;
}
