8月 « 2011 « プログラムのセカイ

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);

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

WordPressだと改行した箇所がpタグ変換されてしまうので、それをbrタグに変換してくれるプラグインの導入方法をメモ。文法とか気にしない人向け。

以下のURLにアクセス。
http://camcam.info/wordpress/732

「ダウンロード」リンクをクリックして、brBrbr300.zipをダウンロード・解凍。

brBrbrフォルダ内のbrBrbr.phpファイルをプラグインフォルダにアップロードする。

以下の例だと、「***/wp-content/plugins配下」にアップロード

その後、WordPress管理画面に行き、プラグインを有効化。

brBrbrフォルダ内のeditor.jsを「***/wp-admin/js/editor.js」と置き換え。

その後、「***/wp-includes/formatting.php」を開き、

「$output = wpautop($output);」→「$output = brBrbr($output);」

に修正する。

適当に記事を作ってみて、改行したところがbrタグに変更されていれば無事インストール完了。

以上。

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

プログラムのセカイ

プログラムの備忘録

Monthly Archives: 8月 2011

[Perl]localtimeを使って現在年月日取得

[WordPress]改行した箇所をbrタグに変換してくれるbrBrbrプラグイン

[Perl]ハッシュのソート方法一覧