Cash Drawer not opening about perl-printer-escpos

[sonntagd]

Hi, have a look here:

perl-Printer-ESCPOS/lib/Printer/ESCPOS/Profiles/Generic.pm

Line 1138 in 5ef7fc0

$self->driver->write( _DLE . _DC4 . "\x01" . chr( $pin ) . chr( $time ) );

[Jezzrel]

Hi,

Is below the code for the control code?

$self->driver->write( _DLE . _DC4 . "\x01" . chr( $pin ) . chr( $time ) );
If my printer control code to open a cash drawer is 27.112.0.25.250, how can I put on the above code?

[sonntagd]

This should probably done by

$self->driver->write( _DLE . _DC4 . join("", map { chr } qw( 27 112 0 25 250 )) . chr( $pin ) . chr( $time ) );

(untested, please try for yourself)

[Jezzrel]

I will try later and let you know. Thank you.