作者ashien (呆呆)
看板perl
标题[问题] 如何处理所有子目录里符合档名格式的档案？
时间Sun May 6 00:06:34 2007
因为要处理的档案放在工作目录的下下层
第一层 A00 A02 A06 ... 不连续编号的目录名称
第二层 A00.000.dat A00.002.dat ... 不连续编号的档案名称
所以我参考 Perl Cookbook 写了下面这个程式 可以找出所有符合档名的档案
但是 不知道为什麽 找到的档案名称(含完整路径)
无法当作 ls 的引数
是不是这样找出来的 档名字串 跟 一般字串 不同呢？
麻烦各位前辈指点
-----------------------------------------------------------------
#!/usr/bin/perl -l
@ARGV = qw(.) unless @ARGV;
use File::Find ();
sub find(&@) { &File::Find::find }
*name = *File::Find::name;
find { system("ls -l $name"), if -f && /.dat/ } @ARGV;
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.115.221.125
※ 编辑: ashien 来自: 140.115.221.125 (05/06 09:14)