プログラム言語 Perl についての覚え書き

■ 変数についての覚書

Perl での変数の取り扱いについて。

2 つの変数の入れ替え

($one, $two) = ($two, $one);

ハッシュを値でソートする

%Hash = (a => 200, b => 1200, c => 300);

@Keys = sort { $Hash{$a} <=> $Hash{$b} } keys %Hash;

foreach my $key (@Keys){
    print "$key , $Hash{$key} \n";
}

ハッシュの要素数取得

$num = keys %Hash;

Posted by Kyosuke Takayama at 2003-05-20 (Tue) 12:12