Goodday. I'm doing socketprogramming, trying to communicate with f.e. smtp,pop,ftp servers. Now i'm trying to ping a host, but don't know how to start. I've added some code i use to communicate to a smtp-server, to give an idea of what i had in mind.

use IO::Socket;
$ip = 'latte.isprime.com';
$sock = IO::Socket::INET->new(PeerAddr => $ip,
                                 PeerPort => 587,
                                 Proto    => 'tcp',
                 Timeout => 1,
                                 Type=>SOCK_STREAM);
                            
if($@) { print "$_ Failed\n"; }
else{
$sock->recv($ant,1024,0);
print $ant;
}
$groet = "EHLO latte.isprime.com\n";
print $groet;
print $sock $groet;
$sock->recv($ant,1024,0);
print $ant;
$afz = 'MAIL FROM:<ayfi@live.nl>'."\n";
print $afz; 
print $sock $afz;
$sock->recv($ant,1024,0);
print $ant;

[download]

My first problem is that i have no port to connect to. I've had a look at the Net::Ping.pm file and i can see sockets are used, but i can't just work my way through it. Can someone show me how to ping a host in this manner? Or can point me in the right direction? Thank you

In reply to pinging a remote machine by Anonymous Monk

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.