レコード連結

複数行からなるデータを一つのレコードとしてまとめる
(要素数が固定の場合)

概要

perlで処理するにしろ、表計算ソフトを使うにしろ、ひとまとまりのデータがレコード(単純に行と考えてもかまいません)としてまとまっていないと不便です。しかし、現実には

住所:東京都世田谷区
性別:男
年齢:35
住所:東京都渋谷区
性別:女
年齢:29
住所:東京都目黒区
性別:男
年齢:42

     :
     :
     :

のようなデータとして集められてしまうこともよくあります。このようなデータを

東京都世田谷区,男,35
東京都渋谷区,女,29
東京都目黒区,男,42
     :

のように連結し、perlや表計算ソフトで処理しやすいようにするのがこのプログラムの目的です。

プログラム

元データはすべて3個の要素(住所、性別、年齢) からなりたっているとします。この場合、プログラムは案外単純です。プログラムは以下のようになります。エディタを開き以下をタイプして、適当な名前でセーブしてください。ここでは ren1.pl という名前でセーブしたことにして話を進めます。

$juusho ="";
$seibetsu = "";
$nenrei = 0;

while(<>) {
	s/[\r\n]//g;
	@field = split( /:/, $_ );

	if ( ( $. % 3 ) == 1 ) {
		$juusho = $field[1];
	}

	if ( ( $. % 3 ) == 2 ) {
		$seibetsu = $field[1];
	}

	if ( ( $. % 3 ) == 0 ) {
		$nenrei = $field[1];
		printf( "%s,%s,%d\n", $juusho, $seibetsu, $nenrei );
	}
}
exit;

入力データ

入力データは前述の、

住所:東京都世田谷区
性別:男
年齢:35
住所:東京都渋谷区
性別:女
年齢:29
住所:東京都目黒区
性別:男
年齢:42

というファイルが dat5.txt として存在するとします。

実行結果

OSはWindowsを利用していると仮定します。 DOS prompt 上で、

c:\perl> perl ren1.pl dat5.txt

とタイプします。

東京都世田谷区,男,35
東京都渋谷区,女,29
東京都目黒区,男,42

と出力されるはずです。

このようなレコード連結の問題はいろいろなバリエーションが考えられます。
ここではもっとも単純な場合を想定しました。より実践的なケースをこちらで解説しています。

メニューに戻る

TKENSAKU top へ