日常メモ帳

うまくいかなかったドラゴンフルーツを諦めて
代わりに、イチジクとポポーを追加。イチジクの苗は初めて、ポポーは品種不明の苗（たぶん実生苗）に追加しての二株目です

観賞用としては、キリタとセントポーリアをそれぞれ７株と８株追加
あちこちの置き場所が一杯一杯にｗ

フェイジョアの実がかなりいい感じに大きくなってきた、得にアポロよりも
実生苗の方がいい感じで大きくなってる。これ、かなり当たりな感じの
実生苗なんだろうか？
その当たりっぽい実生苗とアポロを後輩させた苗もいい感じで生長してる
再来年あたりには開花結実いけるかも

パッションフルーツの苗も１０株以上完成、これを２株くらいを残して
残りをそのまま冬の寒さにあて、耐寒性が高いのを選抜する予定
……まあ全滅する可能性がたかそうだけど

現在PCはメインPCとサブPCの二台使い
そうなると、マウス・キーボードは共有したくなるけど、もう一つ
クリップボードも共有したくなる

で、ソフトウェア的にマウス・キーボード共有はツールも一杯あるし、それで
問題なく動くけど、前から困っていたのがクリップボードの共有
これも、専用のツールなり、マウス共有の１機能なりですでに出回ってるんだけど、
なぜか上手く動かない

まったく動かなかったり、一方通行でしか共有できなかったり、最初は動いていても
すぐに動かなくなったりで、まったくいうことを聞かない
まあ仕方ないかと諦めていたんだけど、そのくらいのツールならサクっとつくれそうだったんで
ちょっと作ってみた

#!perl
use Win32::Clipboard;
use IO::Socket;
my $clip = Win32::Clipboard();
my $sport =24252;
#送信先アドレスを読み込み
open (IN,"iplist.txt")  or die $!;
$iplist = <IN>;
close(IN);
print "send to $iplist\n";

# サーバ側
if (my $pid = fork()) {
	local $buf,$txt,$ca,$port,$ipaddr;
	#ソケット作成
	local $serv = IO::Socket::INET->new(
		LocalPort	=> $sport,
		ReuseAddr	=> 1,
		Proto	=> "udp"
	) or die $!;

	#待ち受け
	while(1){
		$txt='';#初期化
		while(1){
			$ca = $serv->recv($buf, 1001);#受信
			($port,$ipaddr)=sockaddr_in($ca);
			$ipaddr=inet_ntoa($ipaddr);
			#ローカル以外からの通信なら無視
			if (substr($ipaddr,0,10) ne "192.168.1.") {print "err!! (illegal addr $ipaddr)\n";last;};
			#末尾のコードが0なら、続きがある
			if (substr($buf,-1) eq chr(0)){
				chop($buf);
				$txt.=$buf;
			#そうじゃなかったらこれで終わり
			}else{
				$txt.=$buf;
				last
			}
		}
		#結合した文字をクリップボードにセット
		$clip->Set($txt);
		#終了コードなら抜ける
		if ($txt eq "SYS:EXIT") {last};
	}
	#ソケットを閉じる
	$serv->close;
	exit(0);
#クライアント側
} else {
	local $old_text,$text,$cnt,$sptxt;
	#ソケット作成
	local $cli = IO::Socket::INET->new(
		PeerAddr	=> $iplist,
		PeerPort	=> $sport,
		Proto	=> "udp"
	) or die $!;
	#何故かWin起動直後に限りWaitForChange前に少し時間をおかないと
	#バグってクリップボードの変更を感知しなくなる
	sleep(50);
	while(1){
		#無限ループ防止に変更前のクリップボードの中身を記憶
		$old_text = $clip->GetText();
		#クリップボードの中身が変わるまで待つ
		$clip -> WaitForChange();
		unless ($clip->IsText()) {print "notxt\n";next};#テキスト以外なら無視
		$text = $clip->GetText();

		if  ($old_text eq $text) {print "eq\n";next};#中身が変わってなければ無視（無限ループ防止）
		$cnt=0;#文字位置記録用
		while(1)
		{
			#1000バイト分取得（パケットサイズを越えない程度に）
			$sptxt = substr($text, $cnt, 1000);
			$cnt+=1000;
			#続きがあれば目印にキャラコード0をくっつける
			if ($cnt < length($text)){
				$cli->send($sptxt.chr(0))
			}else{
				$cli->send($sptxt);
				last;#全部送ったのでループを抜ける
			}
		}
		#終了コードなら抜ける
		if ($text eq "SYS:EXIT") {last};
	}
	#ソケットを閉じる
	$cli->close;
	exit(0);
}

未だにこの手の簡単なツールを作る時perlを使う癖が抜けないが、
まあ個人的にしかつかわないしよしとするｗ
こいつをメインPCとサブPCにいれて、コンソール画面はいらないので
wperlから呼び出すようにすると、無事にクリップボードが共有された
いまんとこ、動作も安定しててまあ問題はないかな？
本当はperlccでコンパイルできればよかったんだけど

先週のことだけど、メールアラートで登録してたSTAXのヘッドフォンセットがいつもの底値より
2万以上もぽんと安くなってた
メールをみた瞬間飛びついて注文したんだけど、品切れということでキャンセルされてしまった……
ぬか喜びかよー、と思ったけど。どうも後継のSRS-4170ってのが発売されるっぽい

横浜買収でコジマのパクリかよｗといわれてるノジマで視聴してこようかなー
（いつ視聴できるようになるかわからんがｗ）

どうも、階段の所に設置したLED育成装置三号改の調子が思わしくないので
前から気になっていた

　「　市販のLED電球でうまく植物が育つか？　」

という疑問を解決する意味も込めて、「LED育成装置三号改・改」にしました
そろそろ「LED育成装置三二式」とか呼んだ方がいいんだろうかｗ
で、できあがりはこんな感じ



ちょっと廃熱問題が不安ですが、まあ何とかして貰おう
白色のLEDって実は「疑似白色」といってもいい内容で
普通の白は「赤+緑+青」で作ってるんですが、これは「青+黄」で作っている
つまり、植物が一番光合成で必要としている「赤」の成分がない状態になっている
（いちおう、「赤+緑+青」で白を作っているLEDもあるが高価）
なので、まったく育たなくても不思議はないのだが、二週間ほどプレテストをしてみたら
なんと、普通に成長を始めたので、今回本格的に組んでみた

さて、上手く育つかどうか

スパムメール多いんですよね、実はそれも引っ越しを決意した理由の一つだったりするんですが
少ない日でも100通は来るんです。
まあ、ほとんどホワイトリスト方式で弾いてるんで、うざいメールを見ることは
ほとんど無いんですが、たまたまのタイミングで受信しちゃったスパムの送り主

From: レアアース

おまえ、最近話題になってる単語を使いたかっただけじゃないのかｗ
中国へお帰りください。