Conservancy/supporters
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Ignor blank lines and comments in the inventory.

Browse source
This commit is contained in:
Bradley M. Kuhn 2016-12-09 13:47:02 -08:00
parent 26c7e938ff
commit 460352b7c4
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
scripts/t-shirt-label-print.plx
View file

@ -25,6 +25,7 @@ open(SIZE_COUNTS, "<", $SIZE_COUNTS);
my %sizeCounts; my %sizeCounts;
while (my $line = <SIZE_COUNTS>) { while (my $line = <SIZE_COUNTS>) {
next if ($line =~ /^\s*#/ or $line =~ /^\s*$/);
if ($line =~ /^\s*(\S+)\s+(\d+)\s*/) { if ($line =~ /^\s*(\S+)\s+(\d+)\s*/) {
my($size, $count) = ($1, $2, $3); my($size, $count) = ($1, $2, $3);
$sizeCounts{$size} = $count; $sizeCounts{$size} = $count;