Shell Programming and Scripting

tac file1|awk '1;/^*/{exit}'|tac

$ tac 1.txt | sed -ne '/^\*/ s/\*//g p' | head -n 1

#!/bin/ksh
awk '{ if (index($0,"***")>0){
         printf("\n%s|",$0)} 
         else{printf("%s|", $0)} 
      }' filename | \
      grep 'Jun 30'  | tr -s '|' '\n' | grep 'Generation'

tail -5 filename

$ cat 1.pl
#!/usr/bin/perl -w

open (INPUT, "< logfile");

my $last = '', @to_print = ();
while (<INPUT>) {

    push @to_print, $_;
    if (/^\*{3}/) {
        s/\*//g;
        @to_print = ($to_print[$#to_print]) if $last ne $_;
        $last = $_;
    }
}

for (@to_print) {
    print $_;
}

$ cat logfile
*****************Thu Jun 28 20:06:28 BST 2006**************************************
Generation Number : 20062231
Generation Date : 20060629
There are no detail records
*****************Thu Jun 29 23:46:38 BST 2006**************************************
Generation Number : 20062231
Generation Date : 20060629
There are no detail records
*****************Fri Jun 30 00:01:19 BST 2006**************************************
Generation Number : 20062237
Generation Date : 20060629
There are no detail records
*****************Fri Jun 30 00:01:19 BST 2006**************************************
Generation Number : 20062237
Generation Date : 20060630
There are no detail records

$ ./1.pl
*****************Fri Jun 30 00:01:19 BST 2006**************************************
Generation Number : 20062237
Generation Date : 20060629
There are no detail records
*****************Fri Jun 30 00:01:19 BST 2006**************************************
Generation Number : 20062237
Generation Date : 20060630
There are no detail records