#!/usr/bin/env bash

# @(#) s1	Demonstrate perl version of split with regular expressions.

split=./ppt-split
# 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 $split
v1="cpansearch.perl.org/src/CWEST/ppt-0.14/html/commands/split/split.lafferty"
pe "http://${v1}"

FILE=${1-data1}

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

rm -f x*
pl " Results, single heading, number:"
$split -p 'string' $FILE
ls -lgG x*

rm -f x*
pl " Results, multi-heading, number|string:"
$split -p 'number|string' $FILE
ls -lgG x*

pl " Sample of one of the files, x.aac:"
cat x.aac

exit 0

% ./s1

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) 
GNU bash 3.2.39
ppt-split - ( local: RepRev 1.2, ./ppt-split, 2011-06-18 )
http://cpansearch.perl.org/src/CWEST/ppt-0.14/html/commands/split/split.lafferty

-----
 Input data file data1:
string
able
baker
charlie
number
1
2
3
string
dog
easy
fox
number
4
5
6

-----
 Results, single heading, number:
-rw-r--r-- 1  0 Jun 18 15:14 x.aaa
-rw-r--r-- 1 39 Jun 18 15:14 x.aab
-rw-r--r-- 1 33 Jun 18 15:14 x.aac

-----
 Results, multi-heading, number|string:
-rw-r--r-- 1  0 Jun 18 15:14 x.aaa
-rw-r--r-- 1 26 Jun 18 15:14 x.aab
-rw-r--r-- 1 13 Jun 18 15:14 x.aac
-rw-r--r-- 1 20 Jun 18 15:14 x.aad
-rw-r--r-- 1 13 Jun 18 15:14 x.aae

-----
 Sample of one of the files, x.aac:
number
1
2
3