perl faq 学习之递归遍历目录

目的:遍历目录。

#!/usr/bin/perl
use warnings;

use File::Find;

@directories = (".", "path2traverse");
# 递归遍历指定目录(@directories),并在回调函数(wanted)中处理。
find(\&wanted, @directories);

sub wanted{
	# $File::Find::dir  is the current directory name,
	# $_ is the current filename within that directory
	# $File::Find::name is the complete pathname to the file. 
	print "full path is $File::Find::name, filename is $_\n";
}

原文:

http://faq.perl.org/perlfaq5.html#How_do_I_traverse_a_

更多:

http://perldoc.perl.org/File/Find.html

相关推荐