Re: socket help

in reply to socket help

The implicit use of global $_ in the client code seems a bit odd. This variable is not set explicitly from the command line without careful invocation:

echo myarg | perl -nle 'print "ARG=<$_>\n"'
ARG=<myarg>
[download]

You're better off, at least, fetching from ARGV:

my ($hostname) = @ARGV;
die "usage: $0 hostname" unless $hostname;
my $socket = new IO::Socket::INET ( 
                                  PeerAddr => $hostname, 
                                  PeerPort => '7071', 
                                  Proto => 'tcp', 
                               );
[download]

...or however you want to parse the command line arguments in @ARGV.

Comment on Re: socket help Select or Download Code

Replies are listed 'Best First'.
Re^2: socket help by Anonymous Monk on Feb 14, 2011 at 02:47 UTC
$_ is supposed to be $ARGV[0]. `PeerAddr => $ARGV[0],` [download] I've also tried using backticks chomp(my $output = `ls /tmp 2>&1`); [download] It's like the client isn't waiting for the server to finish	[reply] [d/l] [select]

In Section Seekers of Perl Wisdom