用perl如何把一个文件夹下面的txt文件里面的所有\s+换成换行然后删除所有的空行?

pitonas

小伙伴们, 这个高端大气上档次。{:2_179:}
$^I   = '.BAK';
@ARGV = glob "*.txt";
my @DEL = @ARGV;
while (<> {
    print "$&\n" while /\w+/g;
}
for (@DEL) {
    unlink "$_$^I";
}

回复 20# xiaomm250


   

xiaomm250

pitonas 发表于 2013-12-24 11:50
小伙伴们, 这个
$^I = '';

1. $^I='.bak';
   
2. @ARGV=glob "*.txt";
   
3. while(<>){
   
4.     print "[        DISCUZ_CODE_0        ]\n" while /\S+/g;
   
5. }
   

复制代码

发一个能用的代码上来