#!/usr/bin/perl -T use strict; use warnings; use CGI; use URI::Escape; use LWP::Simple; my $q = new CGI; my $ek = URI::Escape::uri_escape($q->param('q') || ""); my $apiurl = "http://base.alpslab.jp/position.rb?adr=$ek"; my $rslt = get($apiurl) || ""; my $jumpto = "http://base.alpslab.jp/"; $jumpto .= "?p=$1,$2" if $rslt =~ m{<coordinates>(.+?),(.+?)<}; print $q->header(-status => "300 Moved Permanently", -type => "text/html", -charset => 'UTF-8', -location => $jumpto);
18:15 〜 19:45 工学部2号館241教室なんというか恒例です。