Shell Programming and Scripting

awk '{ f=substr($0, 1, 6000); gsub (/[^a-zA-Z0-9+_:-]/, "", f);
    if (f ~ ... hit on ex:Msg ...) ... extract and print ex:Msg data ...;
    if (f ~ ... hit on PutDate ...) ...extract and print PutDate ...;
   ... etc' temp01

perl -ne '$f = substr($_, 0, 5999);
  if ($f =~ /ex:Msg(.*?)ex:Msg/) { print "MsgId = $1\n"; }
  if ($f =~ /PutDate(.*?)PutTime/) { print "Put Date = $1\n"; }
  if ($f =~ /PutTime(.*?)ApplOrgin/) { print "Put Time = $1\n"; }
  if ($f =~ /CreationTimeStamp(.*?)CreationTimeStamp/) { print "Timestamp = $1\n"; }' temp01

cut -c1-6000 temp01 | sed '
  # Copy data to hold space
  h
  # Substitute MsgId and print
  s/.*ex:Msg\(.*\)ex:Msg.*/MsgId = \1/p
  # Copy back from hold space
  g
  # Similar for Put Date, Put Time, and Timestamp
  s/.*PutDate\(.*\)PutTime.*/Put Date = \1/p
  g
  s/.*PutTime\(.*\)ApplOrigin.*/Put Time = \1/p
  g
  s/.*CreationTimeStamp\(.*\)CreationTimeStamp.*/Timestamp = \1/p'