Yahoo!検索結果カラー(10色)を使うには:use HTML::Highlight; my $doc = qq{<div><text tag="value">天気予報</text> 今日はいい天気でしょう。晴れでした。六本木ヒルズでランチ。</div>}; my $hl = new HTML::Highlight ( words => [ '六本木', '天気', 'ランチ'], colors => [ 'red', 'green' ], debug => 0 ); my $hldoc = $hl->highlight($doc); print $hldoc;
use HTML::Highlight; my $doc = qq{ABCDEFGHIJKLMNOPQRSTUVWXYZ}; my $hl = new HTML::Highlight ( words => ['A','B','C','D','E','F','G','H','I','J','K','L'], colors => ["#ffff66", "#A0ffff", "#99ff99", "#ff9999", "#ff66ff", "#880000", "#00aa00", "#886800", "#004699", "#990099"], ); print $hl->highlight($doc);
デフォルトがYahoo!検索結果カラーってことくらいしか利点がないけどな。use HTML::ColorKeywords; { my $c = HTML::ColorKeywords->new(keys => ['abc','a','b']); my $s = qq(_<a href="/">ac</a>_bc_<b>abc</b>_); $c->do(string => \$s); print "$s\n"; } { my $c = HTML::ColorKeywords->new(); my $s = "acebecddcbcaed"; my @k = ('ac', 'bc'); $c->do(keys => \@k, string => \$s); print "$s\n"; } { my $c = HTML::ColorKeywords->new(colors => ['red', 'blue']); my $s = "edhjbicopan"; $c->do(keys => ['a','b','c'], string => \$s); print "$s\n"; }
彼らは、損益にはまるで貢献しない非生産的で高学歴な人たちをたくさん
抱えておく余裕のある、非常に大きな会社で働いているのが普通だ。
しばしばPhD(博士号)を持っており、大企業で働いているが、彼らの言(2)物事を成し遂げるものの頭は良くない人々:
うことなんてまったく実用的ではないため誰も聞いてない。彼らは予定ど
おりリリースすることよりも、何かアカデミックな問題についてあれこれ
と考える。[...] たとえば、「スプレッドシートは実際のところプログラ
ミング言語の特殊なケースにすぎない」というようなことを言い[...]
考えもなしにバカげたことをやり、誰かがその後始末をするハメになる。
彼らは貢献できないばかりか優れた人々の時間さえ奪ってしまうので、
会社にとってはお荷物となる。彼らはサブルーチンを書かずにコードの
大きな塊をコピーしてまわる。それは頭のいいやり方じゃないにしても、
とりあえずは仕事が成し遂げられるからだ。
かつてロード・パーマストンは言った。
「シュレースウィヒ-ホルシュタイン問題はとても込み入っていて、
ヨーロッパでそれを理解できた人間は3人しかいない。
1人は亡くなられたプリンス・アルバートだ。
もう1人はドイツ人の教授で、発狂してしまった。
私が3人目なのだが、もうすっかり忘れてしまった」。
あなたが日常使うことの90%は1週間で学習できるが、残りの10%を知るたそういえば、あるプログラミング言語の本をちょっと読んで何か作れた、
めには、2、3年かかるかもしれないということだ。
いつもは知的だと思える人が、ブログの中で「Microsoftはまともなこの本が参考になるかと:「闘うプログラマー」[2005-11-20-1]
オペレーティングシステムが作れない」みたいな愚かなことを書いている
のは、率直に言ってバカにしか見えない。何百万行のコードと何百もの大
きな機能領域を持ち、何千ものプログラマが10年、20年とかけて作り上げ、
1人の人間にはその大きな部分を理解し始めることすらできないようなも
のを要約しようとしているのを想像してみるといい。
それがビジネスで核となる機能なら──何が何でも自分でやることだ。ref. アンチ根性と車輪の再発明[2005-08-22-3]