Pyon's Diary
![[Google に登録]](http://buttons.googlesyndication.com/fusion/add.gif "[Google に登録]"){kind=small}
2002-08-21 舊 平成拾肆年文月拾參日 (晴) [更]
![[節]](/image/flag_yellow.png "[節]")
tDiary と mod_rewrite とを組み合はせる。(其乃貳)
一寸修正。前囘之設定 だと、
http://〜/~pyon/diary/2002/08/01/02/2002/07
みたいな URL でも受付けて仕舞ひ、ロボット{{fn "Openfind や Steeler"}}が其之變な URL で大量*1に要求を投げて来るので其れを除ける爲に設定を下の感じに變更する。
<IfModule mod_rewrite.c>
RewriteEngine on
RewriteBase /~pyon/diary
RewriteRule ^([0-9]+)/([0-9]+)/([0-9]+)/(plugin)/([A-Za-z0-9_\.-]+\.rb)$ ./$4/$5
RewriteRule ^([0-9]+)/([0-9]+)/([0-9]+)/(skel)/([A-Za-z0-9_\.-]+\.rhtml|[A-Za-z0-9_\.-]+\.rconf)$ ./$4/$5
RewriteRule ^([0-9]+)/([0-9]+)/([0-9]+)/(theme)/([A-Za-z0-9_\.-]+\.css|[A-Za-z0-9_\.-]+\.gif|[A-Za-z0-9_\.-]+\.jpe?g|[A-Za-z0-9_\.-]+\.png)$ ./$4/$5
RewriteRule ^([0-9]+)/([0-9]+)/([0-9]+)/?$ ./index.rb?date=$1$2$3
RewriteRule ^([0-9]+)/([0-9]+)/(plugin)/([A-Za-z0-9_\.-]+\.rb)$ ./$4/$5
RewriteRule ^([0-9]+)/([0-9]+)/(skel)/([A-Za-z0-9_\.-]+\.rhtml|[A-Za-z0-9_\.-]+\.rconf)$ ./$4/$5
RewriteRule ^([0-9]+)/([0-9]+)/(theme)/([A-Za-z0-9_\.-]+\.css|[A-Za-z0-9_\.-]+\.gif|[A-Za-z0-9_\.-]+\.jpe?g|[A-Za-z0-9_\.-]+\.png)$ ./$4/$5
RewriteRule ^([0-9]+)/([0-9]+)/?$ ./index.rb?date=$1$2
</IfModule>
日付の下のディレクトリは plugin, skel, theme の決打ちにして、又行末マッチ '$' もキチンと指定する樣に變更して、變な URL の要求を蹴る樣にした。
*1 ウチのウェブサーバは非力なので、一般的には少量でも息が上がつて仕舞ふのです。
vfat 上の日本語之ファイル名を表示出來る樣にする。
搭載する際に以下のオプションを指定する。
% /bin/mount -t vfat -o codepage=932,iocharset=euc-jp /dev/hda1 /mnt/dos
若しくは、/etc/fstab に以下の記述を追加する。
/dev/hda1 /mnt/dos vfat codepage=932,iocharset=euc-jp 0 0
Vi (Vim)使ひ。(副題: マーク)
(今日のなんでやねん經由) 曰く
古よりviでset numberしてはダメだと決まっているのです。
[今日のなんでやねんより引用]
つて何でだらうと思つたけど、此處を觀て理由が判りました。成程。
此の詰めviのページ。vi道は奥が深いなあ。
追記: マーク。(2007/09/18)
茲數年 GNU Emacsを離れて公私共にVim秤を使つて行きてゐるが、一度もマークを使つた事が無かつた。
此處等で使つてみようと思ひ、マークの使ひ方を檢索した。
二番目の方が表に成つてゐて判り易かつた。
- m# -- マーク # を設定。(#: a 〜 z)
- `# -- マーク # にジャンプ。(#: a 〜 z)
- '# -- マーク # の行頭にジャンプ。(#: a 〜 z)
- y`# -- マーク # からカーソル直前の文字迄をヤンク。(#: a 〜 z)
- d`# -- マーク # からカーソル直前の文字迄を削除。(#: a 〜 z)
- :marks -- マーク一覧。
- C-o -- より古いマークへジャンプ。
- C-i -- より新しいマークへジャンプ。
物覺えが惡いので夛分C-oとC-iは使は無いだろうな。
マークの使ひ方は大體判つたので、次はマークを使つた範圍指定の方法を覺えた。
例に據つて檢索すると次の頁が見附かつた。
此に據れば普段行番號、「.」と同じく「'#」「`#」(#: a 〜 z)を使へば良い事が判つた。
此で置換する時にset nuして範圍行を調べ無くても濟む樣になる(かも)。
追記: (2009-06-07)
最近ではすつかり行番號は使はなくなつた。
2004-08-21 舊 平成拾陸年文月陸日 (晴) [更]
ミクシィ (mixi) に誘はれた。
ミクシィ (mixi) は所謂ソーシャル・ネットワークのサイトで友達の輪を擴大再生産して行くもの。
此處に書いてゐる日記と向かふに書く日記とだう色分けしやうか勘案中。
追記: 最近復歸。(2006-08-21)
自分の ID は五桁だつた。
此が今では七桁なのだから凄い成長だ。
ネタなのか？。
某巨大掲示板(２ちゃんねる)の「ニュース速報+」の 「【社会】遅刻生徒、「午前１０時以降登校無用」 大阪の中学校」の 316 は 本当の事なのかな。万引娘の親を呼出して、警察官交へて注意したら、
警官が「親御さんももっときつく言ってくれないと」と言ったら、その馬鹿母、目を吊り上げて「注意したら、あたしが殴られるんですよ!? あたしが怪我したらあなた達が責任とってくれるんですか?」と切れ始めた。警官たちと唖然とする事しばし。
つてネタなのかな。其れとも現實に有つた事なのかな。つて惱む必要は全く無いのだが。
義務教育を受けさせるとは學校に通はせる事？。
日本國憲法の第廿陸条の第壹項は
[第廿陸条第壹項] すべて國民は、法律の定めるところにより、その能力に應じて、ひとしく教育を受ける權利を有する。
[日本國憲法より引用]
と成つてゐて、第貳項は
[第廿陸条第貳項] すべて國民は、法律の定めるところにより、その保護する子女に普通教育を受けさせる義務を負ふ。義務教育は、これを無償とする。
[日本國憲法より引用]
又、Web ふりーすくーる 青い鳥の義務教育とはに據れば
「子供に教育を受けさせる義務」であって「學校に行かせる義務」ではないのです。
[義務教育とはより引用]
と。教育基本法の第肆条第壹項も
[第肆条第壹項](義務教育) 國民は、その保護する子女に、九年の普通教育を受けさせる義務を負う。
[教育基本法より引用]
と成つてゐて、別に無理やり小・中學校に通はせ無くても、普通教育を受けさせれば良いのか、と思つたら落とし穴。學校教育法の第廿貳条第壹項には、
[第廿貳条第壹項] 保護者（子女に対して親權を行ふ者、親權を行ふ者のないときは、未成年後見人をいふ。以下同じ。）は、子女の滿六歳に達した日の翌日以後における最初の學年の初めから、滿十二歳に達した日の屬する學年の終はりまで、これを小學校又は盲學校、聾學校若しくは養護學校の小學部に就學させる義務を負ふ。ただし、子女が、滿十二歳に達した日の屬する學年の終はりまでに小學校又は盲學校、聾學校若しくは養護學校の小學部の課程を修了しないときは、滿十五歳に達した日の屬する學年の終はり（それまでの間において當該課程を修了したときは、その修了した日の屬する學年の終はり）までとする。
[學校教育法 (總務省 法令データ提供システム)より引用]
又、學校教育法の第參拾玖条第壹項も、
[第參拾玖条第壹項] 保護者は、子女が小學校又は盲學校、聾學校若しくは養護學校の小學部の課程を修了した日の翌日以後における最初の學年の初めから、滿十五才に達した日の屬する學年の終はりまで、これを、中學校、中等教育學校の前期課程又は盲學校、聾學校若しくは養護學校の中學部に就學させる義務を負ふ。
[學校教育法 (總務省 法令データ提供システム)より引用]
と成つてゐて、「教育を受けさせる義務」は具體的には小・中學校に通はせる義務の 事みたいだ。變なの。戰前の樣にもつと夛樣性を持たせれば良いのに。
2006-08-21 舊 平成拾捌年文月廿捌日 (月・晴) [更]
早實が優勝。
四對三で早實が夏の大會優勝。asahi.com で決勝戰(再試合)のインターネット中繼を流してゐたので、其れを眺め乍ら仕事。駒苫は惜しかつた。
外注さんと飲み會。
今度新しいコンテンツを開發して貰ふ、外注さんに招待されて飲み會。
うちの會社と付き合ふと碌な事が無いよ、傳へて措いた。
追記: 結局戰爭。(2006-08-21)
結局此乃外注さんとは戰爭に成つて了つた。
どう云ふ風にけりが着くのだろう。
2007-08-21 平成拾玖年文月玖日丁亥 (火・晴) [更]
遣る氣無し。
此處拾日程日記をつける氣が全く起き無かつた。
今も無いのだが、ち○し○がつけた方が良いと云ふので書いてみた。
個人的なメールのチェックも行ふ氣が餘りし無い。
2008-08-21 舊 平成廿年戊子文月廿壹日癸巳 (木・晴) [更]
perl-support.vim (3.8.1) に乘換へた。
今迄文法檢査に
を使ひ、整形には$HOME/.vimrcに
"----------------------------------------------------------------------------- " Perltidy (Perl Hacks #7) " http://perltidy.sourceforge.net/ " map ,pt <ESC>:%! perltidy<CR> map ,ptv <ESC>:%'<, '>! perltidy<CR>
を追加してPerltidyを使つてゐたが、
では其乃兩方がサポートされてゐる他、カーソルの在る單語をperldocで引ける等、機能が滿載なので其方に乘換へる事にした。
今迄使つてゐた機能は、
\rs -- 文法檢査。 \ry -- Perltidy
で出來た。
help perlsupport-mappings
で各種機能のキー・バインドが判る。
今時のPerl (5.8.8)では「use constant」では無くて「use Readonly」らしい。
を讀んでゐて其乃樣に書いて在つたので、檢索してみると時代は「use Readonly」らしい。
を讀んで試してみた。
#!/usr/bin/perl
use strict;
use warnings;
use Carp;
use Data::Dumper;
my $a = "Hello";
print Dumper($a);
Internals::SvREADONLY( $a, 1 );
eval { $a = "World" };
$@ and carp $@;
print Dumper($a);
Internals::SvREADONLY( $a, 0 );
eval { $a = "Japan" };
$@ and carp $@;
print Dumper($a);
實行して見ると以下の樣に成つた。
% perl test.pl $VAR1 = 'Hello'; Modification of a read-only value attempted at test.pl line 12. at test.pl line 13 $VAR1 = 'Hello'; $VAR1 = 'Japan';
慥かに變數が讀出専用に成つてゐた。へぇ〜。
今時のPerl (5.8.8)ではサブルーチン呼出の「&」(アンパサンド)は不要らしい。
perlcritic (1.082)で自分の書いたスクリプトを檢査してみたら、
% perlcritic -2 test.pl (中略) Subroutine called with "&" sigil at line 26, column 36. See page 175 of PBP. (Severity: 2) (以下略)
とか云はれた。自分の記憶が確かならばサブルーチン呼出の場合は寧ろアンパサンドを頭に附けた方が良い、と思つてゐたのだが今時は違ふらしい。
上のメッセージで檢索して見たら、其乃事を解説してゐる頁を見附けた。
此乃頁でサブルーチン呼出にアンパサンドを使ふ樣に成つた歴史的經緯と今となつては何故駄目かが解説されてゐた。
何故Perl (5.x)では良くないかと云ふと
The old style &foo does not support prototypes, but you can still call subroutines that have prototypes with it. The prototype is ignored. That is potentially dangerous, because the sub might count on the prototype doing things for it. Also, it makes the ampersand form disable optimizations like the inlining of constants.
[Subroutines called with the ampersand / Perl 5 Wikiより引用]
と書いて在る樣にアンパサンドを附けて呼出すとプロトタイプ宣言が無視されるとの事。
實際に實驗してみた。
% cat test.pl
#!/usr/bin/perl
use strict;
use warnings;
sub hello($$) {
my (@args) = @_;
print join(':', @args),"\n";
}
&hello('a');
&hello('b', 'c');
&hello('d', 'e', 'f');
hello('g');
hello('h', 'i');
hello('j', 'k', 'l');
% perl test.pl
Not enough arguments for main::hello at test.pl line 14, near "'g')"
Too many arguments for main::hello at test.pl line 16, near "'l')"
Execution of test.pl aborted due to compilation errors.
と成つて慥かにアンパサンドを附けるとプロトタイプ宣言が無視された。アンパサンドを附けずにサブルーチンを呼出すと、引數竝びがプロトタイプ宣言を合はなければコンパイル・エラーにして呉れるが、アンパサンドを附けて呼出すとエラーに成らなかつた。
此は自分が意圖しない處理を行ふ可能性が在ると云ふ事だから、此は良くないかも。
亦括弧が無い場合は、
% cat test1.pl
#!/usr/bin/perl
use strict;
use warnings;
sub hello($$) {
my (@args) = @_;
print join(':', @args),"\n";
}
&hello 'a';
&hello 'b', 'c';
&hello 'd', 'e', 'f';
hello 'g';
hello 'h', 'i';
hello 'j', 'k', 'l';
% perl test1.pl
String found where operator expected at test1.pl line 10, near "&hello 'a'"
(Missing operator before 'a'?)
String found where operator expected at test1.pl line 11, near "&hello 'b'"
(Missing operator before 'b'?)
String found where operator expected at test1.pl line 12, near "&hello 'd'"
(Missing operator before 'd'?)
syntax error at test1.pl line 10, near "&hello 'a'"
syntax error at test1.pl line 11, near "&hello 'b'"
syntax error at test1.pl line 12, near "&hello 'd'"
Not enough arguments for main::hello at test1.pl line 14, near "'g';"
Too many arguments for main::hello at test1.pl line 16, near "'l';"
Execution of test1.pl aborted due to compilation errors.
アンパサンドを附けて呼出すと、引數竝びがプロトタイプ宣言と合つてゐても括弧が無い場合はコンパイル・エラーに成つた。
知らなかつた。以後、一部の例外を除いてアンパサンドを附けてサブルーチンを呼出すのは止めにする。
此乃日記を今の職場の人に見られたら、莫迦にされて相手にされなくなる事受合ひだな。
