先頭がフィールドのTSVデータを読みやすい形に変換する

tsv-convert.pl

#!/usr/bin/perl
# 先頭がフィールドのTSVデータを読みやすい形に変換する
# 以下のようなTSVデータをKey:Valueの表示に変換する。
#
#    field1 field2 field3
#    data1  data2  data3
#    data1  data2  data3
#
# 使い方
# pbpaste | ./tsv-convert.pl

use strict;
use warnings;
use feature 'say';

my @data=<>;
my @fields=split(/\t/,shift @data);

foreach my $d (@data) {
	my @lines=split(/\t/,$d);
	for(my $i=0;$i<$#fields;$i++) {
		printf("%20s: %s\n",$fields[$i], $lines[$i]);
	}
	say "-------------------------------------------------";
}