while(<FILE>) {
    my $line = $_;
    for(1..3) {
        foo($line);
    }
} continue {
    baa($line); # ← ここの $line は常に undef
}

▼momo 様の指摘:

while (my $line = <>) {
    print $line;
} continue {
    print "cont: ", $line;
}
こう書けば大丈夫

▼ Apacheの脆弱性を攻撃するワーム「Scalper」が出現、対策が急務:

▼マナーなってないよね〜 (オマエモナ〜:

JXTA_LIB=~/JXTA_Demo/lib
CLASSPATH=$JXTA_LIB/jxta.jar:$JXTA_LIB/jxtacms.jar:＜略＞

目覚し時計(のベル)早く止めてよね

for f in $(ls ~JXTA_Demo/lib)
do
    CLASSPATH=$CLASSPATH:$f
done

for f in $(ls ~JXTA_Demo/lib)
do
    if [ -n $CLASSPATH ]; then
        CLASSPATH=$CLASSPATH:$f
    else
        CLASSPATH=$f
    fi
done

CLASSPATH=$JDK_HOME/lib:$JRE_HOME/lib
for f in $(\ls $JXTA_LIB/*.jar)
    do
        CLASSPATH=$CLASSPATH:$f
    done
export CLASSPATH=$CLASSPATH:.

while (my $line = <>) {
    next if ($line =~/foo/);
} continue {
    print $line;
}

% echo foo | perl test.pl
% echo baa | perl test.pl
baa

% echo foo | perl test.pl
foo
% echo baa | perl test.pl
baa

▼ダウト…:

while (my $line = <>) {
    next if ($line =~/foo/);
} continue {
    print "### " . $line;
}

% echo baa | perl test.pl
### baa
% echo foo | perl test.pl
###

セキュリティー

napster のようにサーバでアカウントを一極集中管理するのは、P2P とは呼べない気がしてるし、

gnutella や WinMX のように放棄するというのも手だが、(プロトコル的には考えてそうな気もするけど…)

真面目に考え始めると、

・ Group や Service, Pipe 等、様々なリソースの保護

・ マルチホップ認証

等々、色々と頭の痛い問題が…

NAT 周り

残念ながら IPv4 が優勢な今、社内LAN, 家内LAN をプライベート IP にして、NAT で外部のネットワークに繋いでいる所が多いはず。

かくいう自分もそうだし‥

で、この NAT も色々と面倒そう。

・ NAT の内外両方に足を持っているホストの動作

・ NAT の中と外の間での通信

peer 網ルーティングとどう絡むのかも、おいおい調べていった方がいいカナ

▼ 無線LAN時代の強力ユーティリティ「Net Stumbler」!!:

▼右隣に若者:

(よ) すみません。足の裏がこっちに来ないように足を組みなおして貰えませんか？
(奴) はぁ？ 何故？
(よ) いえ。足の裏がこっちに向いてると、泥とか自分につくんで…

▼左隣に外国人:

▼ 教育訓練給付の支給申請手続について:

▼集計:

▼無線 LAN 機能:

▼応用、というか、むしろ本来、期待される使い方:

これは富士銀行の通帳なので、元富士銀行の支店に行って下さい。

他の第一勧銀とかは手数料を取ってたので、
合併で合わせたんです。

▼ 仕事の効率アップ、“昼寝”に効果:

▼ マイクロソフトのコードにバグはない (Microsoft が思っている限りでは):

▼ FREE_FONT 概要:

% tar xvfz irc2.10.3.tgz
% ln -s irc2.10.3 irc2.10.3+jp6
% tar xvfz irc2.10.3+jp6.tgz
% cd irc2.10.3
% ./configure --enable-ip6
% cd i686-pc-linux-gnu/
% make all

../ircd/s_bsd.c: In function `check_init':
../ircd/s_bsd.c:678: parse error before `__u32'
../ircd/s_bsd.c:678: parse error before `__u32'
../ircd/s_bsd.c:678: parse error before `__u32'
../ircd/s_bsd.c:678: parse error before `__u32'
../ircd/s_bsd.c: In function `check_client':
../ircd/s_bsd.c:762: parse error before `__u32'
../ircd/s_bsd.c:762: parse error before `__u32'
../ircd/s_bsd.c:762: parse error before `__u32'
../ircd/s_bsd.c:762: parse error before `__u32'
../ircd/s_bsd.c: In function `read_message':
../ircd/s_bsd.c:2032: `POLLWRNORM' undeclared (first use in this function)
../ircd/s_bsd.c:2032: (Each undeclared identifier is reported only once
../ircd/s_bsd.c:2032: for each function it appears in.)

#define IN6_IS_ADDR_LOOPBACK(a) \
    (((__const uint32_t *) (a))[0] == 0                   \
     && ((__const uint32_t *) (a))[1] == 0                    \
     && ((__const uint32_t *) (a))[2] == 0                    \
     && ((__const uint32_t *) (a))[3] == htonl (1))

../common/os.h:#  define uint32_t __u32

/usr/include/linux/types.h:typedef              __u32           u_int32_t;

#if HAVE_SYS_POLL_H
# if linux
/* Linux is just soooo broken */
#  define _GNU_SOURCE 1
# endif
# include <sys/poll.h>
# if linux && !defined(POLLRDNORM)
/* Linux 2.1.xx supports poll(), header files are not upto date yet */
#  define POLLRDNORM 0x0040
# endif
#endif

# if linux && !defined(POLLWRNORM)
/* Linux 2.1.xx supports poll(), header files are not upto date yet */
#  define POLLWRNORM 0x100
# endif

if i386 /* sizeof(int)=4 を仮定 */
typedef unsigned int __u32;

▼設定:

ERROR: Bad config line (M:irc.awm.jp:*:IRC server at AWM Lab.:6667:)
        Wrong delimiter? (should be %)

  Because IPv6 numeric addresses contain ``:'' characters, the separator
  for the server configuration file was changed to ``%''.

# /usr/local/sbin/ircd
# ps -auxww | grep ircd
root      8066  0.0  0.2  2492  704 pts/4    R       15:38   0:00 grep ircd

▼ 湘南ゴミ拾いオフ:

パソコン上のスパイ・ウェア (http://opt-1.matsc.kyutech.ac.jp/spy.html)

Ad-Aware (http://www.lsfileserv.com/)

Scanning finished
==================
Suspicious modules found:0
Suspicious keys found : 1
Suspicious folders found:0
Suspicious files found:30
==========================
Components ignored:0
Total components found:31

Alexa key:HKEY_LOCAL_MACHINE\software\microsoft\internet explorer\extensions\{c95fe080-8f5d-11d2-a20b-00aa003c157a}\

UML 関連

UML ユーザーズガイド / Pearson Education Japan

UML リファレンスマニュアル / Pearson Education Japan

Java 関連

Java言語で学ぶデザインパターン入門 - マルチスレッド編

Web

Webプロトコル詳解

Windows Network

アンドキュメンテッド Microsoft ネットワーク

• 10M/100M PCI Bus LAN ADAPTER - FW-110TX PCi 製
• 80G HD - Seagate 流体軸受 ST380021A
• IDE コントローラ - PROMISS Ultra133 TX2

Pattern section_pattern = Pattern.compile("\\[(.+)\\]");
Matcher reg = section_pattern.matcher(line);
if (reg.find()) {
    section_name = reg.group(1);
    ...

Pattern key_value_pattern = Pattern.compile("\\s*([^=^\\s]+)\\s*=\\s*(.*)\\s*");
Matcher reg = key_value_pattern.matcher(line);
if (reg.find()) {
    value_table.put(reg.group(1), reg.group(2)); // key, value
    ....

湘南でゴミを拾ってマスコミに抗議 (http://slashdot.jp/article.pl?sid=02/07/06/234243&mode=thread)

「Ｗ杯でアジアの地位を貶めた韓国への抗議」
「その韓国を擁護しつづけ、視聴者の抗議を嘲笑した不治テレビへの抗議」
「韓国の自慰行為の犠牲になった葡・伊・西チームへの励まし」
「不治に無視された親日国・トルコのＷ杯３位を祝う」 

フジテレビの２７時間テレビで企画されている
「夏の湘南　１万人のごみ拾い」の妨害のため、
番組が始まる前にごみを全部拾ってしまおう

　　∧ ∧美化だｺﾞﾙｧ
 ∨.(ﾟДﾟ)　　　　　　　　　　　偽善はイヤ！
　⊂| ２ |Uw　　　でも、嫌がらせでならできちゃう！
　 　|c h|/ﾊ＼　　　　　　　湘南ゴミ拾いオフ
　　 Ｕ Ｕ＼__/　　http://members.tripod.co.jp/fuji27/

▼HD 追加:

Controller ---------|------|
                  MASTER   SLAVE

Controller ---------|------|
                  SLAVE   MASTER

本体 ---- Seagate HDD (Master) ---- CD-ROM (Slave)

▼LAN カード追加:

▼DVD+RW/+R 追加:

(よ) すみません。アクティベーションの事で教えて下さい。
     Windows XP の入っている PC に DVD ドライブを追加したら、
     認証を要求されまして、XP に付いて来た番号を入れても、
     認証回数が多いとかで、はねられるのデスが。
(MS) 画面に出ている ID を教えて下さい。
(よ) XXXXX - XXXXX .... です。
(MS) OEM 版ですね。何と一緒に御購入されましたか?
(よ) えと。ハードディスクです。
(MS) では、番号をお知らせしますので、ID の欄に入力して下さい。
	＜略＞

「Sockets de Trois」というトロイの木馬が存在する。
使用されるportは 5000, 5001, 30303, 50505の4つらしい。
Windows NT だと port 5000, 5001 が open になる。

H:\yoya> netstat -a
	＜略＞
  TCP    yoya-xxxx:5000     yoya-xxxx:0   LISTENING
	＜略＞

TCP port 5000 is listening, am I infected with Sockets de Troie? (http://www.diamondcs.com.au/info/port5000listening.htm)

my $sock = new IO::Socket::INET->new(PeerAddr => 'localhost',
                                     PeerPort => 'http(80)',
                                     Proto => 'tcp');
defined($sock) || die "Can't open socket\n";

print $sock "GET / HTTP/1.0\r\n\r\n";
print $_ while(<$sock>);

▼ふつー IO::Socket より LWP 使うっしょ (わ)氏:

▼ Gnutella』リーダーのジーン・カンが死去:

ウィリアムギブソン

サイバースペースという言葉を発明した人?

  % mkdir /c    ; mount -b -s "C:" /c
  % mkdir /d    ; mount -b -s "D:" /d
  % mkdir /e    ; mount -b -s "E:" /e
  % mkdir /p    ; mount -b -s "P:" /p
  % mkdir /h    ; mount -b -s "H:" /h
  % mkdir /t    ; mount -b -s "T:" /t

▼構成図:

                              ______       _----------_
                             (      ) ____(  Internet  )
          ---------  up512k (  CATV  )     ~----------~ 
         |10BaseHUB|---------(      )
          ---------  down1M   ~~~~~~  ※ 61.a.b.c は固定 IP
www  _______|   |_______             ※ 210.d.e.f は可変 IP
ssh |                   |DHCPc
 ------ 61.a.b.c     ---------- 210.d.e.f     お外 global IP
|awm.jp|            |alt.awm.jp|              ===============
 ------ 192.168.x.y  ---------- 192.168.x.z   家内 private IP
 ↑ |_____        _____| ↑NAT(default router)
DHCPd     |      |
         ----------      -----
        |100BaseHUB|----| A.P.| ←ブリッジモード
         ----------      -----
     _____|  |           ~   ~  ← IEEE802.11b
    |        |           ~   ~ 
  ----     -----    ------   ------     -----
 |iMac|   |share|  |notePC| |bridge|---| xxx | 自分の部屋
  ----     -----    ------   ------     -----   の駄目PC
          家族共用

▼bind の view:

view "awm.jp" { # 家内 LAN
	match-clients { 192.168.0.0/16; };
	＜略＞
	zone "awm.jp" {
		type master;
		file "awm.jp-internal.zone";
	};
}
view "default" { # 外部
	match-clients { any; };
	＜略＞
	zone "awm.jp" {
		type master;
		file "awm.jp.zone";
                allow-transfer {
                        localhost;
			＜secondary の IP address＞
                };
	};
}

G氏による人類帝國年代記 (http://isweb12.infoseek.co.jp/computer/jrlc/diary/new.html)

MTVシリーズにノンサポートながらAVIキャプチャ対応ドライバが
出る事が6/30発売のDOS/V PowerReportで明らかとなり、
更にMTVシリーズ用リモコンまで用意されます。

…カノプー様、天下のﾐｲｿを本気で庸懲する様です。
何か、Intelの尻尾踏んだTransmetaの姿が頭を過ぎりますね...

▼ 『グヌーテラ』開発者が自殺:

▼ ハードディスクの断末魔.wav @ IBM:

▼ 右クリックメニューに＜暗号化＞を追加する:

(レジの人) 残念ですが外れです。
(姉ちゃん) オマエがハズレってゆーなよ

▼出発前:

▼バス:

▼電車:

▼晩御飯:

▼就寝:

[root@tune yoya]# apt-get  upgrade
パッケージリストを読みこんでいます... 完了
依存情報ツリーを作成しています... 完了
以下のパッケージがアップグレードされます:
  apache apache-devel apache-manual mod_ssl squid
5 個のアップグレードパッケージ, 0 個の新規パッケージ,
0 個の削除/リプレースパッケージ, 0 個の保留パッケージがあります。
取得パッケージ: 3298kB のアーカイブを取得します。
インストール後は 1665B が使用されます。
続行しますか? [Y/n]y
取得:1 http://updates.vinelinux.org 2.5/i386/updates apache 1.3.26-0vl2 [522kB]
取得:2 http://updates.vinelinux.org 2.5/i386/updates apache-devel 1.3.26-0vl2 [117kB]
取得:3 http://updates.vinelinux.org 2.5/i386/updates apache-manual 1.3.26-0vl2 [1193kB]
取得:4 http://updates.vinelinux.org 2.5/i386/updates mod_ssl 2.8.10-0vl2 [462kB]
取得:5 http://updates.vinelinux.org 2.5/i386/updates squid 6:2.4.STABLE7-0vl1 [1004kB]
取得完了: 3298kB を 27s (118kB/秒)

▼ 嘘までついてソーテックを陥れようとしている者たち:

▼設定:

Portability Guide (http://petef.port5.com/c/portability.txt)

X/Open Portability Guide 3 (1989)

▼ PHPでPDFをパパッと作る方法 (第2回):

▼ ディープリンク禁止命令の影響どこまで？:

▼ 8ビット未満のIPアドレス割り当てで、SSH などの接続に支障:

• Advanced Wave Memory (http://www.yamaha.co.jp/news/2000/00041201.html)
• Ardent Computer の 3D グラフィックワークスステーション TITAN のTitanOS にバンドルさ れていた Window Manager (http://users.hoops.ne.jp/heuy/html3/awm/index.shtml)
• BOSE "Acoustic Wave Music System (AWM)" (http://www.drycarbon.com/be/misc/mymusicenv.html)
• あけぼの、ウィークリーマンション (http://www.abk.co.jp/sitemap.htm)

%host_table = (
  'hoge' => `hostname`,
);

%host_table = (
  'hoge' => ($_=`hostname`,chomp,$_) . '.',
);

$this_hostname = `hostname`;
chomp($this_hostname);
   ...
%host_table = (
  'hoge' => $this_hostname . '.',
);

▼吉野家:

▼本屋:

▼電車:

システム休止状態の失敗
コンピュータは`WANミニポート(PPPOE)'デバイスのデバイスドライバ
のために休止状態に入ることができません。
アプリケーションをすべて終了して、やり直してください。
問題が解決されない場合は、
このドライバの更新が必要になる場合があります。

▼ 8ポートのGigabit Ethernetハブが3万円割れ:

▼ 仕事の心がけ:

sp12% nslookup www.asahi.com. 210.x.y.z
Name:    wwwld6.asahi.com
Address:  209.249.129.20
Aliases:  www.asahi.com

sp12% nslookup www.asahi.com. 210.x.y.w
*** Can't find server name for address 210.x.y.w: Server failed
*** Default servers are not available

nslookup ? ( ゜Д゜) ハァ？ (http://djbdns.jp.qmail.org/djbdns/faq/tinydns.html#nslookup)

• やって欲しいことをやる前に、 nslookupは サーバの IP アドレスについて PTRレコードを問い合わせ、サーバ名を表示しようとします。これではまるで、あなたが本当に欲しい情報(名前またはIPアドレスなど)よりもこのサーバ名という情報の方が重要であるかのように思えます。
• サーバをコマンド行で指定すると、 nslookup は上の馬鹿馬鹿しい PTR 問い合わせを指定したサーバに送ります。そのサーバが再帰問い合わせを許しているとか、答をもっていることを仮定するのは不当なことなのに。 (もしやるとしても)正しい振舞いはローカルキャッシュに尋ねることでしょう。
• もしこの無用な PTR 問い合わせが失敗すると、 nslookup は終了して、本来やって欲しい仕事をしません。

sp12% nslookup
> server 210.x.y.w
Default Server:  [210.x.y.w
> www.asahi.com.
Name:    wwwld6.asahi.com
Address:  209.249.129.20
Aliases:  www.asahi.com

JDK_HOME=/cygdrive/c/j2sdk1.4.0_01

JRE_HOME=$JDK_HOME/jre

JDK_LIB=$JDK_HOME/lib
JRE_LIB=$JRE_HOME/lib

JDK_BIN=$JDK_HOME/bin
JRE_BIN=$JRE_HOME/bin


CLASSPATH=".;$JDK_LIB;$JRE_LIB"

PATH=$PATH:$JDK_BIN:$JRE_BIN

export CLASSPATH
export PATH

public class TestApp {
  public static void main(String []args) {
    System.out.println("This is TEST");
  }
}

java.lang.NoClassDefFoundError: TestApp
Exception in thread "main" 

▼JXTA 環境設定:

JXTA_LIB=~/lib/java/jxta
for j in $JXTA_LIB/*.jar
do
    CLASSPATH=$CLASSPATH:$j
done

▼…:

▼ ??:

Explorer.java:9: パッケージ com.sams.swing は存在しません。
import com.sams.swing.AdvertisementTreeCellRenderer;
                      ^
Explorer.java:10: パッケージ net.jxta.document は存在しません。
import net.jxta.document.Advertisement;
                         ^
Explorer.java:11: パッケージ net.jxta.document は存在しません。
import net.jxta.document.StructuredTextDocument;

お客様。喫煙所以外でのおタバコはご遠慮下さい。

▼ モナー、キャラクター:

sub process_create($) {
	my $pid = fork();
	return $pid if ($pid);
	system(shift)==0 or warn "うわぁん… (TДT";
	exit 0;
}

• sh を介して起動するので重いし、起動したいプロセスと sh と２つプロセスを動かす事になる。
• ps で表示されるプロセス名が起動元のプロセス名を引き継ぐので、起動元のプログラムが増えたように見えるし、何が新たに起動されたか分からない。

sub process_create($) {
	my $pid = fork();
	return $pid if ($pid);
	exec(shift) or warn "クスン… みぃやぁ(←誰?)… (ノ_；";
	exit 0;
}

▼重複する処理があった:

my @target_list = ();
foreach $target (&get_targets()) {
	next if (is_str_contain($target, @target_list));
	push @target_list, $target;
	＜今まで通りの処理＞
}

sub is_str_contain() {
	my $elem = shift;
	for(@_) {
		return 1 if ($_ eq $elem);	
	}
	return 0;
}

▼っつーか、ハッシュ使えや、ゴルァぁっ!! (゜Д゜) by momo 様:

my %target_table = ();
foreach $target (&get_targets()) {
next if defined $target_table{$target}; # hash の場合は exists ダベ…
	next if exists $target_table{$target};
	$target_table{$target} = 1;
	＜今まで通りの処理＞
}

▼隣におじさんが座って…:

▼電車で JXTA ごっこ:

Explorer.java:9: パッケージ com.sams.swing は存在しません。
import com.sams.swing.AdvertisementTreeCellRenderer;

java com/sams/jxta/explorer/Explorer

java.lang.NullPointerException
	at net.jxta.impl.cm.CmCache.add(CmCache.java:119)
	at net.jxta.impl.cm.CmCache.add(CmCache.java:295)
	at net.jxta.impl.cm.CmCache.add(CmCache.java:340)
	at java.lang.Thread.run(Thread.java:536)

キャットワークス (http://www.catworks.ne.jp/shop_index.html)

1年契約　BM-U100

\89,800-

6ヶ月契約 BM-U100-6M

\52,800-

sofmap で検索 (http://www.sofmap.com/shop/product/kensaku_kekka.asp?KWD_GR_CD=&KWD_L=BM-U100-6M&GO_L.x=25&GO_L.y=7)

▼今日の NetStumbler:

▼IP 取得は?:

CISCO のインターネットワーキング用語・略語集 (http://www.cisco.com/japanese/warp/public/3/jp/service/info/tips/terms/J04.html)

VC あるいは VP の始点または終点に配置されたデバイス。

▼SAP サービスアクセスポイント:

▼データリンクレイヤで提供されるサービス:

データリンクレイヤによって提供されるサービスは、
データリンクレイヤと物理レイヤによって提供される
サービスと機能の組み合わせとなります。

▼データリンクコネクション:

        -----------     ----------
layer2 |  entity   |   |  entity  |
       |-----|-----|   |-----|----|
layer1 |      ---------------     |
       |  entity   |   |  entity  |
        -----------     ----------

        -----------     ----------
layer3 |  entity   |   |  entity  |
       |-----|-----|   |-----|----|
layer2 |      ---------------     |
layer1 |  entity   |   |  entity  |
        -----------     ----------

        -----------     ----------
layer3 |  entity   |   |  entity  |
layer2 |      ---------------     |
layer1 |           |   |          |
        -----------     ----------

▼プリミティブ:

▼データユニット:

        -----------     ----------
layer3 |  entity   |   |  entity  |
       |-----|-----|   |-----|----|
layer2 |      -----(PDU)-----     |
layer1 |  entity   |   |  entity  |
        -----------     ----------

        -----------     ----------
layer2 |  entity   |   |  entity  |
       |-----|-----|   |-----|----|
layer1 |      -----(SDU)-----     |
       |  entity   |   |  entity  |
        -----------     ----------

▼フレームフォーマット:

 --------
|01111110|1  開始フラグ
|--------|
|addrhigh|2  アドレス (SAPI)
|addr low|3           (TEI)
|--------|
| control|4  制御
|--------|
|   FCS  |N-2 フレームチェックシーケンス
|--------|
|01111110|N  終了フラグ
 -------- 

 --------
|01111110|1  開始フラグ
|--------|
|addrhigh|2  アドレス (SAPI)
|addr low|3           (TEI)
|--------|
| control|4  制御
|--------|
|  info  |6
|--------|
|   FCS  |N-2 フレームチェックシーケンス
|--------|
|01111110|N  終了フラグ
 -------- 

▼開始フラグと終了フラグ:

    ...
|--------|
|   FCS  |  フレームチェックシーケンス
|--------|                                前のフレーム
|01111110|1  終了、兼、開始フラグ     ---
|--------|                                次のフレーム
|addrhigh|2  アドレス (上位オクテット)
|addr low|3           (下位上位オクテット)
|--------|
   ...

アドレスフィールドに先行するフラグを開始フラグとして、
FCS (フレームチェックシーケンス) に続くフラグを終了フラグとする。

▼アドレス:

  8 7 6 5 4 3   2  1
 --------------------
|    SAPI     |C/R|EA|   EA=0  固定
|--------------------|
|       TEI       |EA|   EA=1 固定
 --------------------
EA = アドレスフィールド拡張ビット
C/R = コマンド/レスポンスフィールドビット
SAPI = サービスアクセスポイント識別ビット
TEI = 端末終端点識別子

▼アドレス SAPI:

▼アドレス TEI:

 〜の設定のサマリが欲しいのデスが…
 この設定を担当してる◯◯君は休んでるみたいなので、
 よや君よろしく。

よ・ろ・し・く・ (はぁと

▼上司に呼ばれる:

・10.0.10.10-10.0.10.200.trace
	dame.yoya (10.0.10.10)
	utsu.yoya (10.0.10.111)
・10.0.200.10-10.0.200.200.trace
	mona.aa (10.0.200.10)
	si-.aa  (10.0.200.200)
・10.0.10.10-10.0.200.200.trace
	dame.yoya (10.0.10.10)
	gate.yoya (10.0.10.1) # router
	gate.aa 10.0.200.1)   # router
	si-.aa (10.0.200.200)

|-gate.yoya (10.0.10.1)
|     |-dame.yoya (10.0.10.1)
|     |-utsu.yoya (10.0.10.111)
|
|-gate.aa (10.0.200.1)
|     |-mona.aa (10.0.200.10)
|     |-si-.aa (10.0.200.200)

|-clover.yoya------
|     |     |     |-hoge
|     |     |-foo
|     |-baa
|-quu

▼あ‥ (:

a) 10.0.10.10 - 10.0.10.111
b) 10.0.200.10 - 10.0.200.200
c) 10.0.10.10 - 10.0.10.1 - 10.0.200.1 - 10.0.200.200

@common_ip_list = (10.0.10.10, 10.0.200.200);
@common_ip_10.0.10.10 = (a, c)
@common_ip_10.0.200.200 = (b, c);

▼鯖:

なんか 鯖が重い．
SSH で日記を書くのが辛い‥

▼爪:

夜爪を切ると親の死に目に会えないとか．

(医者) (歯をこづいて)
 　　  痛みます？
(よや) はい。少し…
(医者) そうですか〜
 　　  (注射を打つ)
(医者) それでは抜きますね〜
(よや) お願いします。
(医者) (何かで歯を引っかけて、グリグリ引っ張る)
(よや) (あれ? 麻酔って少し待たないと効かないんじゃ…)

(よや) 前回抜いた時はほとんど痛みが無かったのデスが、
 　　  今回は普通に痛かったっス。
(医者) 麻酔の効きが悪いんデスね
(よや) (T_T

▼痛いよ〜:

▼ 7月26日は「システム管理者感謝デー」:

あ。昨日、感謝デーだったのデスか…

7/26に東京にいるなら yoya様にケーキでもおごるんですが :p (http://www.awm.jp/~miyato/NIkki/?2002072&to=200207242#200207242)

あー。ケーキおごってくれるなら、別に東京でなくてもそっちに行きますってば。
なんて、東京で待ち合わせしていた H 岡氏を、 仕事を理由にすっぽかした 自分に言えた台詞じゃなさげ…

(M 氏) 
こんな例もあるし  中を覗いて見るしか

(よや) カードでお願いします。
(店員) では、カードをお預かりします
 　　  (しばらく待って)
 　　  ただいま、このカードは使えないのデスが…
(よや) え… う〜ん。限度額か何かでしょうか。
(店員) 相当お使いでないと限度額には達しないと思いますが。
 　　  カード会社に問い合わせをいたしましょうか？
(よや) お願いしマス
(店員) では、ご自宅の電話番号の方を‥
(よや) xx-xxxx-xxxx デス。
(店員) お待ち下さい。
 　　  大丈夫でした。それではお支払いの方を‥
(よや) えと。ちょっと待って下さい。
 　　  カードがロックされていた理由って何でしょう。
(店員) すみません。分かりません。
(よや) (心の中で… ( ゜Д゜) ハァ？
(別の店員) えと… 恐らく、ノート PC の値段が高額な為、
 　　　　  換金対策でロックされたんだと思います。
 　　　　  実は、よくある事でして‥

こんな事を私供が説明するのは、よく無いのですが、
レジでお買い物をして、そのまま反対側の中古販売の窓口で売って、
お金に換えようとする人がいますので、それの対策で…

知り合いに連行されて、今
大山 に監禁されてます。くすん。(ρ_；
途中で、何度もSOSの信号を送る為に、B-Mobile の通信を開こうと
しているのですが、お友達のジャミングか何かで邪魔されている(嘘)
みたい。誰か助けてください‥

▼頂上:

▼下山:

▼気づいた事:

20:58 *** - ■おしらせ
20:58 *** -   接続の際にクライアントホストがopen proxyしていないかを
20:58 *** -   調べるようになりました。
20:58 *** -   また、セキュリティ上問題のあるISPからの接続は制限されます。

▼C 氏の質問:

接続すると3128だの10080だのがスキャンされまくりってのは、関係あるのでしょうか…

• 整合性の取れていないデータに対する処理
• プロセスの２重起動
• 障害時の復帰

Perl Signals (http://www.perldoc.com/perl5.6.1/pod/perlipc.html#Signals)

use POSIX qw(:errno_h);

sub is_process_exists($) {
    my $pid = shift;
    unless (kill 0 => $pid) {
        if ($! == ESRCH) {
            warn "errno=ESRCH: deceased or zombied";
            return 0;
        } elsif ($! == EPERM) {
            warn "errno=EPERM: escaped my control (changed uid)";
            return 1;
        }
        warn "I couldn't check on the status of $pid: $!";
        return 1;
    }
    return 1;
}