Perl - 读取某个路径下的文件

Perl在文件系统处理方面功能强大！下面要介绍如何对某个路径下的文件进行读取。其实用Perl来实现这一功能的方法很多，但是我觉得下面的这种方法还是挺简单的。

注释应该挺详细了。时间宝贵，这里不做详细介绍，如有问题请留言。

#!/usr/bin/perl -w
my @files = <*>; 
#
# <*> 很重要，也很强大！
# <*> 相当于把当前默认下的所有非隐藏文件文件抓出。
# 如果你要抓取其他路径，或者过滤某些文件类型，你可以这么写：
#</home/dcai/*.txt> 相当于把/home/dcai下的所有.txt文件抓出，这时抓取的文件含有绝对路径。
#
foreach $file (@files) {
#可选：对获取的文件名处理，例如获取perl文件的名称(不包含扩展名'.pl')
   my $filename = "";
   if($file =~ m/.*\/(.*)\.pl$/){
      $filename = $1;
   }
   elsif ($file =~ /(.*)\.pl$/){
      $filename = $1;
   }
   print $filename, "\n";
   
   my $whole_file = "";
#读取文件内容：
   open(FILE, "< $file") or die "can't open $file: $!";
   while(<FILE>){
      $whole_file .= $_;
   }
#打印文件内容：
   print $whole_file, "\n";
   close(FILE);
}