perl目录操作的三个例子

发布时间:2020-12-24编辑:脚本学堂
分享下perl操作目录的三个小例子,有学习perl编程的朋友,可以拿去作为入门实例,希望对你有所帮助。

本节内容:
perl目录操作实例。
 
例1,
The following get the script's directory, which is not the same as the current directory. It's not clear which one you want.
 

复制代码 代码示例:

#!/usr/bin/perl
#
use Cwd qw( abs_path );
useFile::Basename qw( dirname );

say dirname(abs_path($0));

或---

usePath::Class qw( file );

say file($0)->absolute->dir;

或---

useCwd qw( abs_path );

use Path::Class qw( file );

say file(abs_path($0))->dir;
 

The middle one handles symlinks different than the other two, I believe.
 
例2,To get the current working directory (pwd on many systems), you could use cwd() instead of abs_path:
 

复制代码 代码示例:

#!/usr/bin/perl
useCwd qw();

my $path =Cwd::cwd();

print "$pathn";

Or abs_path without an argument:

#!/usr/bin/perl
#
useCwd qw();

my $path =Cwd::abs_path();

print "$pathn";
 

See the Cwd docs for details.

To get the directory your perl file is in from outside of the directory:
 

复制代码 代码示例:

#!/usr/bin/perl
#
useFile::Basename qw();

my($name, $path, $suffix)=File::Basename::fileparse($0);

print "$pathn";
 

See the File::Basename docs for more details.

例3,You could use FindBin:
 

复制代码 代码示例:

#!usr/bin/perl
#
use FindBin '$RealBin';

print "$RealBinn";

FindBin is a standard module that is installed when you install Perl.
To get a list of the standard pragmatics and modules, see perldoc perlmodlib.

就是这些了,全是外国哥们提供的,希望对大家帮助大大的。