パスワードを忘れた? アカウント作成

tanigさんのトモダチの日記みんなの日記も見てね。 みんなの日記の更新状況はTwitterの@sradjp_journalsでもチェックできます。

249994 journal

tanigの日記: perlの挙動2 split in void context

日記 by tanig

こっちは解決済みだが、"split;"の挙動が perl5.12. から変わったそうな。

$_ = "A B C";
split;
print @_[1];

が perl5.12.1 では

@_ = split;

とするか print $_[1] とする必要があるそうな。

void context での splitの挙動が変わったのが原因で、perl5120delta には
o "split" now warns when called in void context.
と書いてあるが、相当古いスクリプトでは (use warnings; などしてないので)
perl -d で走るまで問題箇所がわからなかった。

249992 journal

tanigの日記: perlの挙動

日記 by tanig

perl の動作で解釈出来ないものがある。

--test.pl
#!/usr/local/bin/perl --
        eval 'exec /usr/local/bin/perl -S $0 ${1+"$@"}'
                if 0; #$running_under_some_shell
use warnings;
my @s = ("a", "b");
foreach my $a ("0", "1") {
    &do($a, $_) foreach (@s);
}

sub do {
    my $a = shift;
    my $b = shift;
    print "$a, $b\n";
    open(my $r, "<", "test.pl");
    while(<$r>) {
    }
    close($r);
}
__END__

の結果が
0, a
0, b
Use of uninitialized value $b in concatenation (.) or string at ./test.pl line 13.
1,
Use of uninitialized value $b in concatenation (.) or string at ./test.pl line 13.
1,
となる。
while() で $_ に値が読込まれて、do 呼び出し元の @s が書き換えられているようだが、

# 10/10/12 追記
 サンプルコード中の <, > がタグと解釈されていたので、&lt;, &gt; に書き換え

115575 journal

tanigの日記: amazonの消費税計算 3

日記 by tanig

最近 amazon をよく利用する。
amazonの価格表示は税込み価格であるが、注文内容の確認の合計(税別)価格と消費税に分けてあり計算が合わない。
税別価格+消費税=合計価格だが、税別価格×0.05 > 消費税 になっている。
\13,000ちょっとの買い物で\150ほど消費税が少ない計算。
amazonの問合せシステムは分かりづらかったが、問合せを出してみた。

72738 journal

tanigの日記: gTranslation 日本語翻訳動作不良

日記 by tanig

最近 gTranslation が動作しないまま放置してたが、気になって Webで調べても日本語への翻訳が動かないとのレポートのみ。
LiveHTTP headersを使って googleへの問合せを調べたら、日本語指定が ja ではなく jp になっている。
インストールディレクトリで翻訳言語設定をしている部分を探すと chrome/content/googtrans/langConf.js にあった。
jp となってる三箇所を ja に変えればOK
作者のHPみても報告先不明。

455109 journal

tanigの日記: Nokia N810 2

日記 by tanig

UPSが輸入納税申告を代行してくれていた。
配達に来た黒猫が消費税\1000請求するので支払っただけで終わり。
申告控によると関税 \0、消費税 \800、地方消費税 \200

    購入金額の60%が通関金額 レート \95.87 千円単位へ切落とし
    $394.22 x 0.6 = $236.53 -> \22,676 -> \22,000

    消費税の税率4% 百円単位へ切落とし
    \22,000 x 0.04 = \880 -> \800

    地方消費税 25%
    \800 x 0.25 = \200

455196 journal

tanigの日記: Nokia N810

日記 by tanig

色々あってNokia N810 w/ WiMAX を注文。
国内の業者なら\58,000程度だが、この円高の折、多少の冒険を覚悟して米国の通販業者を色々探しまわった。
Web上の評判とか参考に Sparco.com を選択。クレジット払いで注文。
別の業者はPaypalもあったからこの機会にアカウントを作成。VISAのバーチャルカードも作ってみた。とこれは余計。
本体($394.22)+送料($58.65) (内域外発送手数料$20) でクレジット会社からの最終請求額\42,998。約\95/$
注文から一週間強で日本の空港まで到着。さてこてから実際に手にするまで何が起こるかワクワクです。

とかしてる間にも、MagicWheelも衝動買い。マイナーな銀行振り込みか代引きのみで、代引きを選択。注文から到着まで3日。

462257 journal

tanigの日記: SVN::Web 2

日記 by tanig

結局 devel/subversion のコンパイルから -g を外した。
check_path 以外にも assert(*path != '/') があるが、仕様的に正しいのか調査中。

SVN::Web の diff の HTMLモードは cvswebよりわかりやすい。
巨大な diff はサイズ制限は、YAMLは初めてでも config.yaml で簡単に変えられた。

462521 journal

tanigの日記: SVN::Web

日記 by tanig

Ports から devel/p5-SVN-Web をインストール。depend ports がやたらと多い。
p5-FastCGI に depend がかかってない。

diff が動作しないので、色々調査:

まず上から index.cgi から順に追っていくが perl -d では blib へ入って行き詰まり。
次に落ち場所から上る方法に切替。

落ち場所はログから devel/subversion の libsvn_ra/ra_loader.c::svn_ra_check_path() の assert(*path != '/'); と判明。
check_path とかの path が絶対パスではなく相対パスをなぜ期待しているか不明、かつ -g でコンパイルしてあるか不明。
assertをコメントアウトすれば SVN::Web からの diff は使える。

呼び元を調べるのに、devel/libexecinfo の backtrace を svn_ra_check_path に仕込んで調べると
devel/p5-subversion の mach/auto/SVN/_Ra/_Ra.so が svn_ra_check_path() を呼び出している。

今日はここまで。

464706 journal

tanigの日記: 国内からのアタックの続き

日記 by tanig

国内からのアタックは数日に一度よりは頻度が低い。
アタック元を調べるとISPなど一般ユーザに割り当てるアドレスの方が多いが、企業・団体などのアドレスもある。
その組織の中の人なのか、サーバを踏み台にされているのか。
さてbanリスト更新のため、2,3日毎にアドレスの国別割り当てで cn,kr,jpの差分を見てるが、日本でもIPv4アドレスが/19とかででどんどん割り当てられている。IPv4アドレス枯渇に近づいていることはわかるが、まだ /8 を複数持ってる組織・会社もあるからね。

466025 journal

tanigの日記: 国内からのアタック

日記 by tanig

外向け公開用のマシンの pf で、アタック元を個別に ban してたが、毎日リスト追加が必要な状況が続いていた。
アタック元はほぼ cn, kr。公開目的からしてこれらの国からのアクセスの必要はない。web で調べるとこれら特定の国を ban する例や、その方法を説明したページも見つかったので、それらを参考に pf.conf を cn, kr からは一切応答せず、ssh は日本ドメインのみ許可に書き直した。
既に2週間ほど運用してるが、pf.log には block out 1026/UDP や ICMP とかが上がっている。sshd.log には日本ドメインからのアタックが数日に1度は来ているがこれらは公開しても構わないのか?

typodupeerror

吾輩はリファレンスである。名前はまだ無い -- perlの中の人

読み込み中...