misc

郵便局のATMでは日曜日は17:00までのようです。

なんか最初シティバンクに口座作るときは24時間いつでもやっているような
宣伝ばかりなのに、プレミアムデポジットは夜11:00までしかできなかったり、
月平均の残高は平日の日中帯のみだったりと、結構時間制限があるので
がっかり。
ま、ATMの件は他行の都合もあるので、仕方がないですが。

はじめはFrostを疑ったが、どうやらfreenetが原因のようだ。
熱しやすく冷めやすい性格なので案の定Mac miniにも飽きつつある今日この頃ということで、
常駐ものでも入れるかということでfreenetを入れようとしたのだが、1時間ほどでどうも動かなくなるようだ。

とりえず邪道編ということでMac miniのほかにWindowsもつかいます。（爆

windows側

#! ruby -Ks

require 'unmo'

require 'socket'


def prompt(unmo)

  return unmo.name + ':' + unmo.responder_name + '> '

end

Morph::init_analyzer

proto = Unmo.new('proto')

port = 7123                    #1

gs = TCPServer.open(port)      #2

while true                     #3

    ns = gs.accept               #4

    p ns.peeraddr

    Thread.start(ns) do |s|      #5

    #printf("> ")

    while input = s.gets

      #s.write input;

      break if /^q/i =~ input

      input.chomp!

      break if input == ''

      printf( "I get :%s\n", input)      

      response = proto.dialogue(input)

      #puts(prompt(proto) + response)

      s.write prompt(proto) + response + "\n"

	printf('I say :' + response + "\n")

    end

    s.close

    printf("close\n");

    @eflag = true;

    proto.save

  end

	break if @eflag == true;

end

Mac mini側

use strict;

use encoding 'utf8';

binmode(STDERR, ':raw :encoding(utf8)');

use Encode;

use FileHandle;

use Socket;

use LWP::Simple;




my $remoteHost="192.168.0.2";

my $port = 7123;

my $ip = inet_aton $remoteHost;

my $proto = getprotobyname 'tcp';

socket S, PF_INET, SOCK_STREAM, $proto or 

    die "socket: $!";

connect S, sockaddr_in($port, $ip)

    or die "connect: $!";

S->autoflush(1);

STDOUT->autoflush(1);

#print S "q\n";

my $contents = get('http://updates.cocolog-nifty.com/status/updates.rdf');

my @contents = split /\n/, $contents;

foreach my $text (@contents) {

    my $textU = decode('utf8', $text);

    #print STDOUT "I say :$textU";

    print S encode('shiftjis',"$textU\n");

    my $ans = <S>;

    print STDOUT decode('shiftjis',$ans);

}

print S "q\n";

print while <S>;

close S or 

    die "close: $!";

exit;

ほのかな酸味がある癖のないチーズでした。


次回はもっと個性的なチーズにするか。

ちょっとここの検索エンジンはおつむが悪いのでは?
Fedora Core3でなぜかこのブログのプロファイル写真が登録されいる。
が、ほかの結果はそれなりな関連する画像がエントリされているようだ。

リンク: AlltheWeb.com: Pictures results for ""fedora core 3"".

2005/5/18の記事が本日Googleアラートとして通知されました。

どうもよくわからなかったので、HTTP::Liteを使い

use HTTP::Lite;
my $http = new HTTP::Lite;
$http->proxy=('http://proxy.host:port/');
my $res = $http->request('http://www.host/');
print $http->body();

てな感じでうまくいくはずだったのだが...
リンク: Perlモジュール/HTTP::Lite - LWPの簡易版として使えるPerlモジュール。.

まだGUI版のノビーは無理ですが、CUI版のプロトは、「proto.rb」の先頭を

#! ruby -Ku

GUI版をMac miniで動かすより、ソケットプログラミングしてSSTPプロトコル経由で偽林檎にしゃべらせることをたくらんでいたりします。

これまでは東西線で中野駅からだったので、始発で座って通勤できていたので、録画したCNNとか教育テレビの英会話を
SH901iCに録画してみていましたが、なれない山手線ではiPod Shuffleがやっとです。そんな矢先、ポッドキャストなるものが巷では、はやりつつあるようで、おくらばせながら試すことに。

リンク: Podcast Now!: ポッドキャスティングのためのソフト アーカイブ.

どうもSC-D70を使うと起きるような気がしてきた。

ページタイトルをキーワードに検索結果をリンクとしてページ貼り付ける改造
wiki.cgiの先頭のほうに

use LWP::Simple;

# JK

    my $myWikiUrl = "http://nadesico.nergal.lan/~junichi/cgi-bin";

    my $pName = @{[&escape($page)]}[0];

    if($pName =~ /^SearchPage/ or $pName =~ /^FrontPage/) {

    } else {

	my $keyword = encode($page);

	print "<hr><h2>AutoLink</h2>";

	my $url = $url_cgi . "?mycmd=search&mymsg=" . $keyword;

	my $contents = get("$myWikiUrl/$url");

	my @contents = split(/\n/, $contents);

	foreach(@contents) {

	    if(/^<ul>/) {

		print;

	    }

	}

   }

# JK

またしてもウィルスセキュリティのせいで
RubyからGoogleAPIが使えない。
Google純正のJava実装のサンプルAPは動作するので
Rubyの実装の問題なのかもしれないが。