Perl « プログラムのセカイ

Perlの現在年月日時刻は以下のようにして取得できます。

use strict;
use warnings;
use utf8;
 
# 時刻情報を全部取得して整形
my ($sec,  $min,  $hour, 
	$mday, $mon,  $year, 
	$wday, $yday, $isdst) = localtime();
 
print sprintf("%04d/%02d/%02d %02d:%02d:%02d",
               $year+1900,
               $mon+1,
               $mday,
               $hour,
               $min,
               $sec);

ただ年月日しか必要ない時でも上記のように書いていて、ムダな変数ができちゃうなぁと思っていたのですが、以下のようにすれば良かったのですね。

use strict;
use warnings;
use utf8;

# 年月日の時刻情報のみ取得
my ($mday, $mon, $year) = (localtime)[3,4,5];

print sprintf("%04d/%02d/%02d",
			   $year+1900,
			   $mon+1,
			   $mday);

絶対あとで忘れる自信があるのでメモしておきます。

Perlでのハッシュソート方法をメモメモ。

文字コードはUTF-8です。

use strict;
use warnings;
use utf8;
use Encode qw/encode/;

my %hash = (
	c =&gt; 'bb',
	d =&gt; 'aa',
	a =&gt; 'dd',
	b =&gt; 'cc',
);

# ハッシュのキーで文字列昇順ソート
print encode('UTF-8', "ハッシュのキーで文字列昇順ソート\n");
foreach my $key (sort keys %hash) {
	print "$key, $hash{$key}\n";
}

# ハッシュのキーで文字列降順ソート
print encode('UTF-8', "ハッシュのキーで文字列降順ソート\n");
foreach my $key (sort {$b cmp $a} keys %hash) {
	print "$key, $hash{$key}\n";
}

# ハッシュの値で文字列昇順ソート
print encode('UTF-8', "ハッシュの値で文字列昇順ソート\n");
foreach my $key (sort { $hash{$a} cmp $hash{$b} } keys %hash) {
	print "$key, $hash{$key}\n";
}

# ハッシュの値で文字列降順ソート
print encode('UTF-8', "ハッシュの値で文字列降順ソート\n");
foreach my $key (sort { $hash{$b} cmp $hash{$a} } keys %hash) {
	print "$key, $hash{$key}\n";
}


%hash = (
	3 =&gt; 22,
	4 =&gt; 11,
	1 =&gt; 44,
	2 =&gt; 33,
);

# ハッシュのキーで数値昇順ソート
print encode('UTF-8', "ハッシュのキーで数値昇順ソート\n");
foreach my $key (sort {$a  $b} keys %hash) {
	print "$key, $hash{$key}\n";
}

# ハッシュのキーで数値降順ソート
print encode('UTF-8', "ハッシュのキーで数値降順ソート\n");
foreach my $key (sort {$b  $a} keys %hash) {
	print "$key, $hash{$key}\n";
}

# ハッシュの値で数値昇順ソート
print encode('UTF-8', "ハッシュの値で数値昇順ソート\n");
foreach my $key (sort { $hash{$a}  $hash{$b} } keys %hash){
	print "$key, $hash{$key}\n";
}

# ハッシュの値で数値降順ソート
print encode('UTF-8', "ハッシュの値で数値降順ソート\n");
foreach my $key (sort { $hash{$b}  $hash{$a} } keys %hash){
	print "$key, $hash{$key}\n";
}

たぶんこれで合ってるはず…。

※2011/08/02追記
ハッシュのキーで数値昇順、降順ソートが思いっきり間違っていたので修正しました。
ご指摘いただきありがとうございますm(_ _)m