Shell Programming and Scripting

 
[ravi@testbox ~]$ uname -a
Linux testbox 2.6.20-1.2948.fc6 #1 SMP Fri Apr 27 19:18:54 EDT 2007 x86_64 x86_64 x86_64 GNU/Linux
 
[ravi@testbox ~]$ cat input_file
insert_job: test_job ----> job name
days_of_week: all
start_times: "16:00"
date_conditions: 1
insert_job: test_job2 ----> job name
days_of_week: all
start_times: "16:00"
 
insert_job: test_job3 ----> job name
days_of_week: all
start_times: "16:00"
date_conditions: 1
 
insert_job: test_job4 ----> job name
days_of_week: all
start_times: "16:00"
 
[ravi@testbox ~]$  awk '$0 ~ /^$/ && job ~ /test/ {printf("%s\n",job);job="";next } /insert/ {job=$2;next} /date/ {job="";next}'  input_file
test_job2
test_job4

insert_job: fsetlbqa_fsw_ibsfile_box job_type: b
date_conditions: 1
start_times: "09:00"
 
insert_job: fsetlbqafsw028ibsetlfile job_type: c
 
insert_job: fsetlbqa_fsw_ETLB_spc_rep_box job_type: b
date_conditions: 1
days_of_week: mo,tu,we,th,fr,sa,su
start_times: "06:00"
 
insert_job: fsetlbqafswW999spacereport job_type: c

insert_job: fsetlbqa_fsw_ibsfile_box job_type: b
date_conditions: 1
start_times: "09:00"
 
insert_job: fsetlbqa_fsw_ETLB_spc_rep_box job_type: b
date_conditions: 1
days_of_week: mo,tu,we,th,fr,sa,su
start_times: "06:00"

#!/usr/bin/env perl

open(DAT, shift) || die("Could not open file!");
@data=<DAT>;
close(DAT);
foreach ( @data ) {
   chomp;
   if ( /([^:]+):\s*(.*)/ ) {
      $key=$1;
      $value=$2;
      $name=$value if ( $key =~ /insert_job/ && $value ne $name ) ;
      $job{$name}{$key}=$value;
      }
   }

foreach $name ( sort keys %job ) {
      if  ( ! $job{$name}{date_conditions} ) {
         print $name."\n";
         }
   }

script file

 
awk '/^$/ {p=1;q="";next} /insert/ {q=$0;next} q { print q;q=""} 1' input_file