perl faq 学习之递归遍历索引

perl faq 学习之递归遍历目录
目的：遍历目录。

#!/usr/bin/perluse 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

查看更多 下一篇