#! /usr/bin/env perl use strict; use warnings; # こんな感じ。 # perl -MIO::Socket -e'$s=IO::Socket::INET->new("localhost:12345"); $s->send($_)while<>' # 送信先のアドレス。 my $peer_addr = 'localhost:12345'; use IO::Socket; my $sock = IO::S…

#! /usr/bin/env perl use strict; use warnings; # こんな感じ。 # perl -MIO::Socket -e '$s=IO::Socket::INET->new(Listen=>1,LocalAddr=>"localhost:12345",Proto=>"tcp")->accept; print while<$s>' # 受信ポート。 my $listen_addr = 'localhost:12345…

ちょっと、いろいろと。 サーバなテスト。 クライアントなテスト。

チューリングは同性愛者であったが、当時それは違法だった。1952年… へぇ。今って確か、OKっぽい感じになったんだよね。前から数えたほうが早そうな。有名な歌手の人が結婚式したとか聞いた記憶が。優生思想と同性愛って、相性悪そうだけど、北欧の方はどう…

制御文字の'^D'みたいな表記と、Ctrlキー押しながらDを押す、の関係が気になって調べてみた。 なお、印字可能文字のうち、"@"から始まる32文字については、ASCII値を64減じて対応する制御文字を求め、この制御文字を"コントロール+"(英:control+)という前置…

あ、OC。