
次のような入力ファイル (input.txt) があります。
Main1 one,two,three,four
Main2 five,six,seven,eight
出力ファイル (output.txt) に次のような出力を出力します。
Main1 one
Main1 two
Main1 three
Main1 four
Main2 five
Main2 six
Main2 seven
Main3 eight
答え1
awk '{ split($2,a,","); for (i in a) print $1, a[i]; }' input.txt
例:
~) $ echo -e "Main1 one,two,th\nMain2 five,six,seven,eight " | awk '{ split($2,a,","); for (i in a) print $1, a[i]; }'
Main1 one
Main1 two
Main1 th
Main2 five
Main2 six
Main2 seven
Main2 eight
答え2
選択肢は次のとおりです:
シェル
while read main rest; do for i in ${rest//,/$'\n'}; do echo $main $i done done < file
パール
perl -lane 'print "$F[0] $_" for split(/,/,$F[1])' file
awk
awk -F'[, ]' '{for(i=2;i<=NF;i++){print $1,$i}}' file