クãƒãƒ¼ãƒ©ã‚„ケータイã«ã‚ˆã£ã¦ãƒªãƒ€ã‚¤ãƒ¬ã‚¯ãƒˆå…ˆã‚’変ãˆã‚‹CGIã®é››å½¢(Perl)クãƒãƒ¼ãƒ©ã‚„ケータイã«ã‚ˆã£ã¦ãƒªãƒ€ã‚¤ãƒ¬ã‚¯ãƒˆå…ˆã‚’変ãˆã‚‹CGIã®é››å½¢(Perl) 2010-03-15-1 [Programming] クãƒãƒ¼ãƒ©ã‚„ケータイã«ã‚ˆã£ã¦ã„ã‚ã„ã‚ã¨å†…容を切り替ãˆãŸã„å ´åˆãŒã‚る。 例ãˆã°ã€Googlebot ãŒå¤§é‡ã«æ¥ãŸã¨ãã«æš«å®šçš„ã« Google ã®ãƒˆãƒƒãƒ—ページã«é£›ã°ã—ãŸã‚Šã¨ã‹ï¼ˆå«ŒãŒã‚‰ã›ï¼Ÿï¼‰ã€‚ 実ç¾æ–¹æ³•ã¯ã„ã‚ã„ã‚ã‚ã‚‹ã‚“ã ã‘ã©ã“ã“ã§ã¯è‡ªåˆ†ã§ã‚³ãƒ”ペã™ã‚‹ç”¨ã« Perl CGI ã®é››å½¢ã‚’載ã›ã¦ãŠã。 アマゾンを例ã«é£›ã°ã—先（リダイレクト先）を切り替ãˆã‚‹ä¾‹ã€‚ 切り替ãˆéƒ¨åˆ†ã¯éšæ™‚è¿½åŠ äºˆå®šã€‚ #!/usr/bin/perl -T use strict; use warnings; print "Content-Type: text/html\n"; my $qs = $ENV{'QUERY_STRING'} || ""; my $ua = $ENV{'HTTP_USER_AGENT'}
WingMemo: ダイナミック・パブリッシング下ã§Perlã®ãƒ—ラグインを使ã†æ–¹æ³•
{{#tags}}- {{label}}
{{/tags}}