<?xml version="1.0" encoding="UTF-8" ?><rdf:RDF 
  xmlns="http://purl.org/rss/1.0/"
  xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
  xmlns:atom="http://www.w3.org/2005/Atom"
  xmlns:dc="http://purl.org/dc/elements/1.1/"
  xml:lang="ja">
  <channel rdf:about="http://w.atwiki.jp/accord/">
    <title>accord @Wiki</title>
    <link>http://w.atwiki.jp/accord/</link>
    <atom:link href="https://w.atwiki.jp/accord/rss10.xml" rel="self" type="application/rss+xml" />
    <atom:link rel="hub" href="https://pubsubhubbub.appspot.com" />
    <description>accord @Wiki</description>

    <dc:language>ja</dc:language>
    <dc:date>2007-01-19T04:14:02+09:00</dc:date>
    <utime>1169147642</utime>

    <items>
      <rdf:Seq>
                <rdf:li rdf:resource="https://w.atwiki.jp/accord/pages/16.html" />
                <rdf:li rdf:resource="https://w.atwiki.jp/accord/pages/1.html" />
              </rdf:Seq>
    </items>
	
		
    
  </channel>
    <item rdf:about="https://w.atwiki.jp/accord/pages/16.html">
    <title>rainlendar googlecalendar</title>
    <link>https://w.atwiki.jp/accord/pages/16.html</link>
    <description>
      http://miyana2m.blog2.fc2.com/blog-entry-290.html

Rainlendar に web公開されている iCalendar ファイルを取り込んでみた
昨日、Rainlendar は web公開されている iCalendar 形式を取り込めないから、サーバのフォーマットに変換して...とか書いてましたが、あほでした。＞自分
ちょっと落ち着いて考えたら http で .ics ファイルをローカルにダウンロードして、それを rainlandar に読み込ませるだけでいいやん、と。で、定時あけから、こちょこちょと perl で...ってできました。
あぅ、こんな簡単でよかったのか...

ちょっとひっかかったのは、MacOS X の iCal から出力されたファイルを読み込む場合、ics ファイルの改行コードが Mac のそれなので CR+LF に変換してやる必要があるのと、文字コードが UTF-8 で出力されているので、perl もそれにあわせておく必要があるくらいで、いたって簡単です。

試してませんが、Google Calendar でもできると思う。たぶん。
データが使い回せるって、やっぱいいですね。

実際には複数のカレンダーをローカルに保存しているので少しいじっているのですが、こんな感じのコードです。ActivePerl 5.8 で、UTF-8 で保存して使ってます。

use Win32::Internet;
$INET = new Win32::Internet();

$url = &quot;icsファイルのURL&quot;;
$file = $INET-&gt;FetchURL($url);
$file =~ s/\x0D\x0A/\n/g;#改行コードをCR+LFに

$my_output_file = &quot;ローカルに保存するicsファイルパス&quot;;
open(OUT, &quot;&gt; $my_output_file&quot;);
print(OUT $file);
close(OUT);    </description>
    <dc:date>2007-01-19T04:14:02+09:00</dc:date>
    <utime>1169147642</utime>
  </item>
    <item rdf:about="https://w.atwiki.jp/accord/pages/1.html">
    <title>トップページ</title>
    <link>https://w.atwiki.jp/accord/pages/1.html</link>
    <description>
      ■　このWikiはbison鯖のデータ管理のためのWikiです。
-各自アップロード後にはそれぞれのデータリストを更新してください。
-まだ邦楽リストしか作成していません＾＾；

**分からないことは？
-[[@wikiの詳しい使い方はヘルプ・FAQ・初心者講座@wikiをごらんください。メールでのお問い合わせも受け付けております。&gt;http://faq.atwiki.jp/]]
-[[ユーザ同士のコミュニケーションにはたすけあい掲示板をご利用ください&gt;http://bbs.atwiki.jp/]]    </description>
    <dc:date>2006-01-12T15:46:19+09:00</dc:date>
    <utime>1137048379</utime>
  </item>
  </rdf:RDF>
