Perl
Win32::GuiTestというモジュールがある。 これのバージョンは現在1.54で、CPANを使ってインストールできる…はずが、テストの部分で止まってしまう。 これは、テストが英語版のCALCを想定して作られているのが原因で、何カ所か書き換えることでテストを通すこ…
ニコニコ動画にExcelで長門有希というのがある。 これは、エクセルのセルに色を付けてドットに見立て、それで絵を表示しようという試みである。 知り合いにこれの仕組みについて聞かれたとき、最初はエクセル画 for ＢＭＰというのを使ってるんじゃないかと…
Explzhというアーカイバがある。 けっこう色々な圧縮方式に対応していて、普通に使ってる分には他には必要ないんじゃないかとも思うんだけど、ちょっと最近困ったことが起きた。 RARという拡張子を持つファイル。もちろんこれも対応形式の一つで、アーカイブ…
BlackJumboDog（以下BJD）上でXMailCFGを動かすためのメモ。 ある日、ふと「自前でメールサーバーを立ててみよう」と思い立って調べてみた。 BJDは前から使っていたが、webサーバーやftpサーバーあたりを必要なときにちょこっと起動して遊んでいただけだった…
question:1134220811 最近あるきっかけからJAVAを覚えてみようじゃないかと思い立った。 しかしぐぐってみてもイマイチこういいサイトが見あたらない。というか、これから始めようとする人が見るにしてはどうにも内容が難しいのばかりでどうしたもんやら。 …
question:1113446139 以前、自分でも同じ疑問に当たり、考えた方法はちょっと違う。まあ回答に出ている方法の方が楽そうだけど…。 まず、cgiを作り、keyword という名前で保存、アップロードする。パーミッション設定や転送モードは普通のcgiと同じ。 そして…
えー、最近この日記がおろそかになっているというか、あまり気合いが入っていないわけですが、その理由の一つとして「ラグナロクに復帰した」というのがあるのです。まあ他にも色々とあるんだけども。で、そっちで遊んでいると当然こっちに割り当てられる時…
またまたアマゾンのアレに関連した話を。 せどりのプログラムを、個人的に使っている分にはよほど無茶な使い方をしない限りは問題とはならないだろうけれど、一般公開していてそれでそこそこのアクセス数があるとやっぱり負荷が問題になってくる。 そこで、…
amazonのアレ、XMLを扱うモジュールを使って書き直してみようかと思ったものの、やはりこんな簡単な処理では本格的なパーサーを使うよりは正規表現を使ってお手軽に済ませてしまった方がよさそう。たとえば use XML::DOM; my $parser = new XML::DOM::Parser…
ここで書いた物をちょっと修正。 どこが変わったかというと、値段順にソートする部分。 my @nlist = map {$_->[0]} sort {$a->[1] <=> $b->[1]} map { [$_, (split ':', $_)[1]] } @list; # シュウォーツ変換 一般的に書くと、 my @nlist = map {$_->[0]} so…
またまたアマゾンネタ。しかもネタそのものは前回と同じ。何が違うのかというと… ここのコメント欄でxmlでデータを受信する方法が書き込まれていたため、それを参考にxmlバージョンにしてみたというわけ。 本当はxmlをパースするモジュールを使いたかったん…
今更あのエントリにトラックバックが飛んでくるとは…ちょっとびっくり。 ともかくこちらから飛んできたんでちょっと見てみたら手直しするところが判明したんでいじってみた。 一つは出品されている本の総数の判定がおかしかったこと。総数の判定を値段が出て…
id:marutahiko氏の質問question:1105319343を見て、なんだか面白そうだったから作ってみた。 画面イメージはこんな感じ。なんとなく嘘っぽく見えてしまうけれど、実際にCGIとして動作し、携帯からも見られるのです。 少し前からamazonからxmlでデータを取得…
それは「太陽誘電を使っている限り海賊版ではありません。あなたは今までに海賊版で太陽誘電が使われているのを見たことがありますか？無いですよね。だから海賊版ではないんです」*1と同レベルの理屈のような気がする…いや、なんでもないです。 さて、何は…
というわけでベンチマークをしてみた。ソースは以下の通り。 use Benchmark; @html = (...); # 配列定義は省略 50個 timethese(100000, {'TEST1' => '&test1;', 'TEST2' => '&test2;', }); exit; sub test1 { $ignore = 0; $ignore = 1 if !$ignore and grep…
うーん…だったらどんな回答なら納得するんだろうか。その模範回答ってのを見せて欲しいな。これは単なる独り言。 今回は短い。非常に短い。なんたって32行目の下に次の行を追加するだけ。 $ignore = 1 if !$ignore and grep !/^(["']).*\1$|^[^"']/,@eles; …
前回「ブラウザはその属性値に > が出てこないことを知っているから、たとえば font size の値で " の対応が合っていなくても途中に > が出てきた時点でそのタグが終わりであると判断できる」という主旨の事を書いたが、どうやらそういうわけでもなかったよ…
http://webmaster.hatena.ne.jp/1123746036 なぜかTBだけを送ることができなかったので新たに作成。もう半年以上経ってるからほとんど忘れてしまってるけど、たぶん動くはず。 内容はこの下の物か、[web]や[perl]カテゴリ、もしくは「Perl覚え書き」で検索す…
さて、今回も例のアレに手を加える。しかもタグにマッチさせる正規表現を自分で作ってしまった。これまで使っていた物は、正しいタグの場合は正常にマッチするが…と思っていたら￥マークの付いた\"や\'は識別できないため、って書こうとしたら、 <a href="#" onclick="alert('abc\"def')">test</a> なんて…
この日の日記でちょこっと書いたけど、また質問しまくってるなあ…。なんか見てるとすごく歯がゆい。「その場所に飛んで行けたら5秒で解決するのに！」と思ってしまう。まあさすがに5秒は言い過ぎだけど。そんなにストレス溜まるのならやめればいいのになあ。…
昨日書くのを休んだ。前回書いた物の解決策が思い浮かばなかったからというのが理由。それなら別の何かを書けばいいのかもしれないけど、何かいい方法がないかと常に気になってしまって集中できないから辞めた。見に来てる人もほとんどいないしまあいっかっ…
ふー。やっと予定通りの動作をするようになってくれた。時間かかったなあ。 さて、前回ブラウザは柔軟な解釈をしてくれるから困ったと書いた。通常HTMLを書くときにはそれでもいいんだけど、こういったプログラムを作るときにはそれが問題になってくることも…
今日もGateKeeperからのアクセスがあった。一体これは何をやってるのか誰か知ってないかなあ…。クッキー食べてるしブラウザからのアクセスみたいだけど、手動なのか何らかの方法を使って自動でアクセスしているのか。動きが不気味。 さて今回は、またしつこ…
また今日もある企業のGateKeeperからのアクセスがあった。普通に「どんなんかな？」って見に来る分には全然かまわないんだけど、なんかそうでもなさそうで気味が悪い。 さて、今回紹介する部分で一応は、たとえばHTMLをファイルから読み込んで許可されたタグ…
今回はタグが渡されると、それを分解して許可されたタグか、許可された属性かをチェックしてタグの場合は< >をそれぞれ< >に置き換え、属性の場合は除去するような関数の紹介。 時間が無くなってしまったからあまりテスト出来なかったけどたぶん大丈夫…
昨日の内容と関連していると思う。たぶん。 まあこれは特にblogに限ったことではなくて掲示板やチャットでも必要なことだけど、書き込み内容や発言内容で一部のHTMLタグを使用可能にしたいときどうすればいいか。 あ…そういえば他のCGIではどういう風に実装…
