From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Mon, 6 Feb 2012 16:59:53 +0000 (+0100)
Subject: pass args as one or multiple arguments delimited by spaces
X-Git-Url: http://git.rot13.org/?p=Printer-Zebra.git;a=commitdiff_plain;h=acddfac15409bb4c2761fc21500ee081b6140a9a

pass args as one or multiple arguments delimited by spaces
---

diff --git a/svg-render.pl b/svg-render.pl
index 1de0060..6eeb4f9 100755
--- a/svg-render.pl
+++ b/svg-render.pl
@@ -12,13 +12,10 @@ my $w = 832;
 my $density = $w / 5166 * 1000;
 warn "# density = $density\n";
 
+my $args = join(' ', @ARGV);
+die "usage: $0 1301272944 callnumber\n" unless $args;
 
-my $barcode = shift @ARGV || die "usage: $0 1301272944 callnumber\n";
-
-my $call1 = shift @ARGV;
-my $call2 = shift @ARGV;
-my $call3 = shift @ARGV;
-my $call4 = join(' ', @ARGV);
+my ( $barcode, $call1, $call2, $call3, $call4 ) = split(/\s+/, $args, 5);
 
 my $pbm = "/tmp/$barcode.pbm";