Shell Programming and Scripting

awk  "/~$transnum~/{\$0=X\"\n\"\$0};/~$transnum~/,/EOT/;{X=\$0}" file

			print l[i] > (FILENAME "_" transnum)

                print l[i] > (/tmp/remedixz.20160120_085021_41222370_1_new "_" transom)

#!/bin/ksh
big_file='/tmp/remedixz.20160120_085021_41222370_1'
transnums='/tmp/transnum'

awk -F '~' '
FNR == NR {
	# Gather transaction numbers...
	t[$1]
	tc = FNR
	next
}
{	# Gather transaction lines.
	l[++lc] = $0
}
$1 == "%%YEDTRN" && $3 in t {
	# We have found a transaction number for a transaction that is to be
	# extracted.  Save the transaction number and remove this transaction
	# from the transaction list.
	delete t[transnum = $2]
	file = FILENAME "_" transnum
	tc--
}
/^0000EOT/ {
	# If we have a transaction that is to be printed, print it.
	if(transnum) {
		# Print the transaction.
		for(i = 1; i <= lc; i++)
			print l[i] > file
		close(file)
		printf("Transaction #%s extracted to file %s\n", transnum, file)
		# Was this the last remaining transaction to be extracted?
		if(tc) {# No.  Reset for next transaction.
			lc = 0
			transnum = ""
		} else {# Yes.  Exit.
			exit
		}
	}
}' "$transnums" "$big_file"

ABC160120XYZ0983921

export t="ABC160120XYZ0983920"; perl -ne '/^##transaction\b/ and @t=(); if (/^##transaction\b/ .. /EOT$/){push @t, $_; $f = 1 if /$ENV{t}/;  if (/EOT$/ && $f){print @t; last}}' mad_man.example

#!/usr/bin/env perl

use strict;
use warnings;

my $trans = shift || die "No search paramenters file given\n";
my $haystack = shift || die "Missing data file\n";

my %trans = ();
my @transaction = ();

open my $fh, '<', $trans or die "open $trans: $!\n";
while(<$fh>){
    chomp;
    $trans{$_} = $_;
}
close $fh;

open $fh, '<', $haystack or die "Could not open $haystack: $!\n";
while(<$fh>){
    if(/^##transaction\b/ .. /EOT$/){
        push @transaction, $_;
        if(/EOT$/){
            process_tran();
            @transaction = ();
        }
    }
}
close $fh;

sub process_tran {
    for my $k (keys %trans){
        my $yes = grep /$k/, @transaction;
        if($yes){
            write_tran ("$haystack.$k", \@transaction);
            delete $trans{$k};
            last;
        }
    }
}

sub write_tran {
    my ($save_tran, $tran_ref) =  @_;
    open my $wfh, '>', $save_tran
        or die "Could not write to $save_tran: $!\n";
    print $wfh @{ $tran_ref };
    close $wfh;
}

#!/bin/ksh
big_file='/tmp/remedixz.20160120_085021_41222370_1'
trannum='/tmp/transnum'

awk -F '~' '
FNR == NR {
	# Gather transaction numbers...
	t[$1]
	tc = FNR
	next
}
{	# Gather transaction lines.
	l[++lc] = $0
}
$1 == "%%YEDTRN" && $3 in t {
	# We have found a transaction number for a transaction that is to be
	# extracted.  Save the transaction number and remove this transaction
	# from the transaction list.
	delete t[transnum = $3]
	file = FILENAME "_" transnum
	tc--
}
/^0000EOT/ {
	# If we have a transaction that is to be printed, print it.
	if(transnum) {
		# Print the transaction.
		for(i = 1; i <= lc; i++)
			print l[i] > file
		close(file)
		printf("Transaction #%s extracted to file %s\n", transnum, file)
		# Did we just print the last transaction requested?
		if(!tc)	{
			# Yes.  We are done.
			exit
		}
		# No.  Clear found transaction number.
		transnum = ""
	}
	# Reset for next transaction.
	lc = 0
}' "$trannum" "$big_file"