$_ = int(rand 3) - 1;

subst I: D:\foo\bar\hoge\fuga\piyo D:\foo\bar\hoge\fuga\piyoをI:としてアクセスできるようにする。 追記 [08/03 20:54] 第1引数と第2引数を間違えてたので修正。

たまに外部にバックアップしておかないと、データが飛んだときいろいろ死ねるので*1、たまにエクスポートしたデータを自分のGmailに送信してます。気づいたら1398件もありました。だいぶ増えたなぁ。 *1:一度半分以上のデータが飛んで、復帰が大変でしたorz

デリーでカレー。ブラックカシミール。んー、あんまり辛くない。もっと辛いのが食べたいなぁ。

use Perl6::Say; use URI; say for map { $_->[0] =~ s/^h(?=ttp)//; $_->[0]; } sort { $a->[1] cmp $b->[1] or $a->[0] cmp $b->[0] } map { chomp; [$_, join '.', reverse split /\./, URI->new($_)->host]; } <DATA>; あとでもう少し書き直すけど、とりあえず</data>…

最後のコマ、荒れ果てた野を行くのは澪音と黒銀の毛並みを持つ犬？

じぇいこんの日記のスター押してきた！

いつの間にか20個ぐらいelsifで繋げてるのはアレだなぁ。それこそハッシュでディスパッチテーブル書いたほうがいいなぁ。書き直そう。 追記 んに、普通にハッシュってわけにもいかないなぁ。じゃあ配列で。

明日の実験のレポート少し手をつけておこう。週明けすぐに提出だからあまり時間も取れないし。

君たちプログラマなら自分のコードで語ってよ。デザイナなら自分のデザインで語ってよ。世界を美しく色付けてから死ぬべきかっこいい人間なんだから、頼むからこんなくだらない事にエネルギー使わないでよ。その能力はそんなことに無駄に費やしていいものじ…

「平成十九年新潟県中越沖地震」義援金の受付について - はてな義援金窓口 相変わらず偽善全開でポイント出してきました。自己満足で、崇高な気持ちなんてありません。いくら出したかは内緒♪

短絡回路。ていうかCD-Textなんてみた覚えもあまりないなぁ。

ついカッとなって書いた。書くものは何でもよかった。いまは反省している。 use strict; use warnings; use Data::Visitor::Callback; use Imager; use Win32::Wallpaper; use YAML::Syck; my $cfg = shift or die $!; $cfg = LoadFile $cfg; $cfg->{include…

use strict; use warnings; use DBI; use Encode qw/from_to/; my $dbh = DBI->connect('dbi:SQLite:./hash.db', '', '', {RaiseError => 1}) or die $!; my $sth = $dbh->prepare('SELECT * FROM hash'); $sth->execute; open my $fh, '>', 'dump.txt' or d…

のファイルからごにょごにょするスクリプト。私専用。書き捨てだけど、いちおう残しておきます。エラーチェックとかなにもしてないのは仕様。 use strict; use warnings; opendir my $dh, '.'; my @fp; while (defined($_ = readdir $dh)) { next unless /AL…

(講談社文庫)" title="雷鳴のヴァンパイヤー (講談社文庫)" class="asin"> うく、夏葉さんの解説がよい。

叫ぶだけ叫んでおかないとにゃー。 はて☆すた Perl 積読

とりあえずCSSで不可視にしておきます。 h3 span { display: none; } h3 span.sanchor { display: inline; } h3 spanを表示しないようにするだけだと、エントリタイトルのアンカーまで巻き込むので、そっちはspan.sanchorをインラインにして回避。

どこまで本気なのかつかみにくいなぁ…。あそこまでいくとギャグでやってるのか本気なのか判断しにくい、っていうかどっちでも同じになってるっていうか。現状ではとりあえず判断保留。続きが出たときにまとめて書きます。 ついき どうも全力で本気っぽいなぁ…

id:hyukiの数学ガール*1を読んでたり。倍角公式を導出する話があるのですが、私も同様に3倍角公式の導出をやってみました。 行列の積から 角θの回転はで表される。角θの回転を3度繰り返すのはこの行列を3乗するのに相当する。 角θの回転を3回繰り返すことと…

DBIを使って直でSQLを書いてるから、SQLの書き方がわからないとちょっと面倒。まあ、それくらいはちょっと調べたら大体よさそうなのが見つかるので調べればいいんですが。

前に書いたスクリプトが使っていて不便に思うので、ちょろっと書き直し。 use strict; use warnings; use DBI; use Encode qw/from_to/; my $dbh = DBI->connect('dbi:SQLite:./foo.db', '', '', {RaiseError => 1}) or die $!; my $sth = $dbh->prepare('SE…

下のエントリ書いてるときに、「書影」って名詞がIMEで変換できなくて困ったり。とりあえず辞書登録。ATOKならこんなことで手間がかかったりしないんじゃないかなぁとか思いつつ、入れ替えたりはしないんだけどね。だいぶ辞書登録して鍛えてあるから、私が使…