七行プログラミング (452ﾚｽ)

七行プログラミング http://medaka.5ch.net/test/read.cgi/php/1036141603/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞

---

206: nobodyさん [sage] 03/12/07 09:39 ID:??? >>202 term 関係はシステム依存度高くて鬼門でごわす。 #!/usr/bin/perl use Socket;socket S,2,1,getprotobyname"tcp";setsockopt S,SOL_SOCKET,4,1;bind S, sockaddr_in 1029,INADDR_ANY;listen S,1;{accept C,S;binmode C;select C;$|=1;$n= "\r\n";print$p='$ ';while($_.=$c=getc C){if(s/[$n]+\x00//){/^exit$/&&last;s/\s+ \z//x for@o=`$_`;print join$n,'',@o,$p;$_=''}else{$c=~/[$n]/||print$c}}close C; redo} TeraTermPro → Win98SE (command.com) と TeraTermPro → FreeBSD 4.x (tcsh) で動作する事を確認。 FreeBSD 上で telnet localhost 1029 は動作不能。 誰か残りの行で UNIX 系 OS 用のコード組み込んで下さい。:o) http://medaka.5ch.net/test/read.cgi/php/1036141603/206

---

ﾒﾓ帳

(0/65535文字)

---

上下前次1-新書関写板覧索設栞歴

---

あと 246 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.005s