同时检查多个文件:use File::CheckTree;
$num_warnings  = validate( q{
    /vmunix                   -e || die
    /boot                      -e || die
   /bin       ...

分析和处理文件路径的模块,dirname和basename和Shell中的完全一样,如果仅仅关心路径处理,使用File::Spec更安全.
use File::Basename;
$file = '/root/Programm/Perl/string.pl';        # /root/Programm/Perl分析和处理文件路径的模块,dirname和basename和Shell中的完全一样,如果仅仅关心路径处理,使用File::Spec更安全.
use File::Basename;
$file = '/root/Programm/Perl/string.pl';        # /root/Programm/Perl
print dirname($file);
print "\n";
print basename("$file",".pl");                   # string

fileparse
use File::Basename;
@array = fileparse("/usr/bin/perl.pl",".pl");
for(@array){
        print "$_\n";
}

在scalar context里面fileparse返回和basename一样的输出.fileparse的第二个参数可以是REGEX:qr//

收藏、分享这篇文章!

%ENV保存有所有的系统环境变量,如果不方便使用%ENV,可以use ENV,把每个环境变量当作Scalar:
use ENV qw(PATH HOME);
print "$PATH\n$HOME\n";

收藏、分享这篇文章!

为了保证平台兼容性,多使用Cwd取当前目录
use Cwd;
my $dir = getcwd;
或者
my $dir = cwd;
my $dir = fastgetcwd;
它们都返回程序运行的当前路径.
use Cwd 'abs_path';
my $abs_path...