send commands to printer and receive response

diff --git a/scripts/evolis-command.pl b/scripts/evolis-command.pl
new file mode 100755 (executable)
index 0000000..e8c30a3
--- /dev/null
+++ b/scripts/evolis-command.pl
@@ -0,0 +1,32 @@
+#!/usr/bin/perl
+
+use warnings;
+use strict;
+
+use POSIX;
+use Data::Dump qw(dump);
+
+my $dev = '/dev/usb/lp0';
+
+sysopen(my $parallel, $dev, O_RDWR | O_EXCL) || die "$dev: $!";
+
+$|=1;
+print "command> ";
+while(<STDIN>) {
+       chomp;
+       
+       my $send = "\e$_\r";
+       foreach my $byte ( split(//,$send) ) {
+               warn "#>> ",dump($byte),$/;
+               syswrite $parallel, $byte, 1;
+       }
+       my $response;
+       my $byte;
+       while( sysread $parallel, $byte, 1 ) {
+               $response .= $byte;
+               warn "#<< ",dump($byte),$/;
+       }
+       print "<answer ",dump($response),"\ncommand> ";
+}
+
+close($parallel);