遍历目录下所有的文件代码,Perl代码库,德仔网

代码语言

代码分类

【Perl】遍历目录下所有的文件

作者:caryl / 发布于2013/3/18/ 917


	#!perl
	#
	#??????????
	#??perl???????????&frac14;?????????????????????????????????????&frac14;?&pound;????????
	#
	#

	use strict;
	use Cwd;
	use File::Spec;
	use File::Basename;

	open STDOUT, ">filelist.txt" or die "can't open file filelist.txt:$!";
	my $cwd = getcwd;
	my @files = <*>;
	my $file;
	foreach $file(@files)
	{
	my $path = File::Spec->catfile( $cwd, $file );
	&filelist($path);
	}

	sub filelist
	{
	my $path = shift @_;
	my $file_name = basename $path;
	if(-d $file_name)#?????????У?????????
	{
	 print "$path\n";
	 chdir $path or die "can't chdir $path:$!";
	 my $cwd = getcwd;
	 my @files = <*>;
	 my $file;
	 my $count = 0;
	 foreach $file(@files)
	 {
	 $count++;
	 my $path = File::Spec->catfile( $cwd, $file );
	 &filelist($path);
	 }
	 if ($count eq @files)#??????????????????????????????
	 {
	 my $dir_name = dirname $path;
	 chdir "$dir_name\.." or die "can't chdir $dir_name\..:$!";
	 }
	}
	else
	{
	 print "$path\n";
	}
	}

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　遍历目录　

同语言下

可能有用的

caryl贡献的其它代码(2)