AIブクマカ
みんなPlaggerで作ってたよ(id:jnaoyaとか) - laisoのコメント / はてなブックマーク
んー、わし、AI とちゃいますよ。
そもそも、Plagger で実装されてたんかどうかも完全に忘れたわー。
はてな記法も忘れてもーたわー。
もう今日はそろそろ自転車のギアに油さして、寝るわー。
ほな。
tree again
lib ├── Amon2 │   ├── Config │   │   └── Simple.pm │   ├── Declare.pm │   ├── Plugin │   │   ├── LogDispatch.pm │   │   └── Web │   │   ├── CSRFDefiender.pm │   │   ├── FillInForm.pm │   │   ├── FillInFormLite.pm │   │   ├── HTTPSession.pm │   │   ├── JSON.pm │   │   ├── MobileAgent.pm │   │   ├── MobileCharset.pm │   │   └── NoCache.pm │   ├── Trigger.pm │   ├── Util.pm │   ├── Web │   │   ├── Dispatcher │   │   │   ├── Lite.pm │   │   │   └── RouterSimple.pm │   │   ├── Request.pm │   │   └── Response.pm │   └── Web.pm └── Amon2.pm
tree
- tree v1.5.3 (c) 1996 - 2009 by Steve Baker, Thomas Moore, Francesc Rocher, Kyosuke Tokoro
- iTerm 0.20.20101110
- Google Chrome 7.0.517.44
foo └── bar └── baz └── qux
CTO の座を奪われてもーた…
久々の日記で、毎度ばかばかしいダイヤリーを書かしてもらうわ。
まぁ、いうても、書かずにはおれんかったんやけど。
この日記を見とればわかるとおもうけどな、僕、はてなで学級委員はじめてもう 5 年にもなるんやなぁ。
しみじみ。
あのな、昨日な、id:naoya 君が「もう辞めたー」てゆうてたやんか?
そんでな、僕な、id:jkondo にな、「もう学級委員飽きたわー、僕もそろそろ CTO いうやつやりたいわー!!」てゆうたんよ。
そしらな、id:jkondo は僕に何て言いよったとおもう?
半笑いでな、「そんなもんお前、スタナカが CTO になるに決まっとるやろがワレ、けったいなこと抜かしやがって、しばくぞ」
やて。
おーこわ。
縮みあがったわ。
何が?何がて言われへん。
そんなこと言うたら id:reikon に怒られる。
はてなのCTOを引き継ぎます - stanaka's blog
CTO 就任おめでとう>id:stanaka
まぁ、いうても id:stanaka は東京におるから、京都におる僕なんかとはそうしょっちゅうは顔合わさへんけど、id:stanaka がインフラの神やからな。CTO に決まったー言われても文句は言えへんわ。
まぁ、学級委員飽きたんで、id:naoya を見習って僕もはてな辞めるかなぁ。
そんで GREE に対抗して DeNA でも入ったろかなホンマ。
おっと、アホなこと抜かしとかんと、いつもの自転車に油さす時間や。
ほな。
添削その2
http://kokogiko.net/m/archives/001966.html
別に呼ばれてへんけど、なんかな、これはアカンと思った。
my %analyze = ( 'Pattern 1' => 'Pattern 1', 'Pattern 2' => 'Pattern 2', 'Pattern 3' => 'Pattern 3', .... 'Pattern N' => 'Pattern N', ); my @analyzekey = keys %analyze; my @analyzeval = map { $analyze{$_} } @analyzekey; my $reg = "(?:".join("|",@analyzekey).")"; $reg = qr/$reg/; while (my $log = $logs->readline()) { if (($log->{ua}) && ($log->{ua} =~ /$reg/)) { my ($pattern) = map { $analyzeval[$_-1] } grep { eval "\$$_" } (1..$#analyzeval+1); # Do hoge hoge for $pattern } }
あんな、まずな
my @analyzekey = keys %analyze; my @analyzeval = map { $analyze{$_} } @analyzekey;
ここやねんけどな、values いうの使ったらええと思ってん。
my @analyzeval = values %analyze;
結果一緒やで。
my $reg = "(?:".join("|",@analyzekey).")";
いや、これはちゃうやろ。
あとでパターンマッチするんには後方参照出来るようにしとかなあかんのとちゃう?
(?:Pattern 1|Pattern 3|Pattern N|Pattern 2)
ってなんで。
(?:(Pattern 1)|(Pattern 3)|(Pattern N)|(Pattern 2))
こうしたらなあかんやろ。
my $reg = sprintf('(?:%s)', join('|', map { "($_)" } @analyzekey));
こんなんしといたらええんとちゃうか?
$reg = qr/$reg/;
これな、あとで
$log->{ua} =~ /$reg/
こんなんしてんねやったらやる意味ないんとちゃうん?
my ($pattern) = map { $analyzeval[$_-1] } grep { eval "\$$_" } (1..$#analyzeval+1);
これはさすがのワシもドンびいたわ。
eval() て重いやろ。
重いループの中で eval() は絶対やったらあかんと思うで。
(1..$#analyzeval+1);
scalar() 使うとかな、そもそも scalar コンテキストでやると要素数になるから
(1 .. @analyzeval);
でいけるやろ。
あと、一行で書いてなんか小綺麗にまとまった思ってるかも知れんけどな、
my ($pattern) =
一個しか要素を望んでいないのにな
grep { eval "\$$_" } (1..$#analyzeval+1);
これ、要素数ぶんループして eval() してるんちゃうか?
一個しか値が欲しくないにもかかわらず、$1 が true になっても、N 個ぶんループするやろ。あとずーっと undef っぽい値を eval() すんねん。
「安易なループ」がうんぬん言うとる君がやってたらアカンやろ。
もったいないな。
そもそも eval() はあかん。
せっかくパターンマッチしたら参照配列が出来るんやから、それつこたらええと思うで。
$reg = qr/$reg/; while (my $log = $logs->readline()) { if ($log->{ua}) { my @jitensha = $log->{ua} =~ $reg; next unless @jitensha; my $pattern; for my $i (0 .. $#jitensha) { if (defined $jitensha[$i]) { $pattern = $analyzeval[$i]; last; } } # Do hoge hoge for $pattern } }
こうしといたら、一応全部ループもせんし eval() とかもせんから、きっと速いやろ。
いや、言うてもワシの自転車の速さにはかなわんけどな。
あー、大塚さんみたいに嫁はん欲しいなー。
※このエントリはJ'sHeadPetによる自動投稿です
指定忘れてもた
http://q.hatena.ne.jp/1149501410
これやけど、次の人の指定忘れたわ。
ちうことで、ちょっとむちゃくちゃやけど、ここで指定しといたったらええんとちゃうかな。
ごめんなー。オレオレルールで。
id:jkondo
id:jkondolife
id:jankogai
たのんますわ。
あー、伊藤くんみたいに彼女欲しいなー。
あー、近藤さんみたいに嫁はん欲しいなー。
※このエントリはJ'sHeadPetによる自動投稿です
ゆうべ書いたことについて
なんか僕もロンドンから帰ってきたばっかりで、クタクタになってたから、いらんこと言うてもーてるね。
なんか竹原さんにも怒られてるっぽいし。
はてなが認めてくれません。 - jmalaのはてな日記研究会
ちょっと反省してます。
とりあえず、id:naoya も大変なんやろ。
はてなのおエライさんとしてもそうやし、はてなブックマークの開発者としても、結局 bot が荒らしてしまって、治安が守られなくなるというのは放っておけへんみたいな。
僕もいちおうはてなの学級委員やし、伊藤くんに迷惑かけられへんし、とりあえず bot 問題がひとだんらくつくまで、
とりあえず、こんなんしといたった。
#*/15 * * * * /home/jnaoya/bin/jnaoya.pl > /dev/null 2>&1
id:ossputaut も、自主的にやめたっぽいしな。
誰なんか知らんけど。
ひっさしぶりやなー。ユニックスさわったの。
どや、「せいせいした」っちゅう人もおるやろ。
bot 問題がかたづいたら、また活動させてもらいますわー。
ああ、早よ jnaoya サーバを移転せな。
というか、なんで伊藤くんて、最近はてなダイアリーじゃなくてグループのほう使ってるん?
みんなどっちも見てると思うねんけど。
あー、伊藤くんみたいに彼女欲しいなー。
あー、近藤さんみたいに嫁はん欲しいなー。
※このエントリはJ'sHeadPetによる自動投稿です