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

xiaomm250

文件名是:
1.txt
复件 1.txt
复件 (2) 1.txt
似乎文件名之间不应该由空格

xiaomm250

for %f in (*.txt) do perl -i.bak  -ne "print $&.'\n' while /\w+/g" %f
用这个似乎可以,
但是'\n'为什么不是回车符号呢?

pitonas

for %f in (*.txt) do perl -i  -nle "print $& while /\w+/g" %f
-nle{:2_172:}
回复 12# xiaomm250


   

xiaomm250

pitonas 发表于 2013-12-24 11:27
for %f in (*.txt) do perl -i  -nle "print $& while /\w+/g" %f
-nle
回复 12# ...

我放弃了,请问如果不用命令行的方式如何解决呢?

xiaomm250

pitonas 发表于 2013-12-24 11:27
for %f in (*.txt) do perl -i  -nle "print $& while /\w+/g" %f
-nle
回复 12# ...

不用命令行,用文件的方式如何解决呢?
人何苦自己折腾自己,干脆放弃命令行,然后用perl脚本弄吧,这样应该简单一点

pitonas

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

回复 15# xiaomm250


   

xiaomm250

pitonas 发表于 2013-12-24 11:38
$^I = '';
@ARGV = glob "*.txt";
while(){

经过测试:

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

复制代码

这个能起到批量处理的功能
但是会产生一堆.bak的备份文件,很讨厌!

pitonas

小伙伴们, 这个
$^I = '';{:2_171:}

回复 17# xiaomm250


   

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 = '';

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