2008-01-18 perlで、携帯サイトの更新リンクを作る perl AU(EZweb)のキャッシュがきついから更新リンクを作ることに。リファラーを取ってLocationするだけ。 #!/usr/bin/perl use strict; my $ref; $ref = $ENV{'HTTP_REFERER'}; print "Location:$ref\n\n"; キャッシュ対策はHTMLでも <meta http-equiv="cache-control" content="no-cache" />