2019年7月12日
perl递归读取目录下文件
摘要： #!/usr/bin/perl my $indir = $ARGV[0]; &find_fileindir("$indir"); sub find_fileindir(){ local($dir) = @_; opendir(DIR,"$dir"|| die "can't open this $dir"); local @files =readdir(DIR); closedir... 阅读全文
posted @ 2019-07-12 14:55 云刄 阅读(607) 评论(0) 推荐(0)