Perl语言入门(10 文件+目录)

由于公司需要,本人最近在学习Perl这种脚本语言,本文是我在学习Perl的过程中总结出来的一些心得和笔记,希望能够帮助也在学习Perl的各位同僚。废话不多说直接上干货!!!

————————————————— 干货分割线 —————————————————

1.Opendir:打开文件句柄

Opendir dirhandle,directory

Dirhandle:文件句柄

directory:文件目录名字

Exp:

Opendir(TEMPDIR,’/temp’) || die $!

 

2.Readdir:读取句柄的内容(目录中的文件名)

1>.Readdir dirhandle;

在标量上下文中, r e a d d i r函数返回目录中的下一项,如果目录中没有剩下任何项目,则

返回u n d e f.。在列表上下文中, r e a d d i r返回所有的(剩余的)目录项

2>.glob pattern:

Pattern为你要匹配的文件名模式.p a t t e r n可以包含目录名和文件名的各个部分。此外,p a t t e r n可以包含以下列表列出的任何一个特殊字符。在列表上下文中, g l o b返回与模式匹配的所有文件(和目录)。在标量上下文中,每查询一次g l o b,便返回一个文件。


PS:g l o b的模式与正则表达式的模式不同。


下面是使用g l o b与opendir/readdir/closedir 之间的某些差别:
• g l o b只能返回有限数量的文件。对于较大的目录, g l o b可能会报告“太多的文件”,但是却不能返回任何文件。
• g l o b返回模式中使用的路径名,而o p e n d i r / r e a d d i r / c l o s e d i r函数则不能。
• g l o b的运行速度通常比o p e n d i r / r e a d d i r / c l o s e d i r慢。


Glob模式的编写:
@cfiles = <*.c>;   等同于:@cfiles = glob(‘*.c’);
匹配所有文件:
匹配文件名中有.的文件:glob(“*.*”);

Exp:

#输出该路径下扩展名为txt的所有文件

my @hfiles = glob('C:/Users/Administrator/Desktop/test/*.txt');
foreach $a(@curfiles){
    print "$a\n";
}

#输出该perl文件所在路径下文件名包含t且扩展名为txt或者pl的所有文件

my @curfiles = glob('*t*.{txt,pl}');
foreach $a(@curfiles){
    print "$a\n";
}

#输出该perl文件所在路径下的所有文件,文件格式为:序号.文件名

my $count = 1;
while(my $name = glob('*')){
    print "$count . $name\n";
    $count++;
}
Exp:
这个练习展示了一个实用程序,它提示你输入一个目录名和一个模式。目录中的每个文件均被搜索,以便寻找该模式,与该模式相匹配的文件行将被输出。
#!/usr/bin/perl -w
use strict;
use warnings;
 
print "Directory to search:";
my $dir = <STDIN>; chomp $dir;
print "Pattern to look for:";
my $pat = <STDIN>; chomp $pat;
 
my ($file);
opendir(DH,$dir) or die $!;
while($file = readdir DH){
    next if(-d "$dir/$file");	#若$dir/$file是一个目录,则返回真
    if(!open(F,"$dir/$file")){
    warn "Cannot search $file:$!";
    next;
    }
    #逐行读取该文件,若能与模式匹配,则输出该文件
    while(<F>){
        if(/$pat/){
            print "$file:$_";
        }
    }
    close(F);
}
closedir(DH);

输出:

 

 

3.Closedir:关闭句柄

Closedir dirhandle;

Exp:

#!/usr/bin/perl -w
use strict;
use warnings;
 
opendir(TEMP,'C:/Users/Administrator/Desktop/Perl_Code') or die $!;
my @FILES = readdir TEMP;
closedir(TEMP);
print "@FILES  ";

输出:Perl_Code目录下的所有文件名.和..

 

4.清除目录中的.和..:

@FILES = grep(!/^\.\.?$/,readdir TEMP);

PS:对于正则表达式的说明.

/^\.\.?$/中

^:匹配字符串开头.

$:匹配字符串结尾

\.:为.(因为.为元字符,想要匹配.就得加\)

?:匹配0个或者1个

Grep:清除表达式匹配的内容

 

#获得带有特定扩展名的全部文件:

@FILES = grep(/\.txt$/i,readdir TEMP);

PS:r e a d d i r返回的文件名并不包含o p e n d i r使用的路径名。所以如下代码是错误的:

opendir( TEMP,'C:/Users/Administrator/Desktop/Perl_Code') or die $!;

while(my $file = readdir TEMP){  #能够成功的将该路径下的文件赋值给标量$file

 

#$file中只是TEMP路径下的全部文件名,所以下面这条语句并没有任何意义

open(FILEH,$file) or die $!;

print FILEH;

}

报错:Permission denied at sub.pl line 7.(遇到该报错也知道了这有可能是语法错误).


5.确定当前目录:

Cwd

Exp:

use Cwd;

print "Your current directory is:",cwd,"\n";

chdir 'test' or warn "Directory /tmp not accessible:$!";     #后面有对chdir函数的介绍

print "Your are now in:",cwd,"\n";

 

6.创建目录:

mkdir newdir,permissions;

PS:permissions为文件设置读写权限.对于D O S和Wi n d o w s用户来说,只使用0 7 5 5这个值就足够了.

Exp:

print "Directory to create?\n";

my $newdir = <STDIN>; chomp $newdir;

mkdir ($newdir,0755) or die $!;

 

7.设置文件的访问许可权:

chmod mode,list_of_files;

Chmod函数返回已经改变访问许可权的文件数量。m o d e的前面必须有一个数字0.

Exp:

chmod 0755,’file.pl’;

chmod 0644,’mydata.txt’;

 

8.删除目录:

rmdir pathname;

Exp:

print "Directory to be removed?\n";

my $baddir = <STDIN>; chomp $baddir;

rmdir ($baddir) or die $!;

PS:rmdir函数只能删除内容为空的目录.若该目录中有文件或者子文件夹则不能删除.

 

9删除指定目录中的文件:

unlink list_of_files;

unlink函数能删除l i s t _ o f _ f i l e s中的指定文件,并返回已经删除的文件数量。如果

l i s t o f f i l e s被省略,$ _中指定的文件将被删除

PS:因为不能恢复被删除的文件,所以使用此功能时要小心。

:unlink("/tmp/t1.txt", "/tmp/t2.txt");

Exp:

若不能成功删除,输出一条出错消息,显示“剩余的”文件。

#!/usr/bin/perl -w
use strict;
use warnings;
 
my @files = <*.txt>;
my $erased = unlink @files;
if($erased != @files){
    print "files failed to erase:",join(',',<*.txt>),"\n";
}

10.将当前工作目录改为n e w d i r:

chdir newdir ;

如果n e w d i r目录不存在,或者你不拥有对n e w d i r的访问权,那么c h d i r返回假。chdir对目录的改变是暂时的,一旦P e r l程序运行结束,就返回运行P e r l程序之前所在的目录(dos窗口中也可使用).

 

11.给文件或目录改名:

rename oldname,newname;

r e n a m e函数取出名字为o l d n a m e的文件,将它的名字改为n e w n a m e。如果改名成功,该函数返回真。

PS:

1.如果你设定了路径名,而不只是设定文件名,那么r e n a m e函还会将文件从一个目录移到

另一个目录,如下例所示:

rename “myfile.txt”,”/tmp/myfile.txt”;   # myfile.txt从当前目录下移至tmp目录下.

如果文件n e w n a m e已经存在,将不进行移动操作。

2.若文件在不同的文件系统上,那么r e n a m e函将不会把文件从一个目录移到另一个目录中。

 

12.了解文件的详细信息:

stat filehandle;

stat filename;

Stat函数返回一个数组,下面是数组的各个元素的含义:

 

Exp:

#!/usr/bin/perl -w
use strict;
use warnings;
 
my $f = 'temp.txt';
my @a = stat($f);
print $a[7];           #编号7用来返回文件的大小.

通常,为了清楚起见, s t a t的返回值被拷贝到标量的一个赋值列表:

($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat(“myfile”);

 

 

对目录内的所有文件重命名小程序:

EXP:

#!/usr/bin/perl -w
use strict;
use warnings;
 
my($dir,$oldpat,$newpat);
 
print "Directory:";
chomp ($dir = <STDIN>);
print "Old pattern:";
chomp ($oldpat = <STDIN>);
print "New pattern:";
chomp ($newpat = <STDIN>);
 
opendir(DIR,$dir) or die $!;
my @files = readdir DIR;
closedir(DIR);
 
my $oldname;
foreach(@files){
    $oldname = $_;	#每次遍历将一个文件名赋值给$oldname
    s/$oldpat/$newpat/;
    next if(-e "$dir/$_");  #若该文件名已存在,则跳过
    if(!rename "$dir/$oldname","$dir/$_"){
        warn "Could not rename $oldname to $_:$!";
    }else{
        print "File $oldname renamed to $_\n";
    }
}


 


展开阅读全文

没有更多推荐了,返回首页