From 500f5ae6ff4d8e363f78f8727611f0a54d84c649 Mon Sep 17 00:00:00 2001 From: Ben Ostrowsky Date: Thu, 18 Nov 2010 16:10:20 +0000 Subject: [PATCH 1/1] (cosmetic) Adjust digits in column numbers to fit data --- bibliofile/parse_dbd.pl | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/bibliofile/parse_dbd.pl b/bibliofile/parse_dbd.pl index 0a16c3a..f72347c 100755 --- a/bibliofile/parse_dbd.pl +++ b/bibliofile/parse_dbd.pl @@ -38,7 +38,7 @@ while (<>) { for (my $i = 1; $i <= $numcolumns; $i++) { my $coltype = substr($dbd, 7*($i-1)+$startOfColumnTypes, 1); my $collength = ord substr($dbd, 7*($i-1)+$startOfColumnTypes+1, 1); - printf ("Column %02d: %-8s %s (%d chars)\n", $i, $coltypes{$coltype}, $col[$i-1], $collength); + printf ("Column %0" . length($numcolumns) . "d: %-8s %s (%d chars)\n", $i, $coltypes{$coltype}, $col[$i-1], $collength); } } -- 1.7.2.5