Question

我读了这个bug，但我无法弄清楚如何在opeshift平台上的perl应用程序中使用我的模块。

这是我在./libs/MyModuleA12H.pm

中的模块

#!/usr/bin/perl
use strict;
use Exporter qw(import);
our @EXPORT_OK = qw(test);

package MyModuleA12H;

sub test {
    return 'content...';
}

1;

这里是我的./index.pl

#!/usr/bin/perl
print 'Content-type: text/html\r\n\r\n';

print '<html><head><title>HI</title></head><body>';
use File::Basename qw(dirname);
use Cwd qw(abs_path);
use lib dirname($0) . '/libs';
require MyModuleA12H;

print '<div>';
print MyModuleA12H::test();
print '</div>';

print '</body></html>';

本地它可以工作，但如果我提交并重新加载，我会找到一个找不到的文件。

修改

看起来像是权限问题。如果我评论所有＆＃34;使用＆＃34;无法找到part index.pl。

编辑2

我用

中的单引号搞得一团糟

print 'Content-type: text/html\r\n\r\n';

应该是＆＃34;，现在它可以工作了，感谢Borodin提出我应用这些更改的建议。

openshift perl模块加载

0 个答案: