#!/usr/bin/perl $in = $ARGV[0]; my $uid = time(); ($sec,$min,$hour,$day,$month,$year) = localtime(); $year = $year+1900; $month++; if ($month < 10) {$month = "0$month";} if ($day < 10) {$day = "0$day";} my $stamp = "$year-$month-$day"; open(IN, $in) || die "something's wrong"; while () { $myxml .= $_; } $myxml =~ m/(.+)<\/title?>/gi; $title = $1; $myxml =~ m/(.+)<\/author?>/gi; $author = $1; $myxml =~ m/(Bookshare-.+)\./gi; $_ = $1; if (m/bookshare/gi) { $uid = $_; } else { my $uid = time(); } $myxml =~ s///gi; $myxml =~ s///gi; $myxml =~ s/<\/dtbook3>/<\/dtbook>/gi; $myxml =~ s/|<\/span>//gi; $myxml =~ s///gi; $myxml =~ s///gi; $myxml =~ s/<\/docTitle>/<\/doctitle>/gi; $myxml =~ s///gi; $myxml =~ s/\n/QQ/gi; $myxml =~ s/.+<\/head?>//gi; $myxml =~ s/.+<\/frontmatter?>//gi; $myxml =~ s/QQ/\n/gi; $myxml =~ s/<\?.+\??>//gi; #$myxml =~ s//

/gi; #$myxml =~ s///gi; #$myxml =~ s///gi; $myxml =~ s///gi; $myxml =~ s/(\d+)<\/pagenum?>/$2<\/pagenum>/gi; my $dtbheader = < $title $author EOT $myxml = $dtbheader . $myxml; print $myxml; close (IN); close (OUT);