# $device_idには、ユーザーエージェントから取得した # KDDI-○○○○の○○○○部分が入っている my $_20120724end = 0; if ( $device_id =~ /^(?:[A-Z]{2}2[0-9A-Z]|CA3[1234567]|(?:HI|SA|SN)3\d|KC3[\dA]|(?:MA|SH|ST)3[12]|TS3[12345678BC])$/ ) { $_20120724e…