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

본문 바로가기

사이트 내 전체검색

뒤로가기 팁앤테크

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

본문

일본 케타이 사이트 제작시 케리어 판별정보입니다..

http://www.kawa.net/works/perl/phone/pnews.html#download


require "phone.pl";
my $phone = &phone_info();
print "Content-Type: text/html\n";
print "NTT DoCoMo mobile phone.\n" if ( $phone->{type} eq "docomo" );



********

携帯キャリアを判別した Location: 飛ばし CGI
#!/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";


JPEG 表示対応機種で場合分けする
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 );




추천0

첨부파일

댓글목록 0

등록된 댓글이 없습니다.

전체 825건 12 페이지
게시물 검색
Copyright (c) 株式会社YHPLUS. All rights reserved.

사이트 정보

株式会社YHPLUS / 대표 : ZERO
〒171-0014 東京都豊島区池袋2-41-5 アーバン154 8F
050-5539-7787
오픈카카오톡 (YHPLUS) :
https://open.kakao.com/o/slfDj15d

PC 버전으로 보기