のPerl、sedは、または

Question

は私が道 FILE1以下の形式のファイルを変更する方法についてのアドバイスを必要とするファイルの形式に変更するワンライナーをawkは：

A  B 
504688 jobnameA 
504690 jobnameB 
504691 jobnameC 
... 

：FILE2に

A  504688 
B  jobnameA 
A  504690 
B  jobnameB 
A  504691 
B  jobnameC 
... 

を私は考えることができ

一つの解決策は次のとおりです。

cat file1 | perl -0777 -p -e 's/\s+B/\t/' | awk '{print $2"\t"$3}'. 

しかし、もっと効率的な方法や、すでに知っているがある場合、私は疑問に思ってこの仕事をする練習。

Answer 1

perl -nawe 'print "@F[1 .. $#F]", $F[0] eq "A" ? "\t" : "\n"' < /tmp/ab 

perlrunのオプションを検索します。

追加するもう1つの有用なものは-lです（この場合は改行を追加してください）。ここで

Answer 2

awk '/^A/{num=$2}/^B/{print num,$2}' file 

または、交互に、

awk '{num=$2;getline;print num,$2}' file 

Answer 3

はsedのソリューションです：

sed -e 'N' -e 's/A\s*\(.*\)\nB\s*\(.*\)/\1\t\2/' file 

このバージョンはまた、上部のヘッダを出力します：

sed '1{h;s/.*/A\tB/p;g};N;s/A\s*\(.*\)\nB\s*\(.*\)/\1\t\2/' file 

または代替：

sed -n '/^A\s*/{s///;h};/^B\s*/{s///;H;g;s/\n/\t/p}' file 

あなたのsedがない場合代替のコマンドセパレータとしてセミコロンをサポートしない：

sed -n ' 
/^A\s*/{  # if the line starts with "A" 
s///    # remove the "A" and the whitespace 
h    # copy the remainder into the hold space 
}    # end if 
/^B\s*/{  # if the line starts with "B" 
s///    # remove the "B" and the whitespace 
H    # append pattern space to hold space 
g    # copy hold space to pattern space 
s/\n/\t/p  # replace newline with tab and print 
}' file 

このバージョンはまた、上部にヘッダを印刷する：

sed -n '/^A\s*/{s///;h;1s/.*/A\tB/p};/^B\s*/{s///;H;g;s/\n/\t/p}' file 

Answer 4

これは単に固定されていない、任意のヘッダテキストで動作するとB >>

awk '{a=$1;b=$2;getline;if(c!=1){print a,$1;c=1};print b,$2}' file1 >file2 

...それも印刷されますヘッダー行

あなたが\t区切りが必要な場合は、使用します。

awk '{a=$1;b=$2;getline;if(c!=1){print a"\t"$1;c=1};print b"\t"$2}' file1 >file2 

Answer 5

入力ファイルを仮定はタブ区切りです：これが何を書かれていたまさにcutとpasteあるので

echo $'A\tB' 
cut -f2 filename | paste - - 

はかなり速さが必要となります。

Answer 6

これはあなたのために働くかもしれない：

sed -e '1i\A\tB' -e 'N;s/A\s*\(\S*\).*\nB\s*\(\S*\).*/\1\t\2/' file