Data: *** MESSAGE FILE *** Selection By: LIST_ID Platform: List: 1 Channel: Start: 07263/19:38:13 End: 07266/19:38:13 Types: G?WDABTUMINQC -------------------------------------------------------------------------------- Platform Address: C800071E Channel: 144W Code: N Start Time: 07264/00:25:02 Uncorrected Addr: C800071E QM: 46-0NN IFPD: FF End Time: 07264/00:25:09 Length: 60 Xmit Time: 07264/00:25:10 PDT RECORD IS NOT COMPLETE Platform Address: C800071E Channel: 144W Code: G Start Time: 07264/00:25:02 Uncorrected Addr: C800071E QM: 46-0NN IFPD: FF End Time: 07264/00:25:09 Length: 224 Xmit Time: 07264/00:25:10 {GTEC[46F30BD4]0A064C4F4FC4005402EF753503412B030401FC00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF40FFFFFFFFFFFFFF0000FFFF7F7B01871D00001B01760C000000000000FFFFFFFFFFFFFFFF0000000000000000000000000000000000E101063F8D0217070A0DD948} Platform Address: C800071E Channel: 144W Code: N Start Time: 07263/23:25:02 Uncorrected Addr: C800071E QM: 46-0NN IFPD: FF End Time: 07263/23:25:09 Length: 60 Xmit Time: 07263/23:25:09 PDT RECORD IS NOT COMPLETE Platform Address: C800071E Channel: 144W Code: G Start Time: 07263/23:25:02 Uncorrected Addr: C800071E QM: 46-0NN IFPD: FF End Time: 07263/23:25:09 Length: 224 Xmit Time: 07263/23:25:09 "{GTEC[46F2FFED]0A064C4F4FEC00520209763403403C0301035B01FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF3AFFFFFFFFFFFFFF0000FFFF7F7B01871D00001B01760C000000000000FFFFFFFFFFFFFFFF00000000000000000000000000000000001102060C8D0217070A0D6F47} Platform Address: C800071E Channel: 144W Code: N Start Time: 07263/22:25:02 Uncorrected Addr: C800071E QM: 46-0NN IFPD: FF End Time: 07263/22:25:09 Length: 60 Xmit Time: 07263/22:25:10 PDT RECORD IS NOT COMPLETE Platform Address: C800071E Channel: 144W Code: G Start Time: 07263/22:25:02 Uncorrected Addr: C800071E QM: 46-0NN IFPD: FF End Time: 07263/22:25:09 Length: 224 Xmit Time: 07263/22:25:10 "{GTEC[46F2EE12]0A064C4F4F000050022B76300341210302013401FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF43FFFFFFFFFFFFFF0000FFFF7F7B01871D00001B01760C000000000000FFFFFFFFFFFFFFFF0000000000000000000000000000000000480206098D0217070A0D34BF} Platform Address: C800071E Channel: 144W Code: N Start Time: 07263/21:25:02 Uncorrected Addr: C800071E QM: 46-0NN IFPD: FF End Time: 07263/21:25:09 Length: 60 Xmit Time: 07263/21:25:09 PDT RECORD IS NOT COMPLETE Platform Address: C800071E Channel: 144W Code: G Start Time: 07263/21:25:02 Uncorrected Addr: C800071E QM: 46-0NN IFPD: FF End Time: 07263/21:25:09 Length: 224 Xmit Time: 07263/21:25:09 "{GTEC[46F2E22A]0A064C4F4F00004E022C762E033F2C030502F000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF3DFFFFFFFFFFFFFF0000FFFF7F7B01871D00001B01760C000000000000FFFFFFFFFFFFFFFF0000000000000000000000000000000000E10106098D0217070A0DA95E} Platform Address: C800071E Channel: 144W Code: N Start Time: 07263/20:25:01 Uncorrected Addr: C800071E QM: 46-0NN IFPD: FF End Time: 07263/20:25:09 Length: 60 Xmit Time: 07263/20:25:09 PDT RECORD IS NOT COMPLETE Platform Address: C800071E Channel: 144W Code: G Start Time: 07263/20:25:01 Uncorrected Addr: C800071E QM: 46-0NN IFPD: FF End Time: 07263/20:25:09 Length: 224 Xmit Time: 07263/20:25:09 "{GTEC[46F2D643]0A064C4F4F00004D0239762C0340460304020C01FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF35FFFFFFFFFFFFFF0000FFFF7F7B01871D00001B01760C000000000000FFFFFFFFFFFFFFFF0000000000000000000000000000000000FC0106098D0217070A0DB390} TYPE COMPLETE > Code: #######Test with static data. How do we get the loop to stop?###########3 use Net::Telnet(); use DBI; ($lines) = "Platform Address: C800071E Channel: 144W Code: N Start Time: 07263/22:25:02 Uncorrected Addr: C800071E QM: 46-0NN IFPD: FF End Time: 07263/22:25:09 Length: 60 Xmit Time: 07263/22:25:10 PDT RECORD IS NOT COMPLETE Platform Address: C800071E Channel: 144W Code: G Start Time: 07263/22:25:02 Uncorrected Addr: C800071E QM: 46-0NN IFPD: FF End Time: 07263/22:25:09 Length: 224 Xmit Time: 07263/22:25:10 \"{GTEC[46F2EE12]0A064C4F4F000050022B76300341210302013401FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF43FFFFFFFFFFFFFF0000FFFF7F7B01871D00001B01760C000000000000FFFFFFFFFFFFFFFF0000000000000000000000000000000000480206098D0217070A0D34BF} Platform Address: C800071E Channel: 144W Code: N Start Time: 07263/21:25:02 Uncorrected Addr: C800071E QM: 46-0NN IFPD: FF End Time: 07263/21:25:09 Length: 60 Xmit Time: 07263/21:25:09 PDT RECORD IS NOT COMPLETE Platform Address: C800071E Channel: 144W Code: G Start Time: 07263/21:25:02 Uncorrected Addr: C800071E QM: 46-0NN IFPD: FF End Time: 07263/21:25:09 Length: 224 Xmit Time: 07263/21:25:09 \"{GTEC[46F2E22A]0A064C4F4F00004E022C762E033F2C030502F000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF3DFFFFFFFFFFFFFF0000FFFF7F7B01871D00001B01760C000000000000FFFFFFFFFFFFFFFF0000000000000000000000000000000000E10106098D0217070A0DA95E} Platform Address: C800071E Channel: 144W Code: N Start Time: 07263/20:25:01 Uncorrected Addr: C800071E QM: 46-0NN IFPD: FF End Time: 07263/20:25:09 Length: 60 Xmit Time: 07263/20:25:09 PDT RECORD IS NOT COMPLETE Platform Address: C800071E Channel: 144W Code: G Start Time: 07263/20:25:01 Uncorrected Addr: C800071E QM: 46-0NN IFPD: FF End Time: 07263/20:25:09 Length: 224 Xmit Time: 07263/20:25:09 \"{GTEC[46F2D643]0A064C4F4F00004D0239762C0340460304020C01FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF35FFFFFFFFFFFFFF0000FFFF7F7B01871D00001B01760C000000000000FFFFFFFFFFFFFFFF0000000000000000000000000000000000FC0106098D0217070A0DB390} TYPE COMPLETE"; #print("\nWhole string: $lines\n"); ## connect to db # $dbh = DBI->connect($connectionInfo,$userid,$passwd); my $notatend = 5; #Maximum amount of loopage. my $EndMatch = ""; print("Retrieved Data, Processing"); while($notatend) { print("Iteration: $notatend\n"); $lines =~ /(.*?)\x7B{1}(\D\D\D\D)(\S*?)\x7D{1}(.*)/s; #Get timestamp, PlatformID, #Data and the rest $before = $1; $platform = $2; $data = $3; $after = $4; #print("AFTER SHOULD WORK HERE: $after"); $before =~ /\s*(\S*)\s*\"*\Z/s; my $DateTime = $1; #the whole date print ("$DateTime"); $DateTime =~ /(\d\d)(\d\d\d)\/(\d\d:\d\d:\d\d)/s; my $year = $1; #the year my $day = $2; #the day of year my $time = $3; #the time stamp $year = "20$year"; print ("Year: $year "); print ("Day: $day "); print ("Time: $time "); print ("Platform: $platform"); print ("Data: $data"); # print ("After: $after"); print ("\n\n"); if ($notatend eq 2){ print("\n$after"); } # $after =~ /\s*?(\D\D\D\D)(.*)/s; #try to catch "TYPE COMPLETE" not working... # $EndMatch = $1; # $lines = $2; # print ("EndMatch: $EndMatch"); # if ($EndMatch eq "TYPE") { # $atend = 1; # } $query = "INSERT INTO dcsdata (StationID, TransmitTime, WSData) VALUES('".$platform."', timestamp(makedate(".$year.", ".$day."), ".$time."), '".$data."');"; print($query."\n"); $notatend = $notatend -1; #failsafe countdown if ($after eq '') { $notatend = 0; print("After is ZERO........"); } #I don't know why it works, but it does. $lines = $after; #reset lines for next iteration, moved here for debugging } # $sth2 = $dbh->prepare($query); # $sth2->execute() or print("DB Error\n"); # $sth->finish(); # disconnect from database # $dbh->disconnect(); exit;