
Eliza
By: a guest on
Jul 16th, 2008 | syntax:
Perl | size: 1.19 KB | views:
297 | expires: Never
#!/usr/bin/perl
# makenotes.pl A text splitting tool for iPod Notes
# (C) 2008 Matthijs Dalhuijsen (GPL)
unless (@ARGV) {
print "makenotes -- formats text documents for usage on iPod\n";
print "Usage: $0 <filename(s)>\n";
}
foreach my $file (@ARGV) {
if (-f $file) {
&chopfile($file);
} else {
print "$file not found\n";
}
}
sub chopfile {
print "Please give a title for this book\n> ";
my $title = <STDIN>;
print "creating dir and splitting file into subfiles in 3 seconds\n";
my $i = 0;
open(IF
,">".$title."_".$i.".txt");
for (my $x = 0; $x < @txt; $x++) {
if ($x % 3800 == 0) {
print IF
"<TITLE>$i $title</TITLE>";
print IF
"<a href=\"".$title."_".($i-1).".txt\">prev (".($i-1).")</a> ";
print IF
"<a href=\"".$title."_".($i+1).".txt\">prev (".($i+1).")</a> ";
$i++;
open(IF
,">".$title."_".$i.".txt");
print $title."_".$i."\n";
}
}
}