如果 pm 库不存在则显示错误

Question

这个“有趣”的困境。

要在 perl 中使用 lib，您显然包含“use lib x”命令...但是如果“x.pm”不存在，您该怎么办，（或者更准确地说，有机会被服务器管理员删除）

简而言之，我将这个文件与我帐户根目录中的 .htaccess 和其他文件一起“隐藏”在我的帐户根目录下，即“public_html”文件夹下方 - 以防止其被窥探。所以我可以在脚本中设置路径，比如“使用/home/account/x”，一切都很好。

过去，我认为安全措施意味着该文件有时会被删除。因此，当脚本运行时，查看者会看到一个光荣的“500 错误”

我试过了：

 If (-e 'use /home/account/x'){
 use 'home/account/x';
 ...
 }
 else{
 print "error";
 }

但它所做的只是说它在“If”下面的行中找不到使用命令

试过了：

use 'home/account/x' || die ('cannot find file')

但是那个语法是错误的。有什么简单的方法吗？

Answer 1

这与何时可以“注意到”错误有关。 use 发生在编译时间。因此 - 你不能做很多你会做的正常程序流程的事情。 （有一些例外）。

但是你可以做的是require，它在运行时加载东西——在那个时候你可以做你想要的那种测试。

#!/usr/bin/env perl
use strict;
use warnings;

eval { require "Not_here.pm" };
warn "Couldn't load: $@" if $@;
print "fish";

虽然，您可能还需要import 所需的例程，在requiring 模块之后，因为use 这样做：

 BEGIN { require Module; Module->import( LIST ); }

Answer 2

我使用字符串eval 来检查一个模块是否存在，如果没有它我是否可以运行。

our $have_unac = 0;
BEGIN {
    eval "use Text::Unaccent::PurePerl";
    $have_unac = 1 if (!$@);
}