请教perl Socket问题

lc1111

#!usr/bin/perl

#simpleclient.pl
use warnings;
use strict;

use IO::Socket;

my $remote_host='192.168.0.90';
my $remote_port=23;
my $response;

my $socket=IO::Socket::INET->;new
(
        PeerAddr=>;$remote_host,
        PeerPort=>;$remote_port,
        Proto=>;'tcp',
        Timeout=>;'10',
        Type=>;SOCK_STREAM
) or die "Contecting to $remote_hostremote_port@";
print $socket "GET /HTTP/1.0\n\n";

$response .=$_while(<$socket>;
print $response;

close($socket);
exit;

**************************************
# perl simpleclient.pl

Global symbol "$_while" requires explicit package name at simpleclient.pl line 23.
syntax error at simpleclient.pl line 23, near "$_while("
Execution of simpleclient.pl aborted due to compilation errors.


请高手指点！！！

flw

你这是抄来的别人的代码吧？
好歹也应该学点儿 Perl 的入门知识。
把

1. $response .=$_while(<$socket>;);

复制代码

改成

1. $response .=$_ while(<$socket>;);

复制代码

就好了。

lc1111

多谢！

lc1111

我试试，你那地方加了一个空格是么？ 多谢！ 我刚看出来！！