Pretty good in fact, but it has a few flaws:

Here is a (only sligtly tested) version of how I would do it when using IO::Socket::INET and IO::Select (in reality I would use POE). Like you I will assume the protocol does pipelining, otherwise you should immediately start checking for readability to drain pending output that can block the server. I'm also assuming that the server finishes with EOF, otherwise you might already want to start checking for your target string inside the read loop. 

#! /usr/bin/perl -w
use strict;
use IO::Socket::INET;
use IO::Select;
use POSIX qw(EWOULDBLOCK EINTR);

my $timeout = 180;
my ($host, $port, $string) = @ARGV;

my $too_late = time()+$timeout;
my $socket = IO::Socket::INET->new(PeerAddr => "$host:$port",
                                   Blocking => 0) ||
    die "Could not connect to $host:$port: $!\n";

# Write (also handles connect, since being connected is a writability 
+event)
$SIG{PIPE} = "IGNORE";
my $command = "EDMSFT|$string|\@\n";
my $select = IO::Select->new($socket);
while ($command ne "") {
    my $left = $too_late - time();
    if ($left <= 0) {
        print "TIMEDOUT\n";
        exit;
    }
    next unless $select->can_write($left);
    if (defined(my $rc = syswrite($socket, $command))) {
        substr($command, 0, $rc, "");
    } else {
        next if $! == EWOULDBLOCK || $! == EINTR;
        die "Error writing to $host:$port: $!\n";
    }
}

# Read
my $text = "";
while (1) {
    my $left = $too_late - time();
    if ($left <= 0) {
        print "TIMEDOUT\n";
        exit;
    }
    next unless $select->can_read($left);
    my $rc = sysread($socket, $text, 4096, length $text);
    if (!$rc) {
        last if defined $rc;    # EOF
        next if $! == EWOULDBLOCK || $! == EINTR;
        die "Error reading from $host:$port: $!\n";
    }
}

$text =~ /\Q$string\E/ || 
    die "Unexpected answer from $host:$port: $text";
print "GOOD\n";

[download]

In reply to Re^2: Using IO::Socket by thospel
in thread Using IO::Socket by Earindil

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.