【祟り】FOX ★が管理人を夏タイヤに交換するスレッド【交換】

**動け動けウゴウゴ２ちゃんねる** · 2008/04/02(水) 16:37:19

前スレ
【祟り】FOX★が管理人をなめなめするスレッド【鎮○】8
http://qb5.2ch.net/test/read.cgi/operate/1206640649/

　■■■過去スレ■■■
【祟り】FOX★が管理人に怒られないようにするスレッド【鎮火】7
http://qb5.2ch.net/test/read.cgi/operate/1206170063/
【祟り】FOX★が管理人に怒られないようにするスレッド【鎮火】６
http://qb5.2ch.net/test/read.cgi/operate/1206071602/
【祟り】FOX★が管理人に怒られないようにするスレッド【鎮火】５
http://qb5.2ch.net/test/read.cgi/operate/1205082365/
【祟り】FOX★が管理人に怒られないようにするスレッド【鎮火】４
http://qb5.2ch.net/test/read.cgi/operate/1202166337/
【祟り】FOX★が管理人に怒られないようにするスレッド【鎮火】３
http://qb5.2ch.net/test/read.cgi/operate/1202163055/
【祟り】FOX★が管理人に怒られないようにするスレッド【鎮火】２
http://qb5.2ch.net/test/read.cgi/operate/1201601010/
【祟り】FOX ★が管理人に怒られるスレッド【鎮魂】
http://qb5.2ch.net/test/read.cgi/operate/1201355693/

**動け動けウゴウゴ２ちゃんねる** · 2008/04/02(水) 16:39:58

管理人は人間じゃねーのかよｗ

**動け動けウゴウゴ２ちゃんねる** · 2008/04/02(水) 16:40:09

>>1
死ね

**動け動けウゴウゴ２ちゃんねる** · 2008/04/02(水) 16:41:05

夏タイヤって何？

**動け動けウゴウゴ２ちゃんねる** · 2008/04/02(水) 16:41:54

夏に食べるタイヤキの略じゃね？

**動け動けウゴウゴ２ちゃんねる** · 2008/04/02(水) 16:42:59

夜勤が、タラコの中古の軽のタイヤを交換するスレでsky？

**フジコ・ω・マン子** ◆2027/BM/Ag · NG

>>1
死ね

**root▲▲ ★** · 2008/04/02(水) 16:46:42

こんなかんじでなんでしょうか。
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);