2005-01

#!/usr/bin/env perl

use strict;
use Time::Local;

my $fname = shift;

open(F, $fname) || die "file open error $fname : $!";
binmode(F);
my %day;
while (<F>) {
 if (/^(\d{4}-\d\d-\d\d)/) {
 eval { $day{get_day_of_week($1)}++; };
 }
}
close F;

my @week = qw(Sun Mon Tue Wed Thu Fri Sat);
foreach (@week) {
 printf "%s (%d) %s\n", $_, $day{$_}, '*' x $day{$_};
}

sub get_day_of_week {
 my ($d, $m, $y) = @_;
 ($y, $m, $d) = split("-", $d) unless (defined $m);
 my $WEEKDAY = (localtime timelocal(0, 0, 0, $d, $m - 1, $y))[6];
 return qw(Sun Mon Tue Wed Thu Fri Sat)[$WEEKDAY];
}

- 結果: 予想通り

Sun (48) ************************************************
Mon (72) ************************************************************************
Tue (64) ****************************************************************
Wed (69) *********************************************************************
Thu (68) ********************************************************************
Fri (60) ************************************************************
Sat (30) ******************************

ネットワークセキュリティ HACKS ― プロが使うテクニック & ツール 100 選

2005-01-24-3: [Books][Security][Network]

  http://www.amazon.co.jp/o/ASIN/4873112060/todaysnonsenc-22/ref=nosim/
  Andrew Lockhart (著), 渡辺勝弘 (翻訳), 鶴岡信彦 (翻訳), 黒川原佳 (翻訳), 新井貴之, 松田綾爾, 鈴木和也
  オライリー・ジャパン
  ISBN: 4873112060
  2005/01
  3,360 円

- ネットワークセキュリティHacks
  http://www.oreilly.co.jp/books/4873112060/

SSH でポートフォワード

2005-01-24-2: [Security]

SSH で多段接続？ ([2004-12-19-1]) の続き．よく考えたらポートフォワードでできた．

- localhost から remotehost1 を経由して remotehost2 に接続

[localhost] -> [remotehost1] -> [remotehost2]

- ポートフォワード

localhost% ssh -l user1 -L 30022:remotehost2:22 remotehost1

- 使い方

localhost% ssh -p 30022 -l user2 -oHostKeyAlias=remotehost2 localhost
localhost% scp -P 30022 localhost:file -oHostKeyAlias=remotehost2:/home/user2
localhost% sftp -oPort=30022 -oHostKeyAlias=remotehost2 user2@localhost

- でもこれじゃ面倒
o /etc/hosts (localhost)

127.0.0.1 localhost remotehost2

o $HOME/.ssh/config (localhost): OpenSSH の場合

Host *
  ForwardAgent yes

Host remotehost2
  Port 30022
  User user2
  HostKeyAlias remotehost2

o $HOME/.ssh2/ssh2_config (localhost): SSH Communications Security の SSH の場合

remotehost2:
Port 30022
User user2

以上を設定して楽をする．

これで，通常どおりいける．

localhost% ssh remotehost2
localhost% scp file remotehost2:/home/user2

- 参考
o ssh ポート転送(ポートフォワード)
http://www2.i-e-c.co.jp/ssh16.html

地球の長い午後

2005-01-24-1: [Books]

  http://www.amazon.co.jp/o/ASIN/4150102244/todaysnonsenc-22/ref=nosim/
  ブライアン W.オールディス (著), 伊藤典夫 (翻訳)
  早川書房
  ISBN: 4150102244
  1977/01
  672 円

SQLite の調査

2005-01-20-2: [SQLite]

- 各種ライブラリとか
o PHP Windows 版の拡張ライブラリ最新版．php_sqlite.dll
 http://snaps.php.net/win32/PECL_STABLE/
o SQLite 有効活用計画 (UTF8 <-> SJIS のラッパー)
 http://wiki.manoeuvre.net:8080/?SQLite%CD%AD%B8%FA%B3%E8%CD%D1%B7%D7%B2%E8
o Delphi SQLite Components
 http://www.aducom.com/sqlite/
o SQLite Java Wrapper/JDBC Driver
 http://www.ch-werner.de/javasqlite/

- フロントエンドっぽいもの
o SQLite Database Browser
 http://sqlitebrowser.sourceforge.net/
o SQLite Control Center
 http://bobmanc.home.comcast.net/sqlitecc.html
o SQLite Control Center 日本語版
 http://www.takke.jp/prog_other.html#sqlitecc
 SQLite3 も扱える．
 日本語が通る．

- 資料とか
o Date And Time Functions
 http://www.sqlite.org/cvstrac/wiki?p=DateAndTimeFunctions
o SQLite Optimization FAQ
 http://web.utk.edu/~jplyon/sqlite/SQLite_optimization_FAQ.html

- 移行に関するもの
o MySQL 2 SQLite
 http://perlmonks.org/?node_id=150476
o Version 2.x から Version 3.x に移行

sqlite OLD.DB .dump | sqlite3 NEW.DB

  SQLite Version 3 Overview
  http://www.sqlite.org/version3.html

- メモ
o トランザクション
  SQLite は INSERT の前後で BEGIN/COMMIT されるので，大量のデータを挿入するときは
  明示的に，トランザクションを開始する必要がある．

BEGIN;
INSERT INTO table VALUES (...);
INSERT INTO table VALUES (...);
:
INSERT INTO table VALUES (...);
COMMIT;

o PHP の拡張モジュール，Perl の DBD::SQLite で使用するライブラリのバージョン．
PHP 拡張モジュール: 2.8.14

$sql = "SELECT sqlite_version()";
$con = sqlite_open('test.db');
$result = sqlite_query($con, $sql);
echo sqlite_fetch_single($result), "\n";

Perl の DBD::SQLite: 3.0.8

use DBI;

my $sql = "SELECT sqlite_version()";
my $dbh = DBI->connect("dbi:SQLite:dbname=test.db", "", "");
my (@row) = $dbh->selectrow_array($sql);
print $row[0], "\n";

o データ型
一応あるが，全部文字列として保存されるっぽい．

ドキュメントを読まない輩

2005-01-20-1

http://ore.dyndns.org/web/RTFM.html

- via: cubic9.com
http://cubic9.com/Blog/2005-01-19/#iab730050

Windows 版 dig

2005-01-19-3: [Network]

- dig, a DNS query tool for Windows and replacement for nslookup
http://members.shaw.ca/nicholas.fong/dig/

便利．

SQLite ODBC Driver

2005-01-19-2: [SQLite]

http://www.ch-werner.de/sqliteodbc/

スタイルシートだけで，テーブルに Excel のようなスクロール機構を付加する

2005-01-19-1: [CSS][Code]

http://d.hatena.ne.jp/hoso-kawa/20050115#1105797505

テーブルを囲む div に

overflow: scroll;

  を設定して width，height で大きさを調節するだけ．なるほど．
  ヘッダもつける場合は，JavaScript で．

- via: cubic9.com
  http://cubic9.com/Blog/2005-01-19/#i22d59fb5

エクストリームリーディングのノウハウ

2005-01-18-3

http://blog.picsy.org/archives/000192.html

- via: 読書記録ChangeLog
http://dkiroku.com/2005-01-17.html#2005-01-17-5

ある領域を出したり消したりする JavaScript のコード

2005-01-18-2: [JavaScript]

http://nais.to/~yto/clog/2005-01-18-5.html

「オレオレ証明書」簡単なまとめ

2005-01-18-1: [Security]

- 名付け親
o だから簡単にRoot証明書を入れるなんてもってのほか (Lucky Lovely Laboratory)
http://www.cubed-l.org/?date=20050112#p03
o オレオレ証明書
http://www.cubed-l.org/?date=20050113#p01

信用のあるCA証明書による証明ができないサーバ証明書を受け入れるという行為は
「俺！俺だよ！」と言っている電話を自分の家族だと認識することに等しい。

- 意味

正しく検証できず、受け入れるかどうかを状況でのみ判断しなければならないサーバ証明書のこと

  (結城浩の日記: http://www.hyuki.com/diary/20050115230146)

  ブラウザが「セキュリティの警告」とか「Web サイトが未知の認証局により認証されています」
  とか警告ダイアログを出します．


- 事の発端 (高木浩光＠自宅の日記: http://takagi-hiromitsu.jp/diary/) 2005年01月11日以降を参考
o 広島市曰く「警告は出ますがセキュリティ自体には問題ない」(高木浩光＠自宅の日記)
  http://takagi-hiromitsu.jp/diary/20050111.html#p01
o 高知県情報企画課曰く「とくにおかしいと思わない」(高木浩光＠自宅の日記)
  http://takagi-hiromitsu.jp/diary/20050111.html#p02

- 結論
o 自治体が発注仕様書に書くべき非常に簡単な結論

ブラウザが警告をひとつも出さないこと。

o 簡単な結論 (高木浩光＠自宅の日記)
  http://takagi-hiromitsu.jp/diary/20050111.html#p03

- その他
o オレオレ証明書クイズ (問題編) (結城浩の日記)
  http://www.hyuki.com/diary/20050115230146
o オレオレ証明書クイズ (解答編) (結城浩の日記)
  http://www.hyuki.com/diary/20050117142426
o 各都道府県の状況 (サーバ管理者日誌)
  http://www.nantoka.com/~kei/diary/?200501b&to=200501174#200501174
o 安全な通信を行うための証明書 (サーバ管理者日誌)
  http://www.nantoka.com/~kei/diary/?200501b&to=200501172#200501172
o ルート証明書をインストールしても良い条件 (Lucky Lovely Laboratory)
  http://www.cubed-l.org/?date=20050118#p02
o [memo:8046] 完全匿名モードのSSL/TLSの利用は可能か
  http://www.st.ryukoku.ac.jp/~kjm/security/ml-archive/memo/2005.01/msg00001 ...
o OreSign.jp
  https://www.oresign.jp/

見やすい Whois

2005-01-16-2: [Network]

- Whois Source - Wildcard Domain Search Lookup
http://www.whois.sc/

- via: X *ole.net
http://blog.xole.net/article.php?id=79

買ってはいけない

2005-01-16-1

- 買ってはいけない [ソーテック] - higuchi.com blog
http://www.higuchi.com/?itemid=192

だいぶ酷い話．

「about:blank Search for 型」の対処方法

2005-01-13-1: [Security]

- about:blank の対処法
  http://www.higaitaisaku.com/removeaboutblank.html#searchfor

- Hijack This によるレポート出力と手動でのスパイウェア除去
  http://www.higaitaisaku.com/hijackthis.html

- BHO (Browser Helper Object)
  http://www.atmarkit.co.jp/icd/root/51/48160551.html

出力バッファを gzip 圧縮するための ob_start コールバック関数 ob_gzhandler()

2005-01-12-12: [PHP]

http://www.php.net/ob_gzhandler

- via: X *ole.net
http://blog.xole.net/article.php?id=70

納豆ごはん専門店があった！

2005-01-12-11

http://portal.nifty.com/koneta04/12/27/01/

納豆ごはん大好き！

二進法

2005-01-12-10

A「世の中には 10 種類の人間がいる．二進法が分かる者と分からない者だ．」
B「はぁ？だったら2種類の人しかいないじゃん．ばーか」

- 二進法
http://www.faireal.net/dat/d4/d40525.xml

- QDB: Quote #25464
http://bash.org/?25464

マイナスの掛け算 -1 × -1 はなぜ 1 か

2005-01-12-9

http://sheepman.parfait.ne.jp/wiki/%A5%DE%A5%A4%A5%CA%A5%B9%A4%CE%B3%DD%A4 ...

(-1) x (-1) = (-1) x (-1) + 0
            = (-1) x (-1) + (-1) + 1
            = (-1) x (-1) + 1 x (-1) + 1
            = {(-1) + 1} x (-1) + 1
            = 0 x (-1) + 1
            = 1

- 分数の割り算はなぜひっくり返すか
http://sheepman.parfait.ne.jp/wiki/%CA%AC%BF%F4%A4%CE%B3%E4%A4%EA%BB%BB

フォルダのアイコンを変更する

2005-01-12-8

1. 変更したいフォルダに Desktop.ini を作成し，以下の内容を書く．

[.ShellClassInfo]
IconFile=アイコンファイル (*.ico, *.exe, *.dll など) のパス
IconIndex=0 (アイコンのインデックス)

2. 変更したいフォルダの属性をシステムファイル属性にする

C:\> attrib +s folder

今日のカクテル

2005-01-12-7

http://mycocktail.seesaa.net/

Mac mini

2005-01-12-6

  http://www.apple.com/jp/macmini/
  58,590円から．


  http://www.amazon.co.jp/o/ASIN/B0007DGQKI/todaysnonsenc-22/ref=nosim/
  アップルコンピュータ
  ASIN: B0007DGQKI
  58,590 円

iPod shuffle

2005-01-12-5

  http://www.apple.com/jp/ipodshuffle/
  1G で 16,980円．


  http://www.amazon.co.jp/o/ASIN/B0007DGQIU/todaysnonsenc-22/ref=nosim/
  アップルコンピュータ
  ASIN: B0007DGQIU
  16,980 円

A タグで変数を渡す

2005-01-12-4: [PHP]

- [PHP-users 4917] Re: Aタグで変数を渡す
  http://ns1.php.gr.jp/pipermail/php-users/2002-January/004925.html

- via: memo.xight.org
  http://memo.xight.org/2005-01-07-10.html

  Session 使う方法もあるかな．

出会わない系サイト lonely

2005-01-12-3

http://portal.nifty.com/special04/11/20/

一人 SNS．

ファイルの CRC を取得して重複ファイルを検索・削除 Duplicate File Finder

2005-01-12-2

http://www.forest.impress.co.jp/article/2005/01/11/duplicatefilefinder.htm ...

なかなか高速だし，なかなか使いやすい．ちょっとしたコツがいるかも．

禁煙法の施行で路上にあふれるスモーカーイタリア

2005-01-12-1

  http://www.excite.co.jp/News/odd/00081105399560.html

  うは，ホントに施行された．

- ref.:
  [2004-12-22-1] 「甘い生活」のイメージが台無し？　禁煙法に揺れるイタリア

百年の誤読

2005-01-11-1: [Books]

  http://www.amazon.co.jp/o/ASIN/483560962X/todaysnonsenc-22/ref=nosim/
  岡野宏文 (著), 豊崎由美 (著)
  ぴあ
  ISBN: 483560962X
  2004/10
  1,680 円

封印作品の謎

2005-01-10-4: [Books]

  http://www.amazon.co.jp/o/ASIN/4872338871/todaysnonsenc-22/ref=nosim/
  安藤健二 (著)
  太田出版
  ISBN: 4872338871
  2004/09
  1,554 円

- via: Passion For The Future
  http://www.ringolab.com/note/daiya/archives/002818.html

複数の Perl モジュールを一発でインストール

2005-01-10-3: [Perl][Code]

- bundle を作成して Perl モジュールのインストールを簡単に
http://hori-uchi.com/archives/000254.html

package Bundle::Foo;

$VERSION = '1.00';

1;

__END__

=head1 NAME

Bundle::Foo - foo

=head1 SYNOPSIS

perl -MCPAN -e 'install Bundle::Foo'

=head1 CONTENTS

Foo::bar

Hoge::Hoge

こんな感じでモジュールを作って，

$ perl -MCPAN -e 'install Bundle::Foo'

で，Foo::bar と Hoge::Hoge がインストールされる．こりゃ楽だ．

でこぼこフレンズ

2005-01-10-2

  http://www.amazon.co.jp/o/ASIN/B0002XVSXS/todaysnonsenc-22/ref=nosim/
  ASIN: B0002XVSXS
  3,150 円

モザイク写真作成ツール AndreaMosaic

2005-01-10-1

http://www.andreaplanet.com/andreamosaic/

- via: Going My Way: ほかの写真を使ってモザイク写真を作る方法
http://kengo.preston-net.com/archives/001730.shtml

迷惑メール対策として i モード宛メールにおけるヘッダ情報の提供機能を拡充

2005-01-07-2: [Security]

  http://www.nttdocomo.co.jp/new/contents/05/whatnew0107b.html

  やっと無料で，メールのヘッダを取得できるようになる．
  むしろ今まで，有料だったのが不思議なくらい．
  「サービスイメージ図」を見ると，ヘッダは本文の下部に付加してついてくるらしい．

ヘッダ情報を取得することにより、メール本文に加えて、ヘッダ情報のパケット通信料が発生します。

ということは，例えばよくあるメール．

題名: 今日
本文: 飲まない？

なんてメールを受けとると，

Return-Path: <mailto@example.com>
Received: (qmail 20102 invoked by uid 90); 7 Jan 2005 21:31:03 +0900
Received: from unknown (HELO localhost) (213.201.212.106) by 213.201.212.106 with SMTP; 7 Jan 2005 21:31:03 +0900
Date: Fri, 07 Jan 2005 21:31:03 +0900 (JST)
Message-Id: <20050107.213103.68549016.mailto@example.com>
To: mailto@example.com
Subject: =?ISO-2022-JP?B?GyRCOiNGfBsoQg==?=
From: mailfrom@example.com

  まあ，最低でも大体こんな感じのヘッダがつきますよね．これで約 400 バイト．
  「ご利用料金の目安」を見てみると，これだけで，2 円くらいかかることになるのかな．
  となると，下手すると今までの倍くらい受信料金がかかるようになるのでは．

- ご利用料金の目安
  http://www.nttdocomo.co.jp/p_s/imode/etc/ryoukin/home.html

  そして，これを利用して，大量のヘッダをつけた，それこそ本当に嫌がらせメールが出てくるに違いない．

見ているページのサーバーの所在地をフラッグで教えてくれる flagfox

2005-01-07-1

http://flagfox.mozdev.org/

- via: Going My Way:
http://kengo.preston-net.com/archives/001726.shtml#001726

糸井重里氏インタビュー

2005-01-06-5

http://nb.nikkeibp.co.jp//free/PROJECT/20041222/107069/

- via: 読書記録ChangeLog
http://dkiroku.com/2005-01-06.html#2005-01-06-7

SQLite チュートリアル

2005-01-06-4: [SQLite]

- SQLite SQLリファレンス (翻訳版)
http://www.net-newbie.com/sqlite/lang.html

- sqlite コマンドチュートリアル (翻訳版)
http://www.net-newbie.com/sqlite/sqlite.html

Skype v1.1 リリース

2005-01-06-3: [Skype]

  UI が変更されたとか，50 人でテキストチャットができるようになったとか．

- Skype launches Windows v1.1
  http://www.skype.com/company/news/2005/1dot1launch.html
   Skype

Wiki を利用した Web ページ作成を学習したいときに便利なひとりWiki

2005-01-06-2

http://www.forest.impress.co.jp/article/2005/01/06/hitoriwiki.html

ULTIMATE Perl ― 究極の Perl スクリプトの世界へ

2005-01-06-1: [Books][Perl]

  http://www.amazon.co.jp/o/ASIN/4883374068/todaysnonsenc-22/ref=nosim/
  水野貴明 (著)
  ソシム
  ISBN: 4883374068
  2004/11
  1,575 円

chalow 1.0rc4 に更新

2005-01-05-3

- はまったところ
cl.conf の item のテンプレート ($item_template) に <TMPL_VAR name=cat> を
書かないと，カテゴリ [...] がアイテムヘッダに追加されない．

- 自分用のパッチ

--- chalow-orig 2004-12-24 13:09:50.000000000 +0100
+++ chalow 2005-01-05 21:51:41.070033000 +0100
@@ -302,7 +302,9 @@
my $replace_once = "";

### chalow 普及のため HTML の一番下にリンクを表示する。できれば消さないで。
-my $signature = qq(Powered by
+my $signature = qq(<a href="http://nais.to/~yto/tools/chalow/">
+<img src="./chalow88x31.png" width="83" height="31" alt="Powered by chalow"></a> 
+Powered by
<a href="http://nais.to/~yto/tools/chalow/">chalow</a>);

### コマンドライン引数
@@ -601,7 +603,7 @@
# s/>/>/go; # > が &.. になると、URL とか引用のマッチ狂う
# s/"/"/go; # ";
 ### "<" は置き換える。
- s|<(/?[a-z!]+)|<$1|gio;
+ s|<(/?[a-z\?!]+)|<$1|gio;
# s|<(/?[a-z]+)|<$1|gio; # コメント () をのこしたい場合はこれ
 # カスタマイズのヒント: <s></s> を残す→
 # s|<(/?[a-rt-z]+)|<$1|gi; を残す→
@@ -680,7 +682,7 @@
 my @ents = sort {$b->{eh} cmp $a->{eh}} @{$category_item{$catname}};

 my $n = $cat_page_entry_max;
- my $num_of_old_pages = int(@ents / $n);
+ my $num_of_old_pages = int($#ents / $n);

 my @fnames;
 for (my $i = 0; $i <= $num_of_old_pages; $i++) {
@@ -952,13 +954,13 @@
 my ($end_year) = ($month_list[$#month_list] =~ /^(\d\d\d\d)/);
 my $month_page_list = "";
 for (my $y = $end_year; $y >= $start_year; $y--) { # year loop
- $month_page_list .= "$y : ";
+ $month_page_list .= "'" . substr($y, 2, 2) . ": ";
 for (my $m = 1; $m <= 12; $m++) { # month loop
 my $m0 = sprintf "%02d", $m;
 if (defined $month_page->{"$y-$m0"}) {
- $month_page_list .= "<a href=\"$y-$m0.html\">$m0</a> ";
+ $month_page_list .= "<a href=\"$y-$m0.html\">$m</a> ";
 } else {
- $month_page_list .= "$m0 ";
+ $month_page_list .= "$m ";
 }
 }
 $month_page_list .= " \n";
@@ -1013,7 +1015,7 @@
 $week++ if (($i + 1) % 7 == 0);
 }

- my @wn = ("S", "M", "T", "W", "T", "F", "S");
+ my @wn = ("日", "月", "火", "水", "木", "金", "土");
# my @wn = ("Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat");

 my $rv = << "CAL"
@@ -1171,7 +1173,7 @@

 my $ostr = join("\n", map {s/\'/&\#x27;/g; "document.writeln('".$_."');"}
 @lines);
- output_to_file("$outputdir/cl.js", \$ostr);
+# output_to_file("$outputdir/cl.js", \$ostr);

 $latest_item_list = join("\n", @lines);

@@ -1201,7 +1203,7 @@

 my $ostr = join("\n", map {s/\'/&\#x27;/g; "document.writeln('".$_."');"}
 @lines);
- output_to_file("$outputdir/cl-cat.js", \$ostr);
+# output_to_file("$outputdir/cl-cat.js", \$ostr);

 $category_list = join("\n", @lines);
}
@@ -1354,7 +1356,7 @@
 my ($eh, $ymd) = @_;
 if ($show_day_of_week == 1) { ### 日付の後ろをどうするか?
 # 曜日(Mon, Tue, ...)を追加: "2000-10-19" --> "2000-10-19 Thu"
- $eh .= " ".get_day_of_week($ymd);
+ $eh .= " (".get_day_of_week($ymd).")";
 }
 return qq(<a name="$ymd" href="@{[datestr2url($ymd)]}">$eh</a>);
}

1. 変更したいフォルダに Desktop.ini を作成し，以下の内容を書く．

2. 変更したいフォルダの属性をシステムファイル属性にする

Navigation

Search

Archives

Tags

Recent Entries