って事で連載第1回

BON JOVI の歌詞に含まれる単語の統計をとり、その曲がどのような傾向にあるのかを、歌詞の面から考察してみようと言うコーナー第1回です（第0回＋αみたいなもんです）。仕事の帰りが遅く疲れてる事もあるので、見栄えは決して気にしない事にします（私の場合、見栄えを気にするとサイトの作成に時間がかかる・・・多分）。私が好き勝手に歌詞に出てくる単語の統計を取って、いつの日か考察および解析をしよう（かなり未定）と・・・。統計計算は下記のスクリプトのアルゴリズムに従っています（多分それほど変な計算はしていないと思います）。また、単語数をきちんと計算できるようにこのサイトにおける歌詞の定義をしてみました。

定義
・歌詞は単語を構成しない文字を一区切りとして分割する。
・歌詞カードの構成に基づく（歌詞カードに基づかないと、フェイドアウト時の定義が非常に厄介になるため）。JONが（またはRichieが、またはDavidが、またはTicoが、またはHughが発声した）単語の並び（歌詞全ての出力）の統計を取る。


# スクリプトはここから------------------------------------------

#!/usr/pw/perl/bin/perl
###############
#
#Bon_lang.pl
#(Trial version2)
#Created by Rusky
#2003/01/14
#
###############


($file) = @ARGV;

open FH, "$file";

while(<FH>){
$_ =~ s/\W/ /gi;
@lang_0 = split(/\s+/, $_);
if ($lang_0[0] eq ''){shift(@lang_0);}
push @tags, @lang_0;
}

close FH;

@tags = map { uc } @tags;

$sum = @tags;

map { $HASH{$_}++ } @tags;

for(sort keys %HASH){
push @tags2, "$HASH{$_} $_";
}

@sortdata = reverse sort { (split(/\s/,$a))[0] <=> (split(/\s/,$b))[0] } @tags2;

$num = @sortdata -1;

print STDOUT "<TABLE border=2>\n";
print STDOUT "<TR><TD>Ranking#</TD><TD>Word#</TD><TD>Number#</TD><TD>Calucuration%</TD></TR>", "\
n";
for ($i = 0; $i <= $num; $i++) {

print STDOUT "<TR><TD>",$i + 1 ,"</TD><TD>", (split(/\s/,$sortdata[$i]))[1],"</TD><TD>",(split(/\
s/,$sortdata[$i]))[0],"</TD><TD>", (split(/\s/,$sortdata[$i]))[0] / $sum * 100,"</TD></TR>", "\n";
}

print STDOUT "</TABLE>\n";


print STDOUT "

<BR><BR>
<CENTER>
<TABLE BGCOLOR=#3300ff border=0 cellPadding=0 cellSpacing=0 width=92%>
<TR>
<TD>
<TABLE border=0 cellPadding=10 cellSpacing=4 width=100%>
<TR>
<TD bgcolor=#ffffff>
<DIV ALIGN=RIGHT>
<FONT size=3>
<A href=./>Back to home.....</A>
</FONT>
</DIV>
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
<BR>
</CENTER>
\n";
# スクリプトはここまで------------------------------------------

表２：Undivided の歌詞の統計一覧

表３：Everyday の歌詞の統計一覧

表４：The distance の歌詞の統計一覧

続きはまた今度・・・。