目录/cgi-bin/test/下面有两个文件test_ca.pm和test_ca.cgi
#test_ca.pm
package test_ca;
use strict;
use warnings;
use Data::Dumper;
use base 'CGI::Application';
sub setup
{
my $self = shift;
$self->mode_param('rm');
$self->start_mode('showform');
$self->run_modes([qw/do1 do2 do3/]);
}
sub cgiapp_postrun {
my $self = shift;
$self->header_add( -charset => 'gbk' );
}
sub do1
{
return '<html><body><p>do1</p></body></html>';
}
#test_ca.cgi
use base 'CGI::Application::Dispatch';
CGI::Application::Dispatch->dispatch(
prefix => '',
table => [
':app/:rm' => { },
],
# debug => 1,
);
现在访问http://example.com/cgi-bin/test/test_ca.cgi/test_ca/do1 显示404 not found
第一次用'CGI::Application::Dispatch'，不知道是不是用法有问题……
2009-01-14
ximiff
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina 论坛"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---
博文
没有评论:
发表评论