its me again, CHARLIE. anyway, i found a workaround in my problem. i found the command SHUTDOWN. heres my code:
#!/usr/bin/perl -w use IO::Socket; $host="202.46.24.25"; $port="21"; #$flags=100; while ($port<24) { $remote = IO::Socket::INET -> new ( Proto => "tcp", PeerAddr => $host, PeerPort => $port ) ; if ($remote) { # $remote->recv($line, $flags) or die "Can't recv: $!\n"; # sysread($remote, $line2, 4*1024) or die "couldn't read any data"; + # print $remote "test foo \n\n\n"; # print $remote "\^\]\[\n\n\n"; shutdown($remote, 1); # can be 0, 1, 2 @line = <$remote>; close $remote; print "$host:$port=>\tActive\t@line\n"; # print LOG "$host:$port=>\tActive\n"; # push @active_ports, $port; } else { print "$host:$port=>\tInactive\n"; # print LOG "$host:$port=>\tInactive\n"; } $port=$port+1; }
heres the sample output:
202.46.24.25:21=> Active 220 cronus.wima.ac.id FTP server (Vers +ion wu-2.6.1-20) ready. 221 You could at least say goodbye. 202.46.24.25:22=> Active SSH-1.99-OpenSSH_2.9p2 202.46.24.25:23=> Active ÿýÿý ÿý#ÿý'
the thing is... its already working. but my friends box when queried on telnet isnt supposed to display ÿýÿý ÿý#ÿý'. i dunno why that thing comes out on telnet queries. my friend's box should display the following:
Trying 202.46.24.25... Connected to 202.46.24.25. Escape character is '^]'. Red Hat Linux release 7.2 (Enigma) Kernel 2.4.7-10 on an i686
so got any ideas? please.... no NET::Telnet ideas! tnx for the responses. ive already done my part donating a working code, hope it will be useful for some persons, but i really need to make that TELNET response captured properly. tnx again!

In reply to Re: Re: how to terminate an IO:Socket Process prematurely? by Anonymous Monk
in thread how to terminate an IO:Socket Process prematurely? 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.