Perl：<*>做什麼？

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的< *>，但我沒能在任何地方找到它。
< *>做什麼？

Answer 1

<$old*>與glob(qq<$old*>)相同，也可以寫成glob("$old*")。

如果$old是一樣的東西

/foo/some\ dir/ 

它會列出在

/foo/some dir 

返回文件除了那些與.開始。