会员
周边
捐助
新闻
博问
闪存
赞助商
所有博客
当前博客
我的博客
我的园子
账号设置
简洁模式
...
退出登录
注册
登录
云刄
云上於天,登锋履刄 ; hello,world ; hello,美好生活 ;
博客园
首页
新随笔
联系
订阅
管理
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 云刄
阅读(595)
评论(0)
推荐(0)
编辑
公告