Can I send a ESC d command to a POS printer from perl?

I have a Star TSP100 printer and I'm having few problems with it really.

My problem is that I'm not as familiar with programming as I should be - but I'm learning!

The programmers reference for the Star printer says that if I send a ESC d to the printer - that will activate the built-in cutter - which I would like to do very much.

My problem is that I have no idea how to send an escape code like that from within Perl - if it's even possible.

I really appreciate any a开发者_JS百科dvice on this one.

---

Escape is just a character; it can be written (among other things) as "\e" or "\033". So assuming you have a handle open to the printer device, all you need is to print $fh "\ed".

---

http://www.rhinocerus.net/forum/lang-clipper-visual-objects/600098-lowlevel-printing-esc-codes-sending-printer-vista.html#post2414259

It's written in Clipper but fairly easy to understand since it uses the standard Windows Printing API, callable in 99% of Win32 programming languages.b

---

You can use my module Printer::Thermal from CPAN

https://metacpan.org/pod/Printer::Thermal

$printer = Printer::Thermal->new(serial_device_path=$path);
$printer->write("\x1d" . 'd'); # \x1d is ESC
$printer->print;

BTW esc d is used for print and feed lines

You can use the inbuilt function cutpaper to make things simpler

$printer->cutpaper;
$printer->print;