Shell Programming and Scripting

Hi,

Can anyone help me for merge the following multi-line logs( the black lines) which beginning with time: into one line. For the line with "-", it needs to be deleted. Please see the red color line.

#########################################
time: 20080817073334
dn: uid=ok,ou=nbt users,cn=998,dc=tcb,dc=com
changetype: modify
replace: NBTSignOn
NBTSignOn: 20080817 172.31.4.81 998A
-
replace: modifiersName
modifiersName: uid=ok,ou=nbt users,cn=998,dc=tcb,dc=com
-
replace: modifyTimestamp
modifyTimestamp: 20080816233336Z
-
-->
time: 20080817073334 dn: uid=ok,ou=nbt users,cn=998,dc=tcb,dc=com changetype: modify replace: NBTSignOn NBTSignOn: 20080817 172.31.4.81 998A replace: modifiersName modifiersName: uid=ok,ou=nbt users,cn=998,dc=tcb,dc=com replace: modifyTimestamp modifyTimestamp: 20080816233336Z

time: 20080817074803
dn: uid=on,ou=nbt users,cn=009,dc=tcb,dc=com
changetype: modify
replace: NBTSignOn
NBTSignOn: 20080817 172.16.8.82 009G
-
replace: modifiersName
modifiersName: uid=on,ou=nbt users,cn=009,dc=tcb,dc=com
-
replace: modifyTimestamp
modifyTimestamp: 20080816234805Z

--> time: 20080817074803 dn: uid=on,ou=nbt users,cn=009,dc=tcb,dc=com changetype: modify replace: NBTSignOn NBTSignOn: 20080817 172.16.8.82 009G replace: modifiersName modifiersName: uid=on,ou=nbt users,cn=009,dc=tcb,dc=com replace: modifyTimestamp modifyTimestamp: 20080816234805Z

Assuming all logical records end with modifyTimestamp:
(use nawk or /usr/xpg4/bin/awk on Solaris)

Code:

awk '!/^-/ { 
  r = r ? r FS $0 : $0 
  }
/^modifyTimestamp/ {
  print r; r = ""
  }' infile

Code:

#! /usr/bin/perl
open FH,"<a.txt";
undef $/;
my @arr=split("\n",<FH>);
$str=join " ",grep {m/[^-]/} @arr;
$str=~s/ time/\ntime/;
print $str,"\n";

Hi,

Can help me more? to write the result into a output file. Thanks