perl使用Cwd qw(); 意思？

Question

是什么

use Cwd qw(); 

在perl中意味着什么？

我知道qw给内部的每个元素都有引号但是这个案例怎么样？

Answer 1

这qw()是编写空列表的一种奇特方式.做什么()会缩短两个字符.

传递空列表use对于避免导入非常重要.从use文档:

如果您不想调用包的导入方法(例如,阻止更改名称空间),请显式提供空列表

例如,默认情况下,Cwd模块导出getcwd.如果我们给它空列表,这不会发生:

use strict;
use Cwd;
print "I am here: ", getcwd, "\n";

有效,但是

use strict;
use Cwd ();
print "I am here: ", getcwd, "\n";

中止编译Bareword "getcwd" not allowed while "strict subs" in use.