epubfix

   1 #!/usr/bin/perl
   2
   3 use utf8;
   4 use File::Glob qw/bsd_glob/;
   5
   6 die("Filename required\n") unless(@ARGV);
   7
   8 sub process() {
   9 foreach my $fn(@_) {
  10     print STDERR "processing $fn...";
  11     if(!-f "$fn") {
  12         print STDERR "\t[Ignored]\n";
  13         return;
  14     }
  15     open FI,"<:utf8",$fn or die("$!\n");
  16     my $data=join("",<FI>);
  17     close FI;
  18     $data =~ s/\smlns=/ xmlns=/;
  19     $data =~ s/<dc:rights>[^>]+>/<dc:rights>created by xiaoranzzz\@myplace<\/dc:rights>/;
  20     $data =~ s/http:\/\/www.cnepub.com/xiaoranzzz\@myplace/g;
  21     $data =~ s/epub掌上书苑/xiaoranzzz\@myplace/g;
  22     $data =~ s/简介/About/g;
  23     $data =~ s/封面/Cover/g;
  24     $data =~ s/\&amp;/\&/g;
  25     $data =~ s/\&nbsp;/ /g;
  26     $data =~ s/\&\#174;/®/g;
  27     open FO,">:utf8",$fn or die("$!\n");
  28     print FO $data;
  29     close FO;
  30     print STDERR "\t[OK]\n";
  31 }
  32 }
  33
  34
  35
  36 my @files;
  37 foreach(@ARGV) {
  38     if(-f $_) {
  39         push @files,$_;
  40     }
  41     else {
  42         push @files,bsd_glob("$_");
  43     }
  44 }
  45 &process(@files) if(@files);