计算机代考程序代写 #!/usr/bin/perl

#!/usr/bin/perl
#tcpclient.pl

use IO::Socket;

$socket = new IO::Socket::INET (
PeerAddr => ‘10.10.10.12’,
PeerPort => 7778,
Proto => ‘tcp’,
)
or die “Couldn’t connect to Server\n”;

while (1) {

$socket->recv($recv_data,1024);
print “RECIEVED: $recv_data”;
print “\nSEND(TYPE quit to Quit):”;

$send_data = ;
$tmp=$send_data;
chop($tmp); # get rid of new line

if ($tmp ne ‘quit’) {
$socket->send($send_data);
} else {
$socket->send($send_data);
close $socket;
last;
}

}