作者a3181388 (Mr.3181388)
看板Perl
标题Re: [问题] 让命令引数支援 -R 和 *
时间Sun Aug 22 01:31:34 2010
弄了一个晚上终於写出有点像的东西了 QQ" 感谢
想请教一下我现在是想把所有档案的各行行尾空白去除.
想法是一次读档，读档之後处理各行，处理完成後一次写入暂存档。
暂存档再覆盖原来的档案，但是会不会因I/O太多造成太慢？
不知道有比较快的办法吗？-> 我之後有可能会套用在类似 Linux kernel 那样的大目录里
我写出来看起来也蛮庞大，有兴趣的前辈可以顺便帮忙指点一下吗？谢谢
#!/usr/bin/perl
# Usage: [-R][*][file name]
use warnings ;
use strict ;
use 5.010 ;
use File::Copy ;
use File::Find ;
use Cwd;
my @files;
file_list(\@ARGV);
foreach(@files){
right_trim($_, 1);
}
printf "Done, %d files\n", scalar @files;
unlink("tmp");
exit;
#--------------------------------
# get file list from @ARGV
#--------------------------------
sub file_list{
my $arg = shift;
while(@$arg){
#file test & file name print
$_ = shift @$arg;
if(/\*/){ # all
@files = glob("*.cpp *.c *.h *.txt *.pl")
}
elsif(/-[rR]/){ # recursive
find(\&file_found, Cwd::cwd());
}
else{ # specific file name
push @files, $_;
}
}
}
sub right_trim{
my $file = $_ =shift;
my $show = shift;
# error handling
return if(/tmp/);
# read all readable files
# write it to a tmp file
say $file if $show;
open(FH, '<', $file) or die $!;
open(TMP, '>', "tmp") or die $!;
my @before = <FH>;
my @after ;
foreach (@before){
s/\s+$//;
$_ .= "\n" ;
push @after, $_;
}
print TMP @after;
close FH;
close TMP;
copy("tmp", $file) || die "copy: $!";
}
sub file_found {
$_ = $File::Find::name;
return unless -e && -f && -r && -w ;
push @files, $_ if /\.pl$/||/\.c$/||/\.h$/||/\.txt$/;
}
※ 引述《zard1989 (St. Kevin)》之铭言：
: ※ 引述《a3181388 (Mr.3181388)》之铭言：
: : 大家好 弱者小弟我想请教一下
: : 要怎麽让命令引数支援 -R 和 *
: : 目前已经可以让许多档案当作引数
: : 如 try.pl 1.txt 2.txt
: : 想让程式支援资料夹下所有子资料下递回的所有档案
: : 不知该怎麽做 谢谢
: 可以使用File::Find模组(http://perldoc.perl.org/File/Find.html)。
: 至於 * 的部份，你的shell(e.g. bash)会帮你展开成该目录底下的所有档案名称。
: Example:
: #!/usr/bin/env perl
: use 5.010;
: use strict;
: use File::Find;
: my @files;
: sub wanted {
: # 在这个function过滤和处理你要的档案
: # -f 等同於 -f $_ ，测试该档名是否为一个档案，而非目录或其他东西
: -f && push @files, $_;
: }
: # find预设会递回搜寻资料夹下的档案 (preorder traversal)
: find(\&wanted, @ARGV);
: # 印出@ARGV中所有档案、目录底下的档案的档名
: say join " ", @files;
※ 引述《zard1989 (St. Kevin)》之铭言：
: ※ 引述《a3181388 (Mr.3181388)》之铭言：
: : 大家好 弱者小弟我想请教一下
: : 要怎麽让命令引数支援 -R 和 *
: : 目前已经可以让许多档案当作引数
: : 如 try.pl 1.txt 2.txt
: : 想让程式支援资料夹下所有子资料下递回的所有档案
: : 不知该怎麽做 谢谢
: 可以使用File::Find模组(http://perldoc.perl.org/File/Find.html)。
: 至於 * 的部份，你的shell(e.g. bash)会帮你展开成该目录底下的所有档案名称。
: Example:
: #!/usr/bin/env perl
: use 5.010;
: use strict;
: use File::Find;
: my @files;
: sub wanted {
: # 在这个function过滤和处理你要的档案
: # -f 等同於 -f $_ ，测试该档名是否为一个档案，而非目录或其他东西
: -f && push @files, $_;
: }
: # find预设会递回搜寻资料夹下的档案 (preorder traversal)
: find(\&wanted, @ARGV);
: # 印出@ARGV中所有档案、目录底下的档案的档名
: say join " ", @files;
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.229.226.68