I've written a short script that checks to see if a remote server is listening on a specific TCP port. Its in the early stages, so some error checking needs to be built in. For now though, I'm confused by an error that I am getting when I test it using localhost as the guinea pig.

      1 #!/usr/bin/perl -w
      2 
      3 # $Id:$
      4 
      5 # check to see if server is listening on a tcp port
      6 
      7 use strict;
      8 use IO::Socket;
      9 
     10 my @servers = qw(localhost);
     11 
     12 my %ports =     (
     13                         telnet  => "23",
     14                         smtp    => "25",
     15                         pop3    => "110",
     16                         named   => "53",
     17                         http    => "80",
     18                         https   => "443",
     19                 );
     20 
     21 my $proto = "tcp";
     22 my $disco = 0;
     23 
     24 for my $host(@servers) {
     25 
     26   my $ip = gethostbyname($host);
     27   my $ip_addr = inet_ntoa($ip);
     28 
     29   for my $service(keys %ports) {
     30 
     31     my $disco = 0;
     32 
     33     my $checkport = IO::Socket::INET->new(
     34       PeerAddr  => "$ip_addr",
     35       PeerPort  => "$ports{$service}",
     36       Proto     => "$proto",
     37       Timeout   => '0')
     38         or $disco = "1";
     39 
     40     print "$host FAILED to repond on $service $ports{service}\
+n"
     41       if $disco;
     42 
     43     close $checkport;
     44 
     45   }
     46 }

[download]

When I run the script, I get:

Use of uninitialized value in concatenation (.) at ./chkport.pl line 4
+0.
localhost FAILED to repond on telnet 
Can't use an undefined value as a symbol reference at ./chkport.pl lin
+e 43.

[download]

i'm staring at the print statement and the close statement. Both seem to be correct to the best that I can tell. Your input is well appreciated as always.

humbly -c

In reply to Problem in IO::Socket syntax? by c

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.