heres the sample output:#!/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; }
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: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 ÿýÿý ÿý#ÿý'
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!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
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
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |