Commit 90a653d7 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

db-ris: Do not make output columns (train route etc.) wider than necessary

parent 8d1e7ef8

bin/db-ris

+32 −5
Original line number Diff line number Diff line
@@ -6,13 +6,14 @@ use 5.010; 
our $VERSION = '0.0';



use Getopt::Long;

use List::Util qw(first);

use List::Util qw(first max);

use Travel::Status::DE::DeutscheBahn;



my ( $date, $time );

my $types = q{};

my %train_type;

my $filter_via;

my @output;



binmode( STDOUT, ':encoding(utf-8)' );
@@ -39,6 +40,27 @@ my $status = Travel::Status::DE::DeutscheBahn->new( 
	time    => $time,

);



sub display_result {

	my (@lines) = @_;



	my @line_length;



	if ( not @lines ) {

		die("Nothing to show\n");

	}



	for my $i ( 0 .. 5 ) {

		$line_length[$i] = max map { length( $_->[$i] ) } @lines;

	}



	for my $line (@lines) {

		printf( join( q{  }, ( map { "%-${_}s" } @line_length ) ) . "\n",

			@{$line}, );

	}



	return;

}



for my $d ( $status->departures() ) {



	my ( @via, @via_main, @via_show );
@@ -79,13 +101,18 @@ for my $d ( $status->departures() ) { 
		$stop =~ s{ ?Hbf}{};

	}



	printf(

		"%5s %-10s %-80s %-20s %-2s %s\n",

		$d->time, $d->train, join( q{  }, @via_show ),

		$d->destination, $d->platform, $d->info

	push(

		@output,

		[

			$d->time, $d->train,

			join( q{  }, @via_show ), $d->destination,

			$d->platform, $d->info

		]

	);

}



display_result(@output);



__END__



=head1 NAME