#!/usr/local/bin/perl
## =================================================================
##   label2tex
## =================================================================
## 修論などの原稿をバインダに纏めたときに、バインダの背中に貼る
## ラベルになりそうな出力が得られるような LaTeX 原稿を生成。
## ... って、これでわかるかな?? (^_^;;
##
$LABEL = <<__END__;
## =================================================================
##  「タイトル文字列」ここから
## -----------------------------------------------------------------
##  ・各データは、「題目」「著者」「年」という3つのデータをもつ。
##  ・「題目」「著者」「年」は、その順で並んでいる必要がある。
##  ・各データは 1 つ以上の空行によって区分されている。
## =================================================================
Living with Television Commercials
Azrina Husin
1999

Living with Television Commercials (予備審)
Azrina Husin
1999

都市と記憶 (草稿)
根津大輔
1998

電子メディアと広告 {\\xsmall --インターネット広告の現状と今後の展望--}
森克裕
1997

On (Dis-)placement
Yoshio Nakamura
2001

On (Dis-)placement (予備審)
Yoshio Nakamura
2000

歴史家ニーチェの遠近法主義
稲毛友壽
2001
## =================================================================
##  「タイトル文字列」ここまで
## =================================================================
__END__
$LABEL =~ s/\#[^\n]*\n//g;
@data = split(/\n\n+/,$LABEL);
$date = `/bin/date +"%Y/%m/%d"`; $date =~ s/[ \t\r\n]*$//;
print <<__END__;
\\documentclass[12pt]{jarticle}
\\setlength{\\topmargin}{-4mm}
%%\\setlength{\\oddsidemargin}{0mm}
\\setlength{\\oddsidemargin}{-24mm}
%%\\setlength{\\textwidth}{158mm}
\\setlength{\\textwidth}{207mm}
\\setlength{\\headheight}{0mm}
\\setlength{\\textheight}{236mm}
\\renewcommand{\\baselinestretch}{1.3}
\\newcommand{\\xsize}{\\Large}
\\newcommand{\\xsmall}{\\large}
%% [notice]: this file is auto-created via $0. ($date)
\\begin{document}
\\xsize
__END__
foreach $za ( @data ) {
  local($title, $author, $date, @aaa) = split(/\n/,$za);
  print "{\\bf $title} \n\t\\hspace{5mm} $author (${date})\n\n";
}
print <<__END__;
\\end{document}
__END__
exit;