Browse > Home / Archive: 08月 2007

| Subcribe via RSS

Perl File::CheckTree

08月 12th, 2007 | No Comments | Posted in Perl | by admin | 124 views |

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

Perl File::Basename

08月 11th, 2007 | No Comments | Posted in Perl | by admin | 128 views |

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

Perl Env

08月 10th, 2007 | No Comments | Posted in Perl | by admin | 184 views |

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

...

Perl Cwd

08月 2nd, 2007 | No Comments | Posted in Perl | by admin | 152 views |

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