From acddfac15409bb4c2761fc21500ee081b6140a9a Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Mon, 6 Feb 2012 17:59:53 +0100 Subject: [PATCH] pass args as one or multiple arguments delimited by spaces --- svg-render.pl | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) 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"; -- 2.20.1