getter usage example
authorDobrica Pavlinusic <dpavlin@rot13.org>
Tue, 7 Feb 2012 12:56:11 +0000 (13:56 +0100)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Tue, 7 Feb 2012 12:56:35 +0000 (13:56 +0100)
ZPL2pbm.pl
pbm2ZPL.pl

index ead04d8..e54e8fd 100755 (executable)
@@ -13,7 +13,7 @@ while(<DATA>) {
        $command->{$cmd} = $desc;
 }
 
        $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);
 
 
 open(my $in, '<', $file);
 
index 7223742..4b8f02c 100755 (executable)
@@ -8,7 +8,7 @@ use Data::Dump qw(dump);
 
 my $compress = $ENV{COMPRESS} || 1;
 
 
 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;
 
 open(my $fh, '<', $pnm_file);
 my $p4 = <$fh>; chomp $p4;