Sitemapとrobots.txtの作成

#!/usr/bin/perl
 
## URLリストから、sitemapファイルを作成
 
use strict;
 
# テキスト形式のsitemapファイル（一時ファイル入力）
my $strInFileName = './sitemap.txt';
# XML形式のsitemapファイル（出力）
my $strOutFileName = '/home/www/sitemap.xml';
# ファイルから一時的にデータを読み込む配列
my @aryData = [];
# ファイルの属性をstat関数で読み込むための配列
my @filestat = [];
 
my $strTmp;
my $strTimestamp;
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
 
# ファイルハンドル
my $hFile;
 
if(!open($hFile, $strInFileName))
{	# ファイルが開けない場合
	print "src file (sitemap.txt) open error\n";
	exit;
}
@aryData = <$hFile>;
close($hFile);
 
if(!open($hFile, ">".$strOutFileName))
{	# ファイルが開けない場合
	print "src file (sitemap.xml) open error\n";
	exit;
}
 
print $hFile "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n";
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
printf $hFile "<!-- sitemap created automatically by script on %04d-%02d-%02d %02d:%02d:%02d (JST).  contains %d pages -->\n", $year+1900, $mon+1, $mday, $hour, $min, $sec, $#aryData;
print $hFile "<urlset xmlns=\"http://www.sitemaps.org/schemas/sitemap/0.9\">\n";
 
foreach $strTmp (@aryData) {
	# 行末の開業を除去
	$strTmp =~ s/\n//g;
	# ファイルの更新時刻を得る
	@filestat = stat $strTmp;
	($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($filestat[9]);
	# ファイル名をURLに変換
	$strTmp =~ s/\/home\/www/http:\/\/www.example.com/g;
	print $hFile "  <url>\n";
	print $hFile "    <loc>".$strTmp."</loc>\n";
	printf $hFile "    <lastmod>%04d-%02d-%02dT%02d:%02d:%02d+09:00</lastmod>\n", $year+1900, $mon+1, $mday, $hour, $min, $sec;
	print $hFile "    <changefreq>daily</changefreq>\n";
	print $hFile "  </url>\n";
}
 
print $hFile "</urlset>\n";
 
close($hFile);
 
exit(0);