Perl：什么＆lt; *＆gt;做？

Question

我遇到了这个子程序：

241 sub update_file {
242     my $old = shift;
243     my $new = shift;
244
245     my   @old = <$old*>;                        <----------
246
247     if (scalar(@old) == 0) {
...

我goolged perl＆lt; *＆gt;但我无法在任何地方找到它。
什么＆lt; *＆gt;办？

Answer 1

<$old*>与glob(qq<$old*>)相同，也可以写为glob("$old*")。

如果$old类似于

/foo/some\ dir/

它将列出

中的文件

/foo/some dir

除了那些以.开头的内容。