From f4fe6eb1dc2493a01249a489f556c12b9d0f1301 Mon Sep 17 00:00:00 2001 From: Ian Campbell Date: Mon, 1 Feb 2016 14:28:28 +0000 Subject: [PATCH] mg-show-flight-runvars: collect rows into @rows, output in second step This will make it easier to collect more rows. Signed-off-by: Ian Campbell Acked-by: Ian Jackson --- mg-show-flight-runvars | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/mg-show-flight-runvars b/mg-show-flight-runvars index c800110..820c577 100755 --- a/mg-show-flight-runvars +++ b/mg-show-flight-runvars @@ -46,6 +46,7 @@ die unless @ARGV==1 && $ARGV[0] =~ m/^\w+$/; our ($flight) = @ARGV; our @cols = qw(job name val); +our @rows; $flight =~ m/^\d+/ or $flight = "'$flight'"; my $qfrom = "FROM runvars WHERE flight=$flight AND $synthcond"; @@ -62,6 +63,10 @@ $colws[1] += length $synthsufx; while (my (@row) = $q->fetchrow_array()) { my $synth = shift @row; $row[1] .= $synthsufx if $synth && $synth ne 'f'; # sqlite3 is typeless - printf "%-*s %-*s %-*s\n", map { $colws[$_], $row[$_] } qw(0 1 2) + push @rows, \@row; +} + +foreach my $row (@rows) { + printf "%-*s %-*s %-*s\n", map { $colws[$_], $row->[$_] } qw(0 1 2) or die $!; } -- 2.39.5