projects
/
Printer-Zebra.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
e3d07b7
)
pass args as one or multiple arguments delimited by spaces
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Mon, 6 Feb 2012 16:59:53 +0000
(17:59 +0100)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Mon, 6 Feb 2012 16:59:53 +0000
(17:59 +0100)
svg-render.pl
patch
|
blob
|
history
diff --git
a/svg-render.pl
b/svg-render.pl
index
1de0060
..
6eeb4f9
100755
(executable)
--- 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";