forum.lissyara.su

Код: Выделить всё

#!/bin/bash
read T
T="0x"$T
echo $(($T))

Код: Выделить всё

#!/usr/local/bin/bash
time_last=0
while read line
do
	if ([ "${line:0:2}" == "\$\$" ]) 
	then
		length=${line:2:2}
		length="0x"$length
		echo $(($length)) >> /tmp/testtcp
echo "line=$line" >> /tmp/testtcp
	else
	                continue
	fi
done

Код: Выделить всё

$$c0??115828.000,A,5556.4268,N,03730.6162,E,0.00,,111211,,,A*7B|10.1|200|0000|0001,0001

Код: Выделить всё

#!/usr/bin/perl -w
use strict;
use IO::Socket;
my($sock, $oldmsg, $newmsg, $hisaddr, $hishost, $MAXLEN, $PORTNO, $test, $l);
$MAXLEN = 1024;
$PORTNO = 9877;
$sock = IO::Socket::INET->new(LocalPort => $PORTNO, Proto => 'udp')
  or die "socket: $@";
print "Awaiting UDP messages on port $PORTNO\n";
$oldmsg = "This is the starting message.";
while ($sock->recv($newmsg, $MAXLEN)) {
  my($port, $ipaddr) = sockaddr_in($sock->peername);
  $hishost = gethostbyaddr($ipaddr, AF_INET);
  print "Client $hishost said  $newmsg \n";
$test = substr($newmsg, 4, 10);
print "substr2 = $test \n";
$oldmsg = unpack("H14",$test);
print "hex2 = $oldmsg \n";
$l = length($oldmsg);
print "l = $l \n";
$newmsg = substr($newmsg, 13, -4);
$newmsg = unpack("a100",$newmsg);
print $newmsg."\n";
  open F, "+>>/tmp/gps_tmp.txt";
  print F $newmsg.",".$oldmsg."\n";
  close F;
}
die "recv: $!";