|So, if the primary fails secondry port should be created, then send function should send the message
I don't understand this. It's ok. But, if you want to create the secondary socket when the first socket fails and send message to secondary when the primary fails.
Here is my sample. May be you want this.
my $portp = 5000;
my $ports = 5001;
my $hostp = "localhost";
my $hosts = "localhost";
my $sock = IO::Socket::INET->new(Proto => 'tcp', PeerPort => $portp, P
+eerAddr => $hostp) || IO::Socket::INET->new(Proto => 'tcp', PeerPort
+=> $ports, PeerAddr => $hosts) or die "Can't create socket: $!\n";
print $sock "Hello from client\n";
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
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:
Outside of code tags, you may need to use entities for some characters:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, 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, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.
| & || & |
| < || < |
| > || > |
| [ || [ |
| ] || ] ||