Beep音がうるさいので止めたいのですが、止める方法がわかりません。どのようにしたらよいのでしょうか。
Software Factoryという架空の法人サイトで見つけた。すばらしい情報。
最近、ヘッドフォンをつける時間が増えた。Lost In Translationのサントラとかで気持ちよくコードを書いていると、操作ミスしてBeep!!。心臓がとまりそうになる。そこで「Beep音を無効にする」。すばらしい。Kevin Shields の声が気持ちよい。
ちなみに、最近聞いている曲はlast.fmにて
あれから10年。
深夜作業明けの午前。蹴球熱中症のための新聞エルゴラッソをマクドナルドで読んでいた。その裏表紙に「”奇跡”から10年後のミッション」というコラムがあった。読んだ。泣いた。馬鹿みたい、たかがサッカーなのに。
1996年のマイアミの奇跡から10年。10年前というと大学でノホホンとサッカーをやっていた時期。Jリーグでは海外有名選手の活躍に加えて高校選手権で活躍した若手がJリーグのトップチームで活躍し始めた時期。当時のオリンピックチームはそんな若手の中でもトップクラスの前園をキャプテンとしたチームだった。
ブラジル戦ではGK川口が最高のプレー。ベベトの飛び出し、ロベルト・カルロスのFKを渾身のセーブ。GKというポジションは時に「はまった」状態になる。ゴールポストすらあやつり、相手チームのシュートをことごとく防いでしまう。この日の川口ははまっていた。そして、19歳の中田はロベルト・カルロスに股抜きを決めていた。
それから10年。
時間の残酷さを感じる。10年でどれだけ強くなったのだろう。悔しい思いがこみ上げる。ジーコがメディアの犠牲というようなことを言ったらしいけど、現代カルチョではそれが現実。だからこそフィジカルスタッフの技術が勝負を決める場合がある。今、日本のフィジカルスタッフは最高に悔しい思いをしていると思う。そして、もちろんいちばん悔しいのは選手。
死刑台に向かうような気持ちだ。死にたくない。死にたくないよ。
来日してる US の TypePad エンジニア Garth と話をしているときにでてきた正規表現の話。
$char =~ m/\p{Han}|\p{Hiragana}|\p{Katakana}/; #NG
$char =~ m/[\p{Han}\p{Hiragana}\p{Katakana}]/; #OK
return if $char =~ m/abc|def|ghi/; #NG
return if ($char =~ m/abc/ or $char =~ m/def/ or $char =~ m/ghi/); #OK
"|"(パイプ)を使った正規表現はめちゃくちゃ遅いから使わないように、ということです。確かにベンチマークを取ると32倍速いです。
#!/usr/local/bin/perl
use strict;
use warnings;
use Benchmark;
my $text = ';lskjdf;klvckxv;zijxcv;oa;vlkaefiuqewizlkvnzlxkcnv'
. '.z,xmc v/z.x,cmv.z,xnvlafda isjdnfl aksjdfauerfaie'
. 'jnlfakjdsn;akj;v akjdfvoaijdhfvoiaheriufahpsdiufhaeuhr'
. ' iuahriufhairuhfapsidfalksjfhaiuphrofiankfjas;dofha[s9'
. 'hfskjdf;ase;f,sedhfaiuwhefs,dnvflk dfis fapoisf fqjr';
my $count = 500_000;
timethese($count, {
'00_pipe' => sub { $text =~ m/abc|def|ghi/ },
'01_nopipe' => sub { $text =~ m/abc/ or $text =~ m/def/ or $text =~ m/ghi/ },
});
__END__
$ perl regex.pl
Benchmark: timing 500000 iterations of 00_pipe, 01_nopipe...
00_pipe: 33 wallclock secs (32.48 usr + 0.01 sys = 32.49 CPU) @ 15389.35/s (n=500000)
01_nopipe: 1 wallclock secs ( 1.73 usr + 0.00 sys = 1.73 CPU) @ 289017.34/s (n=500000)
