#!/usr/bin/env perl
#
# Split single text file with numbered sections into multiple files,
# one per section.
#
# Simple Bash script to add title to the resulting files:
#
# for i in `seq 1 350`; do
#     sed -i '1s/^/The Storms of Chai\n/' $i.txt;
# done
# 
# See https://www.projectaon.org/en/Sanctum/Howto-proofread

use strict;
use autodie;
use warnings qw< FATAL all >;
use IO::Handle;
use Scalar::Util qw< openhandle >;

#Initialise variables
my $debug = 1;
my $fh = new IO::Handle;
my $line = "";
my $section = "";
my $filename = "";

while ($line = <>) {
    chomp ($line);
    print STDERR "DEBUG: Reading '$line'\n" if $debug;
    if ($line =~ /^(\d+)$/) {
        $section = $1 ;
        $filename = "$section.txt";
        print STDERR "DEBUG: Starting section $section\n" if $debug;
        close $fh if $fh->opened();
        open ($fh, ">>$filename") or die "Couldn't open file $filename, $!";
        print $fh "Section $section\n";
    } 

    # Print to the file if we have a filehandle except for the 
    # section number itself
    if ($line !~  /^(\d+)$/) {
        if ( $fh->opened() ) {
            print STDERR "DEBUG: Printing to $filename\n" if $debug;
            print $fh $line."\n" ;
        }
    }
}


close $fh if fileno($fh);

exit 0;