[php] [Perl] phone.pl 携帯電話キャリア自動判別ライブラリ > 팁앤테크

#!/usr/bin/perl

require "phone.pl";
my $phone = &phone_info();

if ( $phone->{type} eq "docomo" ) {
    print "Location: http://domain.name/docomo.html\n\n";
} elsif ( $phone->{type} eq "ezweb" ) {
    if ( $phone->{hdml_native} ) {
        print "Location: http://domain.name/ezweb.hdml\n\n";
    } else {
        print "Location: http://domain.name/docomo.html\n\n";
    }
} elsif ( $phone->{type} eq "jphone" ) {
    print "Location: http://domain.name/vodafone.html\n\n";
} else {
    print "Location: http://domain.name/pc.html\n\n";
}

print "機種名：　$phone->{name}<BR>\n";

if ( $phone->{image_jpeg} ) {
    print '<img src="title.jpg">';        # JPEG対応機種のみ
} else {
    print '<img src="title.gif">';        # JPEG対応機種以外
}

my $img;
if ( $phone->{qvga} && $phone->{cache} >= 12000 ) {
    $img = "image-240x180.jpg";     # QVGA液晶かつキャッシュ容量12KB以上のみ
} elsif ( $phone->{image_jpeg} && $phone->{width} >= 160 ) {
    $img = "image-160x120.jpg";     # JPEG対応かつ横幅160ピクセル以上
} elsif ( $phone->{image_jpeg} ) {
    $img = "image-120x090.jpg";     # JPEG対応機種のみ
} elsif ( $phone->{image_png} ) {
    $img = "image-096x072.png";     # PNG対応機種のみ（SoftBank・EZ旧機種）
} else {
    $img = "image-096x072.gif";     # その他（NTT DoCoMo 旧機種）
}
printf( '<img src="%s">', $img );