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

xiaomm250

某个文件夹下面有一堆txt文本,
数据如下
1 2 4
2 3
5    3  8

........省略很多行

5
我想把数据转化成一个列向量.
然后就是先把连续的空白换成一个回车换行,
然后再删除所有的空看,请问如何
用命令行的方式对这个文件夹下面的所有txt完成上面的操作呢?

xiumu2280

1. sed 's/ /\n/g' txt |sed '/^$/ d'

复制代码

pitonas

{:2_172:}

1. perl -i -nle 'print $& while /\w+/g' *.txt

复制代码

回复 1# xiaomm250


   

xiaomm250

pitonas 发表于 2013-12-24 10:18
回复 1# xiaomm250

我在windows上,
perl -i -nle 'print $& while /\w+/g' *.txt
这个命令感觉没用,然后我换成
perl -i -nle "print $& while /\w+/g" *.txt
但是提示我:
can't open *.txt:Invalid argument.
不知道怎么回事

pitonas

不知道, 我不在windows上{:2_169:}
回复 4# xiaomm250


   

xiaomm250

pitonas 发表于 2013-12-24 10:51
不知道, 我不在windows上
回复 4# xiaomm250

http://stackoverflow.com/questio ... or-a-string-in-perl

1. C:\Temp> for %f in (*.txt) do perl -ne "print if /perl/" %f

复制代码

什么意思?

pitonas

用户，可以实践证明{:2_168:}
感觉是?

for %f in (*.txt) do perl -i  -ne "print $& while /\w+/g" %f

回复 6# xiaomm250


   

xiaomm250

for %f in (*.txt) do perl -i -nle "print $& while /\w+/g"  %f
我这样还是不行

pitonas

{:2_169:} 小伙伴们, 这个真是悲催阿！
回复 8# xiaomm250


   

xiaomm250

pitonas 发表于 2013-12-24 11:09
用户，可以实践证明
感觉是?

for %f in (*.txt) do perl -i  -ne "print $& while /\w+/g" %f
这个还是不行