Macでのシリアル通信のチェック用に作ったスクリプトです ASCII、10/16進数が混在したターミナルソフトを持っていなかったので書いてみた。 (Windows用にはシリアルコマンドエクスプローラ2が便利です) まずは送信用のtxmon #! /usr/bin/perl -w # txmon foreach (@ARGV) { unless (/^-/) { open (FH, ">$_") or die ("can't open port\n") ; } } while (<STDIN>) { @params = split(/,/) ; @txarr = () ; $valid = 1 ; foreach (@params) { s/(^\s+)|(\s+$)//g ; if (/^"(.+)"$/s) { for ($i=0; $i<length($1); $i++) { pu