#! /usr/bin/perl -w
#

my $res = {};
my $lines = 0;

foreach my $trx ( @ARGV ) {
	open(FD, "dect-transceiver-list --name $trx |") || die ("list");
	my $n = 0;
	while ( my $line = <FD> ) {
		chomp($line);
		push @{$res->{$trx}}, $line;
		$n++;
	}
	if ($n > $lines) {
		$lines = $n;
	}
}

for (my $i = 0; $i < $lines; $i++) {
	foreach my $trx ( @ARGV ) {
		printf("%-80s", $res->{$trx}->[$i]);
	}
	printf("\n");
}
