getter usage example

[Printer-Zebra.git] / pbm2ZPL.pl

diff --git a/pbm2ZPL.pl b/pbm2ZPL.pl
index 9652e2e..4b8f02c 100755 (executable)
--- 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;
@@ -66,11 +66,12 @@ sub zpl_compress {
 foreach my $y ( 0 .. $h - 1 ) {
        my $line = substr( $bitmap, $y * ( $w / 8 ), $w / 8 );
        if ( $line eq $last_line ) {
-               print ":" && warn "# $y repeat previous line\n";
+               print ':';
+               warn "# $y repeat previous line\n";
        } else {
                my $hex = unpack('H*', $line);
                if ( $compress ) {
-#                      $last_line = $line;
+                       $last_line = $line;
                        $hex =~ s/0+$/,/  && warn "# $y fill 0 to right\n";
                        $hex =~ s/F+$/!/i && warn "# $y fill 1 to right\n";
                        $hex =~ s/((.)\2+)/zpl_compress($1)/egs;