茂みから石を投げるのは卑劣だけど、チヤホヤされたいし誰の悪意も受けたくないという願望も、掃き溜めと化した今日のインターネットではムシがよすぎるのよ。ああ。
没個性、興味を持たれる機会が少ない、言いたいことも別にない…。そんな人たちに「聞かれたのだから仕方ない」と自分語りをする言い訳を与えてくれるのが「質問」という体裁だったの。あああ。
世紀の大発見をするには誰もがあり得ないと思うことにチャレンジすることが必要だ。でもそれは、若い研究者が長期間、成果を出せなくなる可能性があり、その後の研究者人生を考えればとても危険なこと。ハイリスク・ハイリターン。
ABB 123 あいう ABA 124 えおか ABA 125 かき BBA 130 くけこ ABA 125 かき
% perl -F"\t" -anle '$t=$F[2];if(!$s{$t}){$s{$t}=++$i;print"$i\t$t"}' t1.txt 1 あいう 2 えおか 3 かき 4 くけこ
P かっこいい 人 登場 N ひどい 食事 幻滅 - こんにちは よろしく P 素敵 かっこいい 自転車 N まったく ゆるせない ひどい
% perl -F"\t" -anle 'for(@F[1..$#F]){if(!$s{$_}){$s{$_}=++$i;print"$i\t$_"}}' t2.txt 1 かっこいい 2 人 3 登場 4 ひどい 5 食事 6 幻滅 7 こんにちは 8 よろしく 9 素敵 10 自転車 11 まったく 12 ゆるせない
% perl -F"\t" -anle 'for(@F[1..$#F]){$s{$_}=++$i if!$s{$_};$n{$_}++}; END{for(keys%s){print"$s{$_}\t$_\t$n{$_}"}}' t2.txt | sort -n 1 かっこいい 2 2 人 1 3 登場 1 4 ひどい 2 5 食事 1 6 幻滅 1 7 こんにちは 1 8 よろしく 1 9 素敵 1 10 自転車 1 11 まったく 1 12 ゆるせない 1
1 かっこいい 2 人 3 登場 4 ひどい 5 食事 6 幻滅 7 こんにちは 8 よろしく 9 素敵 10 自転車 11 まったく 12 ゆるせない
1 P 4 N 6 N 8 P 9 P 12 N
% perl -F"\t" -anle 'BEGIN{open(h,shift);while(<h>){chomp;@x=split; $d[$x[0]]=$x[1]}} print"$d[$F[0]]\t$_"if$d[$F[0]]' t2.dic b.txt かっこいい 1 P ひどい 4 N 幻滅 6 N よろしく 8 P 素敵 9 P ゆるせない 12 N