在perl解析和裸字中混淆dimond运算符的语法

@month_dirs = <$log_directory/*>;

@month_dirs = <$conf->log_directory()."/*">

$month_directory_command = $conf->log_directory()."/*";
 @month_dirs = <$month_directory_command>;

$month_directory_command = $conf->log_directory();
 @month_dirs = <$month_directory_command/*>;

$bare_word = $conf->log_directory()/*

$month_directory_command = $conf->log_directory();
 $bare_word = $month_directory_command/*;
 @month_dirs = <$bare_word>;

你误以为钻石操作符<>仅适用于裸字：

$perl -E'say for <"/*">'
/bin
/boot
/dev
...

(事实上??,一个裸字只是一个没有印记的标识符,并且被严格的’subs’禁止;所以你的例子都没有真正的资格.)

这个：

@month_dirs = <$log_directory/*>;

因为在<>内部完成了双引号内插级别,并且内插了诸如$log_directory之类的标量变量.

它相当于：

@month_dirs = glob("$log_directory/*");

这个：

@month_dirs = <$conf->log_directory()."/*">

因为>而失败在$conf-> log_directory()过早地关闭菱形运算符,使解析器混乱.

它被解析为：

<$conf->

(对glob的调用)接着是

log_directory()."/*">

这是一个语法错误.

这个：

$month_directory_command = $conf->log_directory()."/*";
@month_dirs = <$month_directory_command>;

因为失败了

<$month_directory_command>

相当于

readline($month_directory_command)

而不是

glob("$month_directory_command")

从perldoc perlop开始：

If what the angle brackets contain is a simple scalar variable (for example,$foo),then that variable contains the name of the filehandle to input from,or its typeglob,or a reference to the same.

[…]

If what’s within the angle brackets is neither a filehandle nor a simple scalar variable containing a filehandle name,typeglob,or typeglob reference,it is interpreted as a filename pattern to be globbed,and either a list of filenames or the next filename in the list is returned,depending on context. This distinction is determined on syntactic grounds alone. That means <$x> is always a readline() from an indirect handle,but <$hash{key}> is always a glob().

所以你试图从尚未打开的文件句柄($month_directory_command)中读取.

使用警告“全部”打开警告;会提醒你这个：

readline() on unopened filehandle at foo line 6.

这个：

$bare_word = $conf->log_directory()/*;

失败是因为您尝试将方法调用的结果与非带引号的字符串连接起来;要连接字符串,您必须将它们插入到双引号字符串中,或??使用连接运算符.

你可以这样做：

$bare_word = $conf->log_directory() . "/*";
@month_dirs = <"$bare_word">;

(虽然$bare_word根本不是一个单词,但它是一个标量变量.)

注意：

@month_dirs = <$bare_word>;

(不带引号)将被解释为readline,而不是glob,如上面的perlop所述.

但是,一般来说,直接使用glob运算符可能不那么令人困惑：

@month_dirs = glob( $conf->log_directory() . "/*" );