Perl Win32 :: SerialPort 모듈을 사용하는 직렬 포트와 장치 간의 데이터 전송

Question

Bluetooth 펌웨어 (USB를 통해 연결된 BT)와 테스트 장비 (직렬 포트를 통해 연결됨)간에 데이터를 전송하기위한 Perl 스크립트를 개발 중입니다. Perl 모듈 Win32::SerialPort을 사용하고 있습니다. 장비에서 특수 ASCII 형식으로 데이터를 가져올 수 있습니다 (♥ Black Smiley .. ♥ Black heart ...). 16 진수로 다시 변환 할 때 내 펌웨어에서 처리 할 수있는 opcode를 얻습니다. 그 답례로 BT 펌웨어는 완전한 opcode 명령을 보냅니다.

여기에서 시작하는 문제 ... $ PortObj-> 쓰기 (opcode (16 진수))를 사용하여 직렬 포트에 다시 쓰려고하면 테스트 장비가이를 인식하지 못합니다. 내가 여기서 뭘해야하지?

Answer 1

괜찮아 나는

.. 펄 팩 기능 : 나를 위해 작동 추측 입력 @ = (0x04,0x0e, 0x04,0x01,0x03,0x0c, × 00);

$ ascii = pack ("C *", @input);

인쇄 "값은 $ ascii"입니다.

$ PortObj-> write ($ ascii) || die "$ PortObj에 쓸 수 없습니다 : $^E \ n";