[connect24h:9818] Re: 教えて、 Excel と Access の偉い人

[Yuji Tateizumi <tate@xxxxxxxxxxxxxx>]

たていずみです。

ネタに反応してみたくて perl で書いてみました。
でも、スマートじゃない気がします。こんなの見せたら恥ずかしいかな。
perl の偉い人も、もっとスマートな方法を教えて下さい。

#! /bin/perl
while (<>){
     $attcnt{$_}++;
}
foreach $attack ( sort {$attcnt{$b} <=> $attcnt{$a}} keys(%attcnt)){
   printf "%4d %s", $attcnt{$attack}, $attack;
}

--[PR]------------------------------------------------------------------
あなたのウエストにもくびれができる！？★これが噂の中国茶サプリメント★
┌─────────────────────────────────┐
│レースクイーンも愛用！　＜腸内美人エキスがたったの千円で登場＞　  ｜
└─────────────────────────────────┘
リピート率約８割！→ http://ad.freeml.com/cgi-bin/ad.cgi?id=d55LP
------------------------------------------------------------------[PR]--
■GMO INTERNET GROUP■ GMO INTERNET www.gmo.jp