http://anomachi.info/wiki/wiki.cgi いーばーしょーちぇっかー。
＃いや、ほんとにてきとー。
---
#!/usr/bin/perl
$file = "/data1/dw/wikidata/inline/npccal.html";
(@date) = localtime (time);
$week = $date[6];
if ($date[2] < 3){$week -= 1;}
if ($week < 0){$week = 6;}
#0 = sunday
if ($week == 0){
$inu = "あの町 デスレコーズ";
$kan = "下あの町 自販機前";
}
elsif ($week == 1){
$inu = "あの町 デスレコーズ";
$kan = "ちょろ川しゃけクマ";
}
elsif ($week == 2){
$inu = "あの大通り コスもす";
$kan = "公園の奥 アミアミ";
}
elsif ($week == 3){
$inu = "あの大通り コスもす";
$kan = "あの大通り ツタヤ横";
}
elsif ($week == 4){
$inu = "あの町 ツタヤ";
$kan = "某公園 遊具近く";
}
elsif ($week == 5){
$inu = "あの町 ツタヤ";
$kan = "ふかし町 空き地の奥";
}
elsif ($week == 6){
$inu = "THE CLOUDS";
$kan = "あの町 地玉堂";
}
open (FILE,">$file");
print FILE "カンカンさん : <b><a href=\"
http://anomachi.info/wiki/wiki.cgi?page=%A5%AB%A5%F3%A5%AB%A5%F3%A4%B5%A4%F3%A4%CE%A5%EB%A1%BC%A5%C8\">$kan</a></b><br>";
print FILE "いぬいるまんさん : <b><a href=\"
http://anomachi.info/wiki/wiki.cgi?page=%A4%A4%A4%CC%A4%A4%A4%EB%A4%DE%A4%F3%A4%B5%A4%F3%A4%CE%A5%EB%A1%BC%A5%C8\">$inu</a></b><br>";
close (FILE);
---