Last-Modified: Thursday, 21 October 2004 18:23:08 +0900 (JST)

Thursday, 21 October of 2004

ノン・フィクション

・昨夜の帰路
台風23号が 夜中に関東圏を通過する予報が出ていて、 交通機関がちょっと心配になる。
22時過ぎに帰路につく。そのときは、雨が強く降っており わずか 数分だったが、ちょっと悲惨な状況に... 傘があまり 役に立たない? でも、傘がないともっと悲惨なのだが....
その後、御茶ノ水駅で快速電車に乗り換えるが、神田 - 四ッ谷 の間で 15km/h の速度制限が実施されており、御茶ノ水駅から 四ッ谷駅まで30分弱。その後、新宿までは ほぼ通常だった (? それでも少し速度を抑えている感じがした)ので 新宿までが早かった感じが...
その後、小田急小田原線に乗り換えるが、あきらかにいつもより 人が少ない... 各駅停車の電車で 自宅の最寄駅近くでは、 1両に 5〜6人程度しか乗っていない... ほかのみなさんは、 早く帰宅されたため、少なくなっていたのかも
駅を降りると、既に雨は上がって、雲も切れはじめていたし、 星も見えた。台風の南側は 雲がなくなりはじめていた ようです。

・雨漏り?
雨漏りの対応をする駅職員
昨日の帰り道。とある駅にて、ふと見ると 激しい雨のためか 雨水がホームの上に流れ落ちているようで、職員の方が、 ビニールシートで 流れ落ちる雨水を防ごうとしていました。


・ガス点検
昨日(20日) のこと。 20日の午前10:30〜11:30に立ち入りにて ガス設備の点検を行うとの通知が...
仕方ないので 10時少し過ぎから 待っているが 11:20になっても 誰も点検に来ない。 台風で雨が降っているから 多少手間取って いるのかな? と思って待っていたが それでもちょっと遅すぎ... という訳で業者に電話してみると、確認して 折り返し電話を してくれるということに...
しばらく待つことにするが 20分近く経っても電話が来ない。 20分を経過したらもう一度電話してみよう、と思っていた ところに電話が...
業者:「すみません、 9時40分頃にお伺いしたのですが...」
私: 「この案内には 『10:30〜11:30』 って書いてあるけど」
業者:「え、すみません、そうでしたか... 改めて お伺いして 点検したいのですが...」
私: 「今日は、もう困ります。来週にしてください。」
業者:「わかりました、来週 調整させていただきます」
というわけで、来週に延期。
しかし、予告より 1時間弱も早く来ていたとは... 行き違いに なっても こちらには責任はないですよね...

・神田川
神田川 神田川
御茶ノ水駅のホームから見える 神田川。台風の大雨のためか、 いつもより 水量が多いように思えます。


・スクリプト
Net::Telnetを使って 簡単なスプリクト。 これで shell-script から リモート先のPCにコマンドを実行させて その結果を取る ことができる... 
#!/usr/bin/perl

use strict;
# use English;

use Net::Telnet;

sub usage {

    print << "__EOF__";
usage:

    .....

__EOF__

    exit 1;

}

sub check_env {

    my $param;

    $param->{USERNAME}  = $ENV{TELNET_USERNAME} || 'hoge';
    $param->{PASSWORD}  = $ENV{TELNET_PASSWORD} || 'foo';
    $param->{PROMPT}    = $ENV{TELNET_PROMPT}   || '/\$ /';
    $param->{TIMEOUT}   = $ENV{TELNET_TIMEOUT}  || 10;

    $param;
}

my $param = check_env;
usage unless ($ARGV[0]);

my $telnet = Net::Telnet->new(
    Timeout => $param->{TIMEOUT},
    Prompt  => $param->{PROMPT},
);

$telnet->open($ARGV[0]);
$telnet->login($param->{USERNAME}, $param->{PASSWORD});

if ($ARGV[1]) {
    print "$ARGV[0]> $ARGV[1]\n" if ($ENV{TELNET_ECHO});
    print $_ foreach($telnet->cmd($ARGV[1]));
    print "\n";
} else {
    my @result;
    my $line;
    while (<STDIN>) {
        tr/\n\r//d;
        print "$ARGV[0]> $_\n" if ($ENV{TELNET_ECHO});
        @result = $telnet->cmd($_);
        foreach $line (@result) {
            print $line;
        }
        print "\n"
    }
    print "\n";
}

$telnet->close;
※このスプリクトは簡単なテストしかしていない...

こんな感じ....
株式市場

・TOPIX
9ポイント弱の続落。出来高は 12億9000万弱。