求一個(gè)腳本，多行合并為一列

snowboar

有個(gè)工作需要完成，但是我不會(huì)SQL和perl，只好厚顏求個(gè)腳本了。

輸入數(shù)據(jù)input.txt內(nèi)的數(shù)據(jù)格式如下，每行長(zhǎng)度不同且列內(nèi)會(huì)有重復(fù)，無列頭：

AA  BB  CC  DD
EE   FF   CC  GG  HH
……

需要整理為如下一列數(shù)據(jù)，存放于output.txt內(nèi)：
AA
BB
CC
DD
EE
FF
CC
GG
HH
……

這個(gè)應(yīng)該很簡(jiǎn)單，但我就是不會(huì)寫腳本啊，時(shí)間又緊，只好求助各位了……

expert1

sed 'N;s/ /\n/g' 應(yīng)該就可以了。

expert1

嚴(yán)謹(jǐn)點(diǎn)
sed -r 'N;s/ {1,}/\n/g'

Gnu sed

expert1

想復(fù)雜了，N是多余的，直接替換就好了。

snowboar

多謝，不過在win下不可用sed啊
作為小白和伸手黨可恥地捂臉……
回復(fù) 4# expert1


   

104359176

回復(fù) 5# snowboar


    不用捂臉，誰(shuí)都會(huì)經(jīng)歷這個(gè)時(shí)段的，誰(shuí)也都會(huì)有這種尷尬，沒關(guān)系，付錢就好了。請(qǐng)往我的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. }
    

復(fù)制代碼

調(diào)用的時(shí)候：

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

split-word.zip (837 Bytes, 下載次數(shù): 8)

2014-05-28 15:37 上傳

點(diǎn)擊文件名下載附件
拆分字符串

lkk_super

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

pitonas

{:2_172:} 沒關(guān)系，楚楚可憐白手起家的伸手黨

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

回復(fù) 1# snowboar


   

snowboar

回復(fù) 6# 104359176


    咳咳，付錢也不是不可以啦，但我這么吝嗇無恥的人還是決定用@pitonas 的方法了{(lán):2_176:}

謝謝所有人！

daxuewuhen2014

cat 1.txt  | xargs  -n 1


AA
BB
CC
DD
EE
FF
CC
GG
HH