#!/usr/bin/perl -w
use strict;
#global var
my $odd = 0;
while(<>){
chomp();
s/\\,/&\#44; /g;
if(/^●([^\,]*),(.*)$/){
putHeader($1, $2);
}elsif(/^([0-9]*\-[0-9]*\-[0-9]*),([^\,]*),([^\,]*),(.*)$/){
putBody($1,$2,$3,$4);
}
}
putFooter();
exit();
sub putHeader {
my ($title,$intro) = @_;
print qq|
itouh: $title
HOME > $title
Time-stamp: |;
my ($d,$m,$y) = (localtime())[3..5];
my $today = sprintf("%04d-%02d-%02d", $y+1900, $m+1, $d);
print qq|$today
itouh: $title
$intro
|;
# print qq|
#
#
# | 日付 |
# 名前 |
# 説明 |
#
#
# |;
print qq|
|;
}
sub putBody {
my ($date, $title, $src, $desc) = @_;
my $memo = "";
if($desc =~ /\$/){
$desc =~ s/\$(.*)$//;
$memo = qq|\n $1
\n |;
$memo =~ s/\\n/\n/g;
}
my $oddstr = "";
# if($odd%2 == 1){
# $oddstr = qq| class="grey"|;
# }
$odd++;
print qq|
$date |
$title |
$desc$memo |
|;
}
sub putFooter {
print qq|
itouh
|;
}