From 974345e63fe26686eaacdcafd4af73564c6fda73 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Tue, 7 Feb 2012 13:56:11 +0100 Subject: [PATCH 1/1] getter usage example --- ZPL2pbm.pl | 2 +- pbm2ZPL.pl | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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; -- 2.20.1