epub_split_xhtml

   1 #!/usr/bin/perl -w
   2 # $Id$
   3 use strict;
   4 require v5.10.0;
   5 our $VERSION = 'v0.1';
   6
   7 BEGIN
   8 {
   9     my $PROGRAM_DIR = $0;
  10     $PROGRAM_DIR =~ s/[^\/\\]+$//;
  11     $PROGRAM_DIR = "./" unless($PROGRAM_DIR);
  12     unshift @INC,
  13         map "$PROGRAM_DIR$_",qw{modules lib ../modules ..lib};
  14 }
  15
  16 my %OPTS;
  17 my @OPTIONS = qw/help|h|? version|ver edit-me manual|man size|s=i/;
  18
  19 if(@ARGV)
  20 {
  21     require Getopt::Long;
  22     require MyPlace::Usage;
  23     Getopt::Long::GetOptions(\%OPTS,@OPTIONS);
  24     MyPlace::Usage::Process(\%OPTS,$VERSION);
  25 }
  26 else
  27 {
  28     require MyPlace::Usage;
  29     MyPlace::Usage::PrintHelp();
  30 }
  31
  32 my $max_size = $OPTS{size} ? $OPTS{size} * 1000 : 256000;
  33 my @target_files = @ARGV;
  34
  35 die("No target files.\n") unless(@target_files);
  36
  37 use File::stat;
  38 foreach my $filename(@target_files)
  39 {
  40     if(! -f $filename)
  41     {
  42         print STDERR "File not accesable : \"$filename\"\n";
  43         next;
  44     }
  45     my $stat = stat($filename);
  46     if($stat->size <= $max_size) {
  47         print STDERR "File size does not exceed $max_size.\n \"$filename\" [Ignored]\n";
  48         next;
  49     }
  50     print STDERR "Spliting $filename...";
  51     print STDERR "\n",&split_file($max_size,$filename);
  52 }
  53
  54 sub split_file {
  55     my($max_size,$filename) = @_;
  56     $filename =~ m/^(.+)\.([^\.]+)$/;
  57     my $basename = $1 or $filename;
  58     my $ext = $2 ? ".$2" : "";
  59
  60     my $data;
  61     {
  62         local $|='';
  63         open FI,"<",$filename or return("$!\n");
  64         $data = <FI>;
  65         close FI;
  66     }
  67     return "Nothing to do\n" unless($data);
  68
  69     if($data =~ m/^([.\n]+)<body>([.\n]+)<\/body>([.\n]+)$/) {
  70         my $head = $1;
  71         my $body = $2;
  72         my $foot = $3;
  73         die("Not implemented.");
  74     }
  75     else {
  76         return "Nothing to do\n";
  77     }
  78
  79 }
  80
  81
  82 __END__
  83
  84 =pod
  85
  86 =head1  NAME
  87
  88 epub_split_xhtml - PERL script
  89
  90 =head1  SYNOPSIS
  91
  92 epub_split_xhtml [options] ...
  93
  94 =head1  OPTIONS
  95
  96 =over 12
  97
  98 =item B<--version>
  99
 100 Print version infomation.
 101
 102 =item B<-h>,B<--help>
 103
 104 Print a brief help message and exits.
 105
 106 =item B<--manual>,B<--man>
 107
 108 View application manual
 109
 110 =item B<--edit-me>
 111
 112 Invoke 'editor' against the source
 113
 114 =back
 115
 116 =head1  DESCRIPTION
 117
 118 ___DESC___
 119
 120 =head1  CHANGELOG
 121
 122     2010-06-06  xiaoranzzz  <xiaoranzzz@myplace.hell>
 123
 124         * file created.
 125
 126 =head1  AUTHOR
 127
 128 xiaoranzzz <xiaoranzzz@myplace.hell>
 129
 130 =cut
 131
 132