前回の「sort」を発展させて、ランキングを作ってみましょう。 my %hash = (A => 2, B => 5, C => 3, D => 5); こんな配列があるとします。これをどういう風にしたいかというと、 １位 A 5点 ２位 B 3点(同位) ２位 C 3点(同位) ４位 D 2点とこんな感じにし…

ハッシュ値を並べ替えます。 検索システムなどの時に使ったりするんですかね？ 昇順と降順は、$aと$bを入れ替えます。文字列を降順にする my @name_list = sort { $b cmp $a } @name; 数値を昇順にする my @num_list = sort { $a $b } @nums; ハッシュのキー…

@fruits('みかん','もも','もも','みかん','みかん');このような配列があります。 この配列で、「みかんが○個」「ももが○個」を調べたいとします。 foreach $name(@fruits) foreachで、配列の中身を一つずつ$nameに格納 { %hash; $hash{$name} => $hash{$nam…

クッキーでは、ブラウザに情報を送ってユーザーを判別することができます。 そのためには、HTTPヘッダを利用します。基本的には、クッキーを送るにはこのように書けばOKです。 print "Content-Type: text/html\n" print "Set-cookie: キー名=値; expires=有…

jcode.pl版 require '../jcode.pl'; &jcode::convert(\$value,'euc'); &jcode::h2z_euc(\$value); Jcode.pm版 use Jcode; &Jcode::convert(\$value,'euc'); require Jcode::H2Z; &Jcode::H2Z::h2z(\$value); モジュールで使うときの記述 Jcode->new($query->…