求一个脚本，多行合并为一列

snowboar

有个工作需要完成，但是我不会SQL和perl，只好厚颜求个脚本了。

输入数据input.txt内的数据格式如下，每行长度不同且列内会有重复，无列头：

AA  BB  CC  DD
EE   FF   CC  GG  HH
……

需要整理为如下一列数据，存放于output.txt内：
AA
BB
CC
DD
EE
FF
CC
GG
HH
……

这个应该很简单，但我就是不会写脚本啊，时间又紧，只好求助各位了……

expert1

sed 'N;s/ /\n/g' 应该就可以了。

expert1

严谨点
sed -r 'N;s/ {1,}/\n/g'

Gnu sed

expert1

想复杂了，N是多余的，直接替换就好了。

snowboar

多谢，不过在win下不可用sed啊
作为小白和伸手党可耻地捂脸……
回复 4# expert1


   

104359176

回复 5# snowboar


    不用捂脸，谁都会经历这个时段的，谁也都会有这种尴尬，没关系，付钱就好了。请往我的alipay账户里付5元。(15013725234)

split-words.pl

1. #!perl
   
2. 
   
3. use 5.010;
   
4. 
   
5. my $file = $ARGV[0];
   
6. 
   
7. {
   
8.     local $/ = undef;
   
9.     open(my $fh, '<', $file) or die $!;
   
10.     my $text = <$fh>;
    
11.     $text =~ s/\s+/chr(10)/xmsge;
    
12.     say $text;
    
13. }
    

复制代码

调用的时候：

perl split-words.pl input.txt > output.txt

split-word.zip (837 Bytes, 下载次数: 8)

2014-05-28 15:37 上传

点击文件名下载附件
拆分字符串

lkk_super

合并的依據是啥？樓主伸手黨也沒說明白啊

pitonas

{:2_172:} 没关系，楚楚可怜白手起家的伸手党

perl -anE 'say for @F' inputfile.txt > output.txt

回复 1# snowboar


   

snowboar

回复 6# 104359176


    咳咳，付钱也不是不可以啦，但我这么吝啬无耻的人还是决定用@pitonas 的方法了{:2_176:}

谢谢所有人！

daxuewuhen2014

cat 1.txt  | xargs  -n 1


AA
BB
CC
DD
EE
FF
CC
GG
HH