我可以從perl發送ESC d命令給POS打印機嗎？

Question

我有一臺Star TSP100打印機，真的很少有問題。

我的問題是，我不像編程那麼熟悉 - 但我正在學習！

Star打印機的程序員參考指出，如果我將ESC d發送到打印機 - 這將激活內置切紙器 - 這是我非常想要做的。

我的問題是，我不知道如何從Perl內發送像這樣的轉義代碼 - 如果它甚至是可能的。

我真的很感激任何意見在這一個。

Answer 1

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

這是寫在快船，但很容易理解，因爲它使用標準的Windows打印API，在調用Win32編程languages.b的99％

Answer 2

逃生只是一種性格;它可以寫成（除其他之外）爲"\e"或"\033"。所以假設你有一個打開設備的手柄，你需要的只是print $fh "\ed"。

Answer 3

你可以使用我的打印機模塊熱::從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用於打印和饋線

您可以使用內置的功能cutpaper使事情更簡單

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