I am using IO::Scoket module with tcp protocol.

server is running on linux box:

server code:

#!/usr/bin/perl -w
use strict;
use IO::Socket::INET;
my $Receiving_Port = 7777;

# flush after every write
$| = 1;
my ( $socket,      $received_data );
my ( $peeraddress, $peerport );
$socket = new IO::Socket::INET (
    LocalHost => '127.0.0.1',
    LocalPort => $Receiving_Port,
    Proto => 'tcp',
    Listen => 5,
    Reuse => 1
) or die "ERROR in Socket Creation : $!\n";
$socket->listen();
$socket->autoflush(1);
print "TCP Server Started\n";

my $addr;
while (1) {
    $addr = $socket->accept();
    print "$addr\n";
    $peeraddress = $addr->peerhost();
    $peerport = $addr->peerport() ;
    
    if ( $^O !~ m/mswin32/i )
    {
        $SIG{CHLD} = 'IGNORE';
    }
    while (<$addr>) {
        # Read all messages from client 
        # Print received message
        $received_data = $_;
        chomp($received_data);

        my $exitCode = RunCommand( $received_data, $peeraddress, $peer
+port );
        #exit $exitCode;
    }
}

$socket->close();

sub RunCommand
{
    my $Command_To_Send = shift;
    my $send_ip         = shift;
    my $peerport         = shift;
    # file handler which will have response values.
    
    if ( $Command_To_Send =~ m/Check Connectivity/i )
    {
        print $addr "Connected to TCP socket server\n";
        return 0;
    }
    return 0;
}
[download]

client is running on windows machine.

Client code

#!perl -w
use strict;
use IO::Socket::INET;
my $channel_id = open_channel("127.0.0.1", "7777");
sub open_channel {
    # create a connecting socket
    my $host = shift;
    my $port = shift;
    my $alrm_time_out = 5;
    if ( $host !~ m/(\d+)\.(\d+)\.(\d+).(\d+)/i ) {
        print "IP Address:'$host' is not a Valid IP-Address.";
        return 139;
    }
    my $socket = new IO::Socket::INET (
        PeerHost => $host,
        PeerPort => $port,
        Proto => 'tcp',
    );
    die "cannot connect to the server $!\n" unless $socket;
    
    if ( !defined $socket ) {
        print "Opening TCP Channel to host: $host and Port: $port Fail
+ed !!";
        return 138;
    }
    else {
        local $SIG{ALRM} = sub {
            close $ChannelID;
            print "=> Time-Out as no data received for '$alrm_time_out
+ sec'.!!\n";
        };
        $socket->send("Check Connectivity");
        alarm $alrm_time_out; 
        while (1) {
            my $recieved_data= <$socket>;
            if ( defined $recieved_data ) {
                chomp($recieved_data);
                if ($recieved_data =~ /Connected to TCP socket server/
+i){
                    print "TCP Connection established with Channel id:
+ '$socket'\n";
                    return $socket;
                    alarm 0;
                }
                else{
                    print "Cannot craete connection with server\n";
                    alarm 0;
                    return 137;
                }
            }
        }
        #$socket->close();
    }
 }
[download]

Problem: when server doesn't respond in that case alarm should invoke at client side but things are not happening so. please help me how to kill the client process when server doesn't respond.

---

---

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! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

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:
	&		&
	<		&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.