perl File::Find模块

发布时间：2020-12-15 21:02:28 所属栏目：大数据来源：网络整理

导读：File::Find 作用：用于递归查找文件、文件夹例： #遍历一个文件夹use File::Find;my $path = '/home/test/';sub process {if ( -f $File::Find::name ) {if ( $File::Find::name =~ /.old$/ ) {print "$File::Find::namen";}}}find( process,$path );

File::Find

作用：用于递归查找文件、文件夹

例：

#遍历一个文件夹


use File::Find;

my $path = '/home/test/';
sub process 
{
	if ( -f $File::Find::name ) 
	{
		if ( $File::Find::name =~ /.old$/ ) 
		{
			print "$File::Find::namen";
		}
	}
}

find( &;process,$path );

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!