Add split sections script for plain text

Contributed by JFS

diff --git a/common/scripts/split-sections.pl b/common/scripts/split-sections.pl
new file mode 100755 (executable)
index 0000000..d711b76
--- /dev/null
+++ b/common/scripts/split-sections.pl
@@ -0,0 +1,40 @@
+#!/usr/bin/perl -w
+
+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 = <STDIN>) {
+    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 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;