web-dev-qa-db-ja.com

行ごとにファイルをマージするにはどうすればよいですか？

猫のファイル1

foo
ice
two

猫のファイル2

bar
cream
hundred

望ましい出力：

foobar
icecream
twohundred

私のシナリオでは、ファイル1とファイル2の行数は常に同じになります。

bashtext-processingsedperlawk
22
TuxForLife

このジョブに適したツールはおそらくpasteです

paste -d '' file1 file2

詳細については、man pasteを参照してください。

prコマンドも使用できます。

pr -TmJS"" file1 file2

どこ

  • -Tはページネーションをオフにします
  • -mJmファイルをマージ、J全行を削除
  • -S""列を空の文字列で区切ります

あなたが本当に純粋なbashシェルを使用してそれをしたい場合（推奨されません）、これは私が提案するものです：

while IFS= read -u3 -r a && IFS= read -u4 -r b; do 
  printf '%s%s\n' "$a" "$b"
done 3<file1 4<file2

（これは、主題が別の提案された純粋なbashソリューションへのコメントで出てきたためにのみ含まれています。）

34
steeldriver

awk 方法：

awk '{getline x<"file2"; print $0x}' file1
  • getline x<"file2"はfile2から行全体を読み取り、x変数を保持します。
  • print $0xは、$0を使用してfile1から行全体を出力し、次にfile2の保存行であるxを使用します。
8
αғsнιη

pasteは進むべき道です 。他の方法を確認する場合は、pythonソリューションをご覧ください。

#!/usr/bin/env python2
import itertools
with open('/path/to/file1') as f1, open('/path/to/file2') as f2:
    lines = itertools.izip_longest(f1, f2)
    for a, b in lines:
        if a and b:
            print a.rstrip() + b.rstrip()
        else:
            if a:
                print a.rstrip()
            else:
                print b.rstrip()

行数が少ない場合：

#!/usr/bin/env python2
with open('/path/to/file1') as f1, open('/path/to/file2') as f2:
    print '\n'.join((a.rstrip() + b.rstrip() for a, b in Zip(f1, f2)))

行数が等しくない場合、この行はファイルの最初の行で終了することに注意してください。

4
heemayl

また、純粋なbash（空行を完全に無視することに注意してください）：

#!/bin/bash

IFS=$'\n' GLOBIGNORE='*'
f1=($(< file1))
f2=($(< file2))
i=0
while [ "${f1[${i}]}" ] && [ "${f2[${i}]}" ]
do
    echo "${f1[${i}]}${f2[${i}]}" >> out
    ((i++))
done
while [ "${f1[${i}]}" ]
do
    echo "${f1[${i}]}" >> out
    ((i++))
done
while [ "${f2[${i}]}" ]
do
    echo "${f2[${i}]}" >> out
    ((i++))
done
3
kos

Perlの方法、わかりやすい：

#!/usr/bin/Perl
$filename1=$ARGV[0];
$filename2=$ARGV[1];

open(my $fh1, "<", $filename1) or die "cannot open < $filename1: $!";
open(my $fh2, "<", $filename2) or die "cannot open < $filename2: $!";

my @array1;
my @array2;

while (my $line = <$fh1>) {
  chomp $line;
  Push @array1, $line;
}
while (my $line = <$fh2>) {
  chomp $line;
  Push @array2, $line;
}

for my $i (0 .. $#array1) {
  print @array1[$i].@array2[$i]."\n";
}

皮切りに：

./merge file1 file2

出力：

foobar
icecream
twohundred
2
A.B.