http://www.perlmonks.org?node_id=1046821

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

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

Replies are listed 'Best First'.
Re: pinging a remote machine
by Anonymous Monk on Jul 29, 2013 at 10:08 UTC

    Can someone show me how to ping a host in this manner

    Why?

    Or can point me in the right direction? Thank you

    Why can't you use Net::Ping ?

[reply]
Re: pinging a remote machine
by McA (Priest) on Jul 29, 2013 at 10:08 UTC

    Hi,

    what is wrong with Net::Ping?

    Best regards
    McA

[reply]
[d/l]
Re: pinging a remote machine
by Anonymous Monk on Jul 29, 2013 at 10:30 UTC

    nothing wrong.

[reply]

      I'm just asking, because your question makes me feel that there are other questions to be answered before you start a perl implementation on your own.

      You wrote:

      My first problem is that i have no port to connect to.

      Do you mean a ICMP-ping or a UDP-ping? Answering this question will bring you a step further.

      Another option for you is: Ask a more specific question concerning a part of Net::Ping's sources you don't understand. I'm sure, Monks will help you.

      Best regards
      McA

[reply]

Back to Seekers of Perl Wisdom