From: <hs...@mt...> - 2002-01-11 15:44:04
|
坂本です。 > 南です > > ところで、例えば perl スクリプトからだとどうやって > > 返り値を受け取ればいいのでしょうか。 > 標準入力から普通に読み込み... だと思っていたのですが > perl -e "printf qq/\e[c/;read STDIN,\$res,8;print qq/\$res/;" > とかしてみても(当然)ブロックされて(LF を手で一つたたいて追加するまでは) > よみこまれないですよね。 上記の様なテストをやっても何も表示されないなぁと思って、 質問したのですが、escape sequence として端末に食われていました(^^; $res を出力する前に、$res =~ s/^.//; とか入れておくといいのですね。 # ところで、\033[c を送ると、mlterm だと \001b[?1;2c が返り、 # xterm/kterm/rxvt だと \033[?1;2c が返るのですが、 # 私の環境が何かおかしいのでしょうか? ----------------------------------- 坂本 浩則 <hs...@mt...> http://www2u.biglobe.ne.jp/~hsaka/ |