遍历当前目录代码,Perl代码库,德仔网

代码语言

代码分类

【Perl】遍历当前目录

作者:ulwvfje / 发布于2014/8/12/ 638


	my $path = `pwd`;
	chomp $path; # `pwd`命令结尾有个回车符，需要chomp去掉
	print "$path\n ";
	opendir DIR ,$path || die "cant open $!";
	foreach my $file (readdir DIR) { # readdir 将读出所有的文件和目录，包括.和..
	 print "$file\n ";
	 }

　　

试试其它关键字

　遍历当前目录　　遍历　　当前目录　

同语言下

可能有用的

ulwvfje贡献的其它代码(2)

Copyright © 2004 - 2024 dezai.cn. All Rights Reserved 站长博客粤ICP备13059550号-3