#! /usr/bin/perl -w #------------------------------------------------------------ # add_japanese_tags.pl Created : Mon Aug 26 01:21:27 2002 # Last modified: Mon Aug 26 02:48:57 2002 #------------------------------------------------------------ # Written by Takashi Masuyama # VERSION: $Id: add_japanese_tags.pl,v 1.1 2002/08/25 17:49:19 tak Exp $ # ocamldoc で生成したHTMLファイルに DOCTYPE と Content-type を # 付け加えるだけ。 # use English; use Getopt::Std; my $PREFIX_EXTENSION = ""; my $COMMAND_LINE = 'echo \'\' | cat - %s | sed -e \'s|||\''; my %options; getopts('hd:',\%options); if(exists $options{'h'}) { print << "END_OF_HELP"; $PROGRAM_NAME options: -h: print help -d : destination directory END_OF_HELP exit(0); } my $dir = "."; if(exists $options{'d'}) { if(-e $options{'d'}) { $dir = $options{'d'}; } else { print "No such directory $options{'d'}\n"; exit(1); } } print "destination $dir\n"; foreach my $filename (@ARGV) { if($filename !~ m|^(.*)\.(html?)$|) { print "Irregural filename: $filename skipped\n"; } else { print "treating $filename ... \n"; my $prefix = $1; my $extension = $2; $dir =~ m|^(.+?)/?$|; my $output_filename = "$1/${prefix}${PREFIX_EXTENSION}.${extension}"; my $command_string = sprintf($COMMAND_LINE,"${filename}"); # print "out: $output_filename\n"; open(OUT,'>'.$output_filename) or die $!; print OUT `$command_string`; close(OUT); } } exit(0);