08/04/02 16:46:42 0 BE:3192757-DIA(100256)
こんなかんじでなんでしょうか。
Perlはよくわからないです。
#! /usr/local/bin/perl -w
# 入力: 7文字のCID
# 出力: 7文字のCID文字情報
# 数字:1、大文字:2、小文字:3
sub GetDoCoMoCIDCaseInfo
{
my $cid = shift;
my $count = 0;
my @cidcase = ();
for ($count = 0; $count < 7; $count++) {
$cidcase[$count] = (ord(substr($cid, $count)) >> 5) + 48;
}
return pack("C*", @cidcase);
}
# この文字列の場合、、、
my $cid = "AaBb012";
# 2323111 と出れば成功
print &GetDoCoMoCIDCaseInfo($cid);