掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ActivePerlの標準入出力の操作 (ID:33445)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
doscommand_tk.zipの方でやってみました。 Perl側。 #!/usr/local/bin/perl $| = 1; print "Start\n"; while(<>){ if ($_ eq "\x1A\n") { last; } print $_; } print "End\n"; exit; ループ中で\x1A\nを検出したらループを抜けるようします。 多分これで望みの結果が得られるのではないかなと。 ちなみにDosCommand1.SendLine(#$1A, True);だと\x1Aだけでなく改行も一緒に送ってるようなので\x1A\nで判定しています。 Perlは良く分からないのでこのあたりもっとうまく実装してみてください。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.