#!/usr/bin/env bash

# @(#) s2	Demonstrate splitting of file at /pattern/+-count, csplit.

# Utility functions: print-as-echo, print-line-with-visual-space, debug.
# export PATH="/usr/local/bin:/usr/bin:/bin"
pe() { for _i;do printf "%s" "$_i";done; printf "\n"; }
pl() { pe;pe "-----" ;pe "$*"; }
db() { ( printf " db, ";for _i;do printf "%s" "$_i";done;printf "\n" ) >&2 ; }
db() { : ; }
C=$HOME/bin/context && [ -f $C ] && $C csplit perl

FILE=${1-data2}

# Remove debris from previous runs.
rm -f xx?? output*

pl " Input data file $FILE:"
cat $FILE

pl " Current situation of resultant xx?? files (expecting none):"
ls xx??

pl " Results, counts of split file in characters:"
csplit -k -z $FILE '/Version/-1' '{*}'

pl " Current situation, and content of files:"
ls -lgG xx??
pe
head xx??

pl " Renaming script, sample in perl:"
cat p1

# Rename split file based on content of file.
# Sample data line:
# Info: Started at:         Tue Sep 10 10:30:04 2013
# New file name from fragments of data line:
# output.log_10Sep13_10:30:04
#
# extract line "Info: started at" from file
# split into array, create string from fields 758_6
# close, issue rename file to output.log_<string>
for file in xx*
do
  ./p1 $file
done

pl " Renamed files:"
ls -1 output*

exit 0

$ ./s2

Environment: LC_ALL = C, LANG = C
(Versions displayed with local utility "version")
OS, ker|rel, machine: Linux, 2.6.26-2-amd64, x86_64
Distribution        : Debian GNU/Linux 5.0.8 (lenny) 
bash GNU bash 3.2.39
csplit (GNU coreutils) 6.10
perl 5.10.0

-----
 Input data file data2:
Unrelated stuff
Info: App:  Version 2.0.1  Date 2013/09/01
Info: ****************************************************************
Info: Started at:         Tue Sep 10 10:30:04 2013
No discernible pattern
Info: App:  Version 2.0.1  Date 2013/09/01
Info: ****************************************************************
Info: Started at:         Tue Sep 11 10:30:03 2013

-----
 Current situation of resultant xx?? files (expecting none):
ls: cannot access xx??: No such file or directory

-----
 Results, counts of split file in characters:
181
188

-----
 Current situation, and content of files:
-rw-r--r-- 1 181 Sep 12 10:14 xx00
-rw-r--r-- 1 188 Sep 12 10:14 xx01

==> xx00 <==
Unrelated stuff
Info: App:  Version 2.0.1  Date 2013/09/01
Info: ****************************************************************
Info: Started at:         Tue Sep 10 10:30:04 2013

==> xx01 <==
No discernible pattern
Info: App:  Version 2.0.1  Date 2013/09/01
Info: ****************************************************************
Info: Started at:         Tue Sep 11 10:30:03 2013

-----
 Renaming script, sample in perl:
#!/usr/bin/env perl

# @(#) p1	Demonstrate manipulation to rename file.

# Info: Started at:         Tue Sep 10 10:30:04 2013
# 0     1       2           3   4   5  6        7
# output.log_10Sep13_10:30:04
#            5 4  7  6
# extract line "Info: started at" from file
# split into array, create string from fields 758_6 (but i-1 # array)
# close, issue rename file to output.log_<string>

use strict;
use warnings;

my ( $file, $f, @pieces, $newname );
$file = shift || die " Expected filename, got nothing.\n";
open( $f, "<", $file ) || die " Cannot open file $file\.";
while (<$f>) {
  chomp;
  next if not /Info: Started at:/;
  @pieces  = split(/\s+/);
  $newname = $pieces[5] . $pieces[4] . $pieces[7] . "_" . $pieces[6];
  close $f || die " Oops, cannot close $file\n";
  rename $file, "output_$newname" || die " Cannot rename $file\n";
  last;
}

exit(0);

-----
 Renamed files:
output_10Sep2013_10:30:04
output_11Sep2013_10:30:03