#簡単なWebブラウザ #browser.pl #モジュールの使用宣言 use IO::Socket; #URLを入力 print "URLを指定してください＞"; $url = <STDIN>; #URLをホスト名とファイルパスに分割 chomp($url); if($url =~ /http:\/\/([^\/]+)(\/.*)/){ $host = $1; $file = $2; }else{</stdin>…

サーバースクリプト #クライアントからの文字入力を受けてそれをそのまま返すサーバースクリプト #echoserver.pl #モジュールの使用宣言 use IO::Socket; #ソケットオブジェクト作成 $server_socket = new IO::Socket::INET( LocalPort => '10000', Proto =>…