2009年6月アーカイブ

http://floralcompany.jp/archives/2009/06/twitterfollower.html のツールですが、ようやくテストできました。
んで、やはりというかなんというか、実際にblockするとこがバグってましたので修正して上げ直しておきました。

本体 と ソース です。

ネタ元 → http://twitter.com/uten00/status/2177684203

まぁ、確かに最近のTwitterはSpamFollowerがわんさか来るようになってて、もちろん運営の方々も何らかの対処をやってるものだとは思うのですが、あまりにもしつこい＆そこそこ量があるので、このようなツールに要望が出てくるのも致し方なしなのかな... (件の方がこういう形のツールを望んでいたのかどうかは不明ですが

HASHのサイズを効率よく取る方法を考えてみた。

scalar %HASH が 要素数/バケツ容量を返すのでごにょごにょしようかと考えてみた

ふと perldoc -q hash してみた。

答えが書いてあった ＼（＾ｏ＾）／

ネタ元 → 東方算程譚 - 以下について教えてあげよう♪

perl でやってみた

use strict;
use warnings;

my $s='Abc012_59F_#012Gh';
substr($s, 0, do{my $i = index($s,'#')+1; $i?($i):()}) =~ tr/A-Za-z0-9/a-zA-Z9876543210/;
print $s;

substr で文字列先頭から"#"までを取り出して tr///で文字変換します。

perlの substr が返す値は左辺値として使えるのです。なんとなんと

perldoc -f map

map には map BLOCK LISTとmap EXPR, LIST の2通りあるが、
第1引数が { で始まる場合、どちらの形式(BLOCK or EXPR (HASHREF) )として解釈するかは、
閉じ}の後ろを見て決定するのではなく、{ の後ろに何が来るかで決まる。らしい

map { $_ } @list; # BLOCK
map { "$_" } @list; # BLOCK
map { $_ => 1 } @list; # BLOCK
map { "$_" => 1 } @list; # EXPR(!) この行はSyntax Error
map { +"$_" => 1 } @list; # BLOCK  
map { func($_) => 1 } @list; # BLOCK
# おまけ
map func, @list; # EXPR
map "<$_>", @list; # EXPR
map "<$_>" => 1, 2 .. 3; # EXPR("<$_>")  1, 2 .. 3 が LIST (結果は ("<1>", "<2>", "<3>") )
map ("<$_>" => 1), 2 .. 3; # EXPR("<$_>") 1 が LIST、 2 .. 3 はmapの適応範囲外 (結果は ("<1>", 2, 3) )
map (("<$_>" => 1), 2 .. 3); # EXPR( ("<$_>"=>1) ) 2 .. 3 が LIST (結果は ("<2>", 1, "<3>", 1) )

久しぶりにテキスト音楽サクラを起動し、曲を書いてみてました。

rp2.mid

なんか思い描いていたのとは結構な感じで離れてしまって涙目。 ｶﾞﾙﾙﾙﾙ

もっとこう「暗い」とか「怖い」とかいうイメージを立たせたかったのですが。