Configuration: join.pl

#! /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");
}