newperl module for trbnetd

diff --git a/libtrbnet_perl/test/HADES-TrbNet.t b/libtrbnet_perl/test/HADES-TrbNet.t
new file mode 100644 (file)
index 0000000..0865a85
--- /dev/null
+++ b/libtrbnet_perl/test/HADES-TrbNet.t
@@ -0,0 +1,15 @@
+# Before `make install' is performed this script should be runnable with
+# `make test'. After `make install' it should work as `perl HADES-TrbNet.t'
+
+#########################
+
+# change 'tests => 1' to 'tests => last_test_to_print';
+
+use Test::More tests => 1;
+BEGIN { use_ok('HADES::TrbNet') };
+
+#########################
+
+# Insert your test code below, the Test::More module is use()ed here so read
+# its man page ( perldoc Test::More ) for help writing this test script.
+

diff --git a/libtrbnet_perl/test/test.pl b/libtrbnet_perl/test/test.pl
new file mode 100755 (executable)
index 0000000..9456e28
--- /dev/null
+++ b/libtrbnet_perl/test/test.pl
@@ -0,0 +1,19 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+use Data::Dumper;
+#use Data::HexDump;
+
+use HADES::TrbNet qw(trb_uid init_ports);
+
+my $connect_status = init_ports();
+
+my @res = trb_uid(0xffff);
+
+#print Dumper \@res;
+for (my $k = 0; $k < scalar @res; $k += 4) {
+       my $uid = ($res[$k] << 32) | $res[$k + 1];
+    my $endP = $res[$k + 2];
+    my $sender =  $res[$k + 3]; 
+    printf "0x%04x  0x%016x  0x%02x\n",  $sender, $uid , $endP;
+}