Chinaunix

标题: 用perl如何把一个文件夹下面的txt文件里面的所有\s+换成换行然后删除所有的空行? [打印本页]

作者: xiaomm250 时间: 2013-12-24 09:10
标题: 用perl如何把一个文件夹下面的txt文件里面的所有\s+换成换行然后删除所有的空行?
某个文件夹下面有一堆txt文本,
数据如下
1 2 4
2 3
5 3 8

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

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

作者: xiumu2280 时间: 2013-12-24 09:51

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

复制代码

作者: pitonas 时间: 2013-12-24 10:18
本帖最后由 pitonas 于 2013-12-24 03:18 编辑

{:2_172:}

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

复制代码

回复 1# xiaomm250

作者: xiaomm250 时间: 2013-12-24 10:48

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 时间: 2013-12-24 10:51

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

作者: xiaomm250 时间: 2013-12-24 11:02

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

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

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

复制代码

什么意思?

作者: pitonas 时间: 2013-12-24 11:09
用户，可以实践证明{:2_168:}
感觉是?

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

回复 6# xiaomm250

作者: xiaomm250 时间: 2013-12-24 11:09
for %f in (*.txt) do perl -i -nle "print $& while /\w+/g" %f
我这样还是不行

作者: pitonas 时间: 2013-12-24 11:12
{:2_169:} 小伙伴们, 这个真是悲催阿！
回复 8# xiaomm250

作者: xiaomm250 时间: 2013-12-24 11:15

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

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

QQ截图20131224111240perl.jpg (28.24 KB, 下载次数: 70)

作者: xiaomm250 时间: 2013-12-24 11:17
文件名是:
1.txt
复件 1.txt
复件 (2) 1.txt
似乎文件名之间不应该由空格

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

作者: pitonas 时间: 2013-12-24 11:27
for %f in (*.txt) do perl -i -nle "print $& while /\w+/g" %f
-nle{:2_172:}
回复 12# xiaomm250

作者: xiaomm250 时间: 2013-12-24 11:29

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

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

作者: xiaomm250 时间: 2013-12-24 11:36

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

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

作者: pitonas 时间: 2013-12-24 11:38
$^I = '';
@ARGV = glob "*.txt";
while(<>){
print "$&\n" while /\w+/g;
}

回复 15# xiaomm250

作者: xiaomm250 时间: 2013-12-24 11:46

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

经过测试:

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

复制代码

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

作者: pitonas 时间: 2013-12-24 11:50
小伙伴们, 这个
$^I = '';{:2_171:}

回复 17# xiaomm250

作者: xiaomm250 时间: 2013-12-24 11:54

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

2.pl里面的内容是:

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

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

QQ截图20131224115406perl.jpg (4.93 KB, 下载次数: 36)

作者: xiaomm250 时间: 2013-12-24 11:55

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

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

作者: pitonas 时间: 2013-12-24 12:03
小伙伴们, 这个高端大气上档次。{:2_179:}
$^I = '.BAK';
@ARGV = glob "*.txt";
my @DEL = @ARGV;
while (<>

{
print "$&\n" while /\w+/g;
}
for (@DEL) {
unlink "$_$^I";
}

回复 20# xiaomm250

作者: xiaomm250 时间: 2013-12-24 12:05

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

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

复制代码

发一个能用的代码上来

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)