新しい月のファイルを作る

2003-12-17

site
tool

来月になる前に来月用のファイルを自動で作る仕組みを用意しないといけないので、用意してみた。（月が変わったけど、月初めをどうするか参照。）

以下のようなperlスクリプトをサーバのcronで回して、毎月1日の0時に起動させます。私以外の人には何の役にも立たないものです。すびばせん。:p)


#!/usr/bin/perl
@date = localtime(time);
$year=sprintf("%04d",$date[5]+1900);
$this_month=sprintf("%02d",$date[4]+1);
$prev_diary = sprintf("%02d%02d",$date[5]-100-($date[4] == 0),$date[4] + 12*($date[4] == 0));
$this_diary = sprintf("%02d%02d.html",$date[5]-100,$this_month);
open(FILE,"+>/home/hogehoge/$this_diary");
print FILE <<__HTML__;
<?xml version="1.0" encoding="Shift_JIS"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
 "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
（中略）
<link rel="begin" href="0205.html" />
<link rel="prev" href="$prev_diary.html" />
（中略）
<title>朝顔日記 $year年$this_month月</title>
</head>
<body>
（中略）
</body>
</html>

__HTML__
close(FILE);

「新しい月のファイルを作る」へコメントをつける

この記事の永続的 URI ならびにトラックバック ping URI: http://diary.noasobi.net/2003/12/diary_031217a.html