2013-06-02から1日間の記事一覧

Win32::API経由でStrCmpLogicalWを呼ぶメモ

# Written in UTF-8. Output is CP932. use 5.16.0; use strict; use warnings; use Encode qw/encode decode from_to/; use Win32::API; my $f = Win32::API::More->new('shlwapi', 'StrCmpLogicalW', 'PP', 'I'); my @strs = qw/ 20string 2string 3string…