init III

Perl Euronext Multicast Test Tool/sender.pl

@@ -0,0 +1,26 @@
+ #!/usr/bin/perl
+ # server
+ use strict;
+ use IO::Socket::Multicast;
+ use Getopt::Long;
+
+ my ($group,$port);
+  GetOptions(
+        "g=s" => \$group,
+        "p=s" => \$port
+  );
+  
+ 
+ #use constant DESTINATION => '226.1.1.2:2000'; 
+ my $sock = IO::Socket::Multicast->new(Proto=>'udp',PeerAddr=>$group,PeerPort=>$port);
+
+ while (1) {
+   #my $message = localtime;
+   my $message = "DATA";
+   #$message .= "\n" . `who`;
+   #$message .= "\n";
+   $sock->send($message) || die "Couldn't send: $!";
+ } continue {
+  sleep 1;
+ }
+