電線の画像

Pointgets.net

写真やサンプルプログラムなど、日々の気になった出来事をメモしてる個人的なブログです。

ATOM1.0のlinkタグを生成

PerlモジュールのCGI.pmを使用して、ATOM1.0のリンクタグを出力しました。

#!/opt/local/bin/perl
 
use strict;
use warnings;
use CGI qw(:standard :no_xhtml);
 
print "Content-type: text/plan; charset=utf-8\n\n";
 
my $cgi = new CGI;
print $cgi -> start_html(
	-head  => [
		Link({
			-rel => "alternate",
			-type => "application/atom+xml",
			-title => "ATOM1.0",
			-href => "index.atom"
		})
	]
);
 
exit;

サンプルコードです。

<!DOCTYPE html
	PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
	 "http://www.w3.org/TR/html4/loose.dtd">
<html><head><title>Untitled Document</title>
<link title="ATOM1.0" type="application/atom+xml" rel="alternate" href="index.atom">
</head>
<body>

出力結果です。

スポンサードリンク
スポンサードリンク