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

xiaomm250

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

2.pl里面的内容是:

$^I='';
@ARGV=glob "*.txt";
while(<>){
    print "$&\n" while /\w+/g;
}

我在命令行里面输入:perl 2.pl
结果:

xiaomm250

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

我也不希望他备份,可是没办法!

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. }
   

复制代码

发一个能用的代码上来