source: ntrip/trunk/BNC/test_bnc_eph.pl@ 1594

Last change on this file since 1594 was 643, checked in by weber, 17 years ago

* empty log message *

  • Property svn:executable set to *
File size: 685 bytes
Line 
1#!/usr/local/bin/perl -w
2
3use strict;
4use IO::Socket;
5
6# List of Parameters
7# ------------------
8my($port) = @ARGV;
9
10if (!defined($port)) {
11 die "Usage: test_bnc_eph.pl portNumber\n";
12}
13
14# Local Variables
15# ---------------
16my($serverHostName) = "localhost";
17my $server;
18
19my $retries = 10;
20while ($retries--) {
21 $server = IO::Socket::INET->new( Proto => "tcp",
22 PeerAddr => $serverHostName,
23 PeerPort => $port);
24 last if ($server);
25}
26die "Cannot connect to $serverHostName on $port: $!" unless ($server);
27
28my $buffer;
29while (defined ($buffer = <$server>)) {
30 print $buffer;
31}
32
33
Note: See TracBrowser for help on using the repository browser.