sfmag2wiki/html2wiki.pl

   1 #!/usr/bin/perl\r
   2 \r
   3 use warnings;\r
   4 use strict;\r
   5 \r
   6 use lib 'C:\Users\hirom\Documents\Dev\sfwiki';\r
   7 \r
   8 use utf8;\r
   9 use open IO => ':utf8';\r
  10 use open ':std';\r
  11 \r
  12 use SourceForgeJP::Wiki::Html2Wiki;\r
  13 \r
  14 my $image_basedir = shift @ARGV;\r
  15 \r
  16 my $html = do {local $/; <> };\r
  17 \r
  18 my $converter = WWW::SourceForgeJP::Wiki::Html2Wiki->new($image_basedir);\r
  19 my $wiki = $converter->convert($html);\r
  20 \r
  21 print $wiki;\r