25
4
I have never fully understood Perl's resolution of package names, but I always assumed that the following should always work, assuming you are executing myscript.pl from within the directory that contains it:
我从来没有完全理解过Perl对包名的解析，但我总是假设以下内容应该总是有效的，假设您是从包含它的目录中执行myscript.pl：
个人中心
文章发布
退出myscript.pl (contains the following statement: use Class1::Class2::Class3)
Class1/
Class2/
Class3.pm (contains the following package declaration: package Class1::Class2::Class3;)
However, this is not working in my code because Class3.pm cannot be located. Looking at @INC, it does not include the current directory, only various directories of my Strawberry Perl installation.
然而，这在我的代码中不起作用，因为找不到Class3.pm。查看@Inc，它不包括当前目录，只包括我的Strawberry Perl安装的各种目录。
What is the recommended way to solve this? I suppose I could modify @INC, or I could start using FindBin, but I'm not sure which is best. I have inherited this code and am simply migrating it to a new location, but it doesn't look like the old code needed either such solution (I could be wrong, still looking...)
解决此问题的推荐方法是什么？我想我可以修改@Inc，或者我可以开始使用FindBin，但我不确定哪个是最好的。我继承了这段代码，只是简单地将它迁移到一个新位置，但看起来旧的代码不需要这样的解决方案(我可能是错的，还在寻找……)
v5.26删除@INC中的点
Perl has never searched the script's directory for modules.
Perl从未在脚本的目录中搜索模块。
Perl did search the current directory. It is because the current directory is sometimes the same as the script directory that it appeared that Perl searched the script's directory.
Perl确实搜索了当前目录。因为当前目录有时与脚本目录相同，所以Perl似乎搜索了脚本的目录。
But the current directory is often different than the script's directory. So code like yours that assumes that Perl searches the script's directory for modules has always been buggy.
但当前目录通常与脚本的目录不同。因此，像您这样假设Perl在脚本目录中搜索模块的代码总是有错误的。
Since 5.26, Perl no longer searches the current directory for security reasons. This simply made the bug more evident.
从5.26开始，出于安全原因，Perl不再搜索当前目录。这只会让这个漏洞变得更加明显。
To tell Perl to look in the script's directory for modules, use the following:
要告诉Perl在脚本目录中查找模块，请使用以下命令：
use FindBin 1.51 qw( $RealBin );
use lib $RealBin;
or
或
use Cwd qw( abs_path );
use File::Basename qw( dirname );
use lib dirname( abs_path( $0 ) );
Having . (the current directory) in @INC was removed in 5.26 for security reasons (CVE-2016-1238). Some Linux distributions have backported the change, so you might run into this problem even if you're using e.g. 5.24.
拥有。出于安全原因，@Inc中的(当前目录)在5.26中被删除(CVE-2016-1238)。一些Linux发行版支持这一更改，所以即使您使用的是5.24，也可能会遇到这个问题。
Perl 5.26 removed having the current working directory in @INC as a security measure.
作为安全措施，Perl 5.26删除了将当前工作目录放在@Inc中。
It's explained in the 5.26 perldelta notes.
这在5.26的每三角音符中有解释。
A tangential question, but why $RealBin and not just $Bin? Does having the links resolved give us any benefit here, or have you used it here just a general good practice?
一个离题的问题，但为什么是$RealBin，而不仅仅是$Bin？解决链接对我们在这里有什么好处吗，或者您在这里使用它只是一种普遍的良好做法？
@sundar, $Bin won't work if someone creates a symlink to the script.
@sundar，如果有人创建了指向脚本的符号链接，$Bin将不起作用。
What is the 1.51 argument to FindBin? I don't see anything like that usage mentioned in perldoc for FindBin.
FindBin的1.51论点是什么？我没有看到任何类似PerldocFindBin中提到的用法。
@Greg Kennedy, It's a version check. See the use Module VERSION LIST syntax of use.
@格雷格·肯尼迪，这是一个版本检查。请参阅Use的Use模块版本列表语法。
@textral, No difference between __FILE__ and $0 (unless you changed $0, so __FILE__ is slightly better). That's not the problem. The problem is that you used realpath(dirname(__FILE__)) instead of dirname(realpath(__FILE__)). Your way will fail if a symlink is used.
@tExtral，__FILE__和$0之间没有区别(除非您更改了$0，所以__FILE__稍好一些)。这不是问题所在。问题是您使用的是realpath(dirname(__File__))，而不是dirname(realpath(__File__))。如果使用符号链接，您的方法将失败。
@ikegami Oh, interesting. I didn't know FindBin was fixed. It did search $PATH until version 1.51, released with perl 5.16.
@池上哦，很有趣。我不知道FindBin已经修好了。它确实搜索了$PATH，直到与Perl 5.16一起发布的1.51版。
@ikegami I've retracted my code. Your FindBin solution is better (assuming it's at least version 1.51, so use FindBin 1.51 qw($RealBin) may be a good idea).
@池上，我收回了我的代码。你的FindBin解决方案更好(假设它至少是1.51版本，所以使用FindBin 1.51 QW($RealBin)可能是个好主意)。
25
4
0
127.0.0.1:8000/api/仅包含来自第二个应用程序的 url，但我将两个 url 模块链接到相同的模式。甚至有可能做到这一点吗？ 第一个应用程序: from django.urls imp
我目前正在学习 ColdFusion。我有 PHP 背景，对此我有点困惑。 我有一个选择菜单，我希望将选项保存在不同的文件中。 (例如 options.cfm)当我调用文件时，我想在选择菜单中包含选项
字符串: "75,000", "is", "95%", "or", "95/100" "of", "monthly", "income" o/p: "is","%, "or", "/", "of",
我有 4 个 javascript 文件(每个文件对应一个 HTML 文件)，所有 4 个文件中的 3 个函数都是相同的。我想找到一个顺利的解决方案，我可以以某种方式分别包含这 3 个函数...是否可
我在 PHP 中有这种情况，其中 include在一台服务器上被遗漏，但在另一台服务器上没有(我没有设置服务器，所以我不能告诉你更多；我不是真正的 devops 人，所以这就是我在这里问的原因)。两台
这是一个模式文件，midi.xsd定义类型，note ，用于存储 MIDI 音符值: 这是另一个模式文件，octaves.xsd使用
我想备份以下文件夹 /home /etc /usr/local /root /var /boot 并排除 /var/tmp /var/run /var/lock /home/*/.thumbnails
如何重新编码具有许多值(包括缺失值)的数值变量，以获得数字 0:n-1哪里n是唯一值的数量，包括 NA ，整齐？ 例子: df 1 1000 0 2 1000 0 3 N
选择元素的 html(包括在内)的最佳方法是什么？例如: This is just a test. 而$('#testDiv').html()返回"This is just a test."
我正在尝试设置Varnish来处理本地环境中的ESI包含。 我在虚拟机中运行 Varnish ，内容在主机上运行。 我有两个文件“index.html”和“test.html”。它们都存储在apach
我有以下内容，并且想要检索“ FromEmail”不为空的数据 Simple email@gma
欧海，我正在编写一个小型 PHP 应用程序，使用一个单独的 config.php 文件和一个functions.php，其中包含我将在应用程序中使用的所有自定义函数。现在，我真的必须在每个函数中包含
我知道可以将 JavaScript 放在一个特定的 .js 文件中，然后通过执行以下操作将其包含在任何页面中...... 我注意到，对于包含的这些 .js 文件: 它们实际上不必以 .js 结尾 其
我使用 gwt UIBinder 添加了一些项目到我的 ComboBox。 --select one-- Dispute Referral Form Dispute Settlement Clause
我可以将一个 first.c 文件包含到另一个 second.c 中吗？ (我正在做一些套接字编程，以将服务器收到的消息存储在链接列表中，因此在第一个程序中，我尝试保留链接列表和第二个程序套接字编程文
我有一个简单的 Spring MVC 数据项目设置，我试图选择 Admin 中尚不存在的用户列表。 table 。这是我的存储库方法 SELECT u FROM User u WHERE u.id N
在 bash 脚本中，使用什么实用程序以及如何删除两个字符串之间的文本，包括字符串。 原文: (ABC blah1)blah 2(def blah 5)blah 7)(DEF blah 8)blah
我有这个 BST 问题，我试图用 Java 解决，但我不知道为什么它不起作用。问题是: 二叉搜索树 (BST) 是一种二叉树，其中每个值节点大于或等于该节点的所有节点中的值左子树并且小于该树中所有节点
我有一个字符串，其中包含“Dollars”和“Cents”符号。我想删除它们。我试过了 string.replaceAll("[\"\\u00A2\" $]", "") 但它不起作用。正确的做法是什么
我在 stories 和 tags 之间有一个多对多的关系，为保存关系而创建的表是 taxonomies。我想搜索所有具有所有给定标签的故事。 到目前为止我使用的查询是这个，当然它对我不起作用，它返回
我是一名优秀的程序员,十分优秀！