1

Perlスクリプト内のシリアルポートと通信する必要があります。文字を送信し、入力を読み取り、文字列を検索する必要があります。

これを達成するための最も簡単な方法は何ですか？「expect」を使用するか、Perl自体で/ dev / ttys0デバイスを開くことによって？または他の方法？

私はperlを使用することを好みますが、それが単純で期待どおりに機能するかどうかはわかりません。

4

3 に答える 3

6 
my $port = new Device::SerialPort("/dev/ttyS0"); 
$port->user_msg(ON); 
$port->baudrate(9600); 
$port->parity("none"); 
$port->databits(8); 
$port->stopbits(1); 
$port->handshake("xoff"); 
$port->write_settings;

$port->lookclear; 
$port->write("some command to com-port");

my $answer = $port->lookfor;
# or my $answer=$port->read(255);
于 2012-04-25T10:27:56.613 に答える
3

Win32::SerialPortWin32とDevice::SerialPortLinuxで試すことができます。

于 2012-04-25T09:18:57.677 に答える
0
于 2012-04-25T09:18:53.940 に答える