Miscellany

[g@garchlinux1 awk]$ cat bleh
Time: 7:04:01
bl
fl,
dol,
Time: 7:04:01
bl
dd
fl,
Time: 17:04:01
ddd
dd
dd
dd
d
d
d
d
d
dd
bl
fl,
Time: 17:04:01
bl
fl,
ds
ssd

A
dd
[g@garchlinux1 awk]$ cat 7am.tcl
#!/usr/local/bin/tclsh

set datafile [open "bleh" r]
set data [read -nonewline $datafile]
set lines [split $data "/n"]
set goodline 0
foreach line $lines {
  if {[string match {*Time:*} "$line"]} {
      if {[string match {*Time: 7*} "$line"]} {
         set goodline 1
         puts $line
      } else {
         set goodline 0
      }
  } elseif {$goodline == 1} {
      puts $line
  }
}
close $datafile