データの結合方法について

質問

Linux環境で、2つのファイルのデータを以下の条件で結合したいと思っています。

条件：
ファイル1の１フィールド目とファイル2の1フィールド目が同じ時、ファイル２の最後にフィールドの情報を、ファイル1に結合する。（出力例のとおり）

お願いします。

ファイル１(2件)
995282 "ei" "s8batch16" 817704 1078120240 1078113610
996802 "t-hata" "s8batch16" 13952 1078118212 1078118167

ファイル２（2件）
1078120240 995282 12392 33554438 1 1078113610 0 0 1078113623 "GATEDRC.csh"
1078118212 996802 16908 33554434 1 1078118167 0 0 1078118173 "sh -x opc_galetlt"

出力例：
995282 "ei" "s8batch16" 817704 1078120240 1078113610 "GATEDRC.csh"
996802 "t-hata" "s8batch16" 13952 1078118212 1078118167 "sh -x opc_galetlt"

回答No.3

tatsu99 · ベストアンサー

以下のスクリプトを作成して下さい。
名前を sample.pl とします。
------------------------------------------
open(FH1,"<file1");
open(FH2,"<file2");
while (1){
$f1 = <FH1>;
$f2 = <FH2>;
if ($f1 eq "") {last;}
@el1 = split(' ',$f1);
@el2 = split(' ',$f2);
if ($el1[0] eq $el2[1]){
$p2 = rindex($f2,'"');
$p1 = rindex($f2,'"',$p2-1);
chomp($f1);
$f1 .= substr($f2,$p1,$p2-$p1+1);
print $f1 , "\n";
}else{
print $f1;
}
}
------------------------------------------
ファイル１のファイル名はfile1とします
ファイル２のファイル名はfile2とします
上記のファイルが存在するディレクトリ上で
perl sample.pl > kekkafile
と入力して下さい
kekkafileにあなたの望んだ結果が書き込まれています。
尚、ファイル１の最後は、空白が１桁あると言う前提です。

回答No.2

tatsu99

確認です。
>条件：
>ファイル1の１フィールド目とファイル2の1フィールド>目が同じ時、ファイル２の最後にフィールドの情報を、ファイル1に結合する。（出力例のとおり）

ファイル1の１フィールド目とファイル2の２フィールド目が同じ時の間違いではないでしょうか。（例をみると）

ファイル２の最後のフィールドの情報を、ファイル1に結合する　の間違いではないでしょうか。（例をみると）

個々のフィールドのセパレータはなんですか。タブですか、スペースですか。

２及び３フィールドは必ずダブルクオートで括られていますか。（例外はないですか）

ファイル１とファイル２の行数は必ず同じ行数ですか。

補足

すみません。記述ミスのご指摘、ありがとうございます。
以下、回答いたしますので、お願いします。

>ファイル1の１フィールド目とファイル2の２フィールド目が同じ時の間違いではないでしょうか。（例をみると）
>ファイル２の最後のフィールドの情報を、ファイル1に結合する　の間違いではないでしょうか。（例をみると）

そのとおりです。記述ミスです。

>個々のフィールドのセパレータはなんですか。タブですか、スペースですか。

スペースで区切られています。

>２及び３フィールドは必ずダブルクオートで括られていますか。（例外はないですか）

はい。必ずダブルクオートが付きます。

>ファイル１とファイル２の行数は必ず同じ行数ですか。

同じ行数です。必ずマッチするデータです。

回答No.1

επιστημη（@episteme）

> お願いします。

なにを?

補足

結合させる方法を教えてください。
コマンドなど、簡単な方法があればと思っています。

※ファイル２の最終フィールド（”・・・”）に、ブランクが含まれているのが、私の悩みの種です。

よろしくお願いいたします。