From: Dobrica Pavlinusic Date: Tue, 7 Feb 2012 12:56:11 +0000 (+0100) Subject: getter usage example X-Git-Url: http://git.rot13.org/?p=Printer-Zebra.git;a=commitdiff_plain;h=974345e63fe26686eaacdcafd4af73564c6fda73 getter usage example --- diff --git a/ZPL2pbm.pl b/ZPL2pbm.pl index ead04d8..e54e8fd 100755 --- a/ZPL2pbm.pl +++ b/ZPL2pbm.pl @@ -13,7 +13,7 @@ while() { $command->{$cmd} = $desc; } -my $file = shift @ARGV || die "usage: $0 dump.zpl > dump.pbm"; +my $file = shift @ARGV || die "usage: $0 dump.zpl > dump.pbm\n"; open(my $in, '<', $file); diff --git a/pbm2ZPL.pl b/pbm2ZPL.pl index 7223742..4b8f02c 100755 --- a/pbm2ZPL.pl +++ b/pbm2ZPL.pl @@ -8,7 +8,7 @@ use Data::Dump qw(dump); my $compress = $ENV{COMPRESS} || 1; -my $pnm_file = shift @ARGV || die "usage: $0 print.pnm"; +my $pnm_file = shift @ARGV || die "usage: $0 print.pnm > print.zpl\n"; open(my $fh, '<', $pnm_file); my $p4 = <$fh>; chomp $p4;