OBD-II Perl代码在特定数量的AT请求后挂起

Question

连接到蓝牙OBD-II适配器后，我能够得到 数据通过发送PID服务请求，但它们完全停止 相同数量的请求。

for ( ;; ) {
    obj -> write ( "010C\r" );
    if ( $data = $obj -> input ) {
        print "$data";
    }
    obj -> write ( "010D\r" );
    if ( $data = $obj -> input ) {
        print "$data";
    }

}

你能告诉我可能出现什么问题吗？我读 大约两个选项的地方1）重新初始化和2）关于 缓冲区留有CR。我正在研究那些。

（我使用相同的OBD-II蓝牙在我的机器人上使用Torque  适配器，似乎连续获取数据。所以那里  我正在做的事情一定是错的。

感谢您的回复。