電線の画像

Pointgets.net

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

RSS1.0のlinkタグを生成

PerlモジュールのCGI.pmを使用して、RSS1.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/rdf+xml",
			-title => "RSS1.0",
			-href => "index.rdf"
		}),
	]
);
 
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="RSS1.0" type="application/rdf+xml" rel="alternate" href="index.rdf">
</head>
<body>

出力結果です。

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