masatoの日記

やっていきます

Perl

Perlで順番を保ったまま要素をユニークにしたい

ダブりのあるたくさんの要素を並び順を保ったままダブりなくしたいというニーズ。 Linuxのsort+uniqコマンドだと並び順が変わってしまう。Perlのハッシュを使ってダブりをなくしても並び順は変わってしまう。ハッシュでは元の並び順が保証されないからだ。 …

Perlスクリプトでふたつのドキュメントから重複行を探し出す

翻訳を必要とするふたつのドキュメントがあったとして、外注に出すべきか自分でやるか判断したいとする。一見するとこのふたつの間には重複した箇所がたくさんあるのだが、どの程度の割合でそうなのかは厳密にはわからない。ほとんど同じ文なら外注に出すの…

Perlの正規表現 s///でeオプションを使ってみる(evalオプション)

$seasonがautumnだと、it is cool!というサブルーチン。 autumn意外だと?になってしまう。 全然s///eする必然性がないけど、うまいサンプルが思いつかなかったので。 my $season = 'autumn'; my $say = temperature($season); print $say; # it is cool! su…

社会人になってからの方が勉強している気がするのは、

むかしちゃんとできてなかったのがくやしいからだという気がする。いや、そのときはせいいっぱいのつもりだったのだろうが、そこになっとくがいかないという物わかりの悪さであがいている。

奈良美智(なら・よしとも)展に行ってきた

顔がでっかくて、大きな目がはなれてついている顔の少女で有名な画家、奈良美智。多くの人がこの絵をどこかで見たことがあるのではないでしょうか。 先日、地下鉄のホームで電車を待っているときのこと、広告物のフレームに入っていた展示会のポスターにあの…

寿司屋で注文を忘れられることがおおい

お寿司が好きです。だけど寿司屋は苦手です。なんでかというと、緊張するからです。職人さんとの距離感がよくわからず、挙動不審な感じになり、注文するのに気疲れしてしまいます。それなのに、寿司は注文して、食べて、注文して、食べて、というふうに繰り…

スーパーでの食料調達における費用対満足度について

毎日スーパーの総菜にお世話になっています。 突然ですが、食事にかける金とそこから得られる満足度は比例しないことに思い当たりました。私の場合、高い食べ物を買うときは、その費用に見合う満足を期待しています。ですが、金を出しただけの満足が得られて…

休日の長い昼寝の後悔

休日を寝て過ごすと、なんだか後悔してしまう。昼食後、部屋にいてその後の予定がないとき、ちょっと休憩するつもりで横になったところ、そのご3時間くらい寝て過ごしてしまうということを、最近またやるようになってきた。その時々で程度は違えども、「やっ…

無限ループを避けてwhileで正規表現マッチを試みる

正規表現にマッチする文字列をすべて取りだそうとしてwhileループを試みたとき、無限ループになってハマった。 while ( $text =~ /$regex{$maker}{item}/sm ) { #無限ループ print "match\n"; $parsed{ $+{pos} }{item_name} = $+{item_name} // ''; } 解決…

Perl入学式大阪 第2回に行ってきた

7月22日(土)、Perl入学式大阪にサポーターとして参加してきました。 ことのいきさつは、YAPC福岡で@xtetsujiさんとid:tomchaさんとお話したときに誘っていただいたことがきっかけでした。(ありがとうございます!) 勉強会にサポーターとして参加させても…