Data:
Platform Address: C800071E Channel: 144W Code: N Start Time: 07266/22:25:02
Uncorrected Addr: C800071E QM: 46-0NN IFPD: 00 End Time: 07266/22:25:09
Length: 60 Xmit Time: 07266/22:25:09
PDT RECORD IS NOT COMPLETE
Platform Address: C800071E Channel: 144W Code: G Start Time: 07266/22:25:02
Uncorrected Addr: C800071E QM: 46-0NN IFPD: 00 End Time: 07266/22:25:09
Length: 224 Xmit Time: 07266/22:25:09
"{GTEC[46F6E1E9]0A064C4F4F0000E0021E7641033D3A0301022701FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF3BFFFFFFFFFFFFFF0000FFFF7FCD01871D02006D01C80C000000000000FFFFFFFFFFFFFFFF0000000000000000000000000000000000E30106098C0219070A0D034F}
Platform Address: C800071E Channel: 144W Code: N Start Time: 07266/20:25:02
Uncorrected Addr: C800071E QM: 47-0NN IFPD: FF End Time: 07266/20:25:09
Length: 60 Xmit Time: 07266/20:25:10
PDT RECORD IS NOT COMPLETE
Platform Address: C800071E Channel: 144W Code: G Start Time: 07266/20:25:02
Uncorrected Addr: C800071E QM: 47-0NN IFPD: FF End Time: 07266/20:25:09
Length: 224 Xmit Time: 07266/20:25:10
"{GTEC[46F6CA1A]0A064C4F4F1400DC023A76350340160301004C00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF46FFFFFFFFFFFFFF0000FFFF7FCD01871D02006D01C80C000000000000FFFFFFFFFFFFFFFF0000000000000000000000000000000000E50106098C0219070A0D6790}
Retrieved Data, Processing"
Perl:
print $t->getline;
$t->waitfor('/DISPLAY COMPLETE/');
$t->waitfor('/>/'); ## wait for the prompt after COMPLETE
print("Sending Data Request");
$t->print("ty msg list_id 1 266/20:05:05 267/00:00:00 !");
($lines) = $t->waitfor('/.*TYPE COMPLETE/');
## ($lines) = $t->getlines;
## print $lines;
## connect to db
# $dbh = DBI->connect($connectionInfo,$userid,$passwd);
# my iter = 1;
print("Retrieved Data, Processing");
# while(iter)
# {
$lines =~ /(.*)Address(.*)/;
my $var1 = $1;
my $var2 = $1;
print("$var1");
I need to get out the Xmit Time, the 4 chars after the {, and the rest of the data up to }