朝顔日記

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

publish
2003-12-17T00:00:00+09:00
tags
はてぶ

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

以下のような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 らしき文字列には自動的にリンクが張られます。また "<" や、">" は実体参照化されます。
スパム対策のため、リファラを切っていると投稿できません。

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