制御系なら俺に聞いてもいいぜ（９）at TECH

---

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
2:デフォルトの名無しさん 06/09/19 09:10:51 そーいや、過去ログの新タイプミラーって死んでる？ 3:デフォルトの名無しさん 06/09/19 14:42:03 ふりむかないことさ 4:デフォルトの名無しさん 06/09/20 09:44:03 >>１　お疲れ様 スレたてして暫くレスないと落ちる事があるみたいだから上げるね 5:デフォルトの名無しさん 06/09/20 09:52:54 制御系の貴殿らにperlスクリプト検定試験をプレゼントだ。 【ether⇔com1変換装置がある。この変換装置にtelnetしてconnect com1を 実行すれば、あたかもモデムなどのシリアル接続機器が自分のＰＣに ローカルで接続しているかのような状態になる。ぜひとも"ATZ"などの コマンドをモデムに送り込みたい。 以下のスクリプトをどう修正すればいいだろうか答えなさい。】 変換機のIPを192.168.1.1 変換機にログイン後、モデムに接続するコマンドをconnect com1とする use strict; use warnings; use Net::Telnet (); my($t,$pass,$host,$user); $host = '192.168.1.1'; $user = 'admin'; $pass = 'admin'; $t = new Net::Telnet (-host => "$host"); $t->open("$host"); $t->waitfor('/login:/'); $t->print("$user"); $t->waitfor('/Password:/'); $t->print("$pass"); $t->waitfor('/#/'); $t->print("connect com1"); $t->waitfor('/com1 connected!/'); $t->print("ATZ");

---

次ページ

最新レス表示

レスジャンプ

類似スレ一覧

スレッドの検索

話題のニュース

おまかせリスト

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch