所以我在使用 while 循环遍历套接字时遇到了这个问题。
当我使用它时,它完全可以正常工作,但我在每个 $message
上都有换行符,这是我不想要的。
my $socket = new IO::Socket::INET (
LocalHost => "127.0.0.1",
LocalPort => "12345",
Proto => 'tcp',
Listen => 1,
Reuse => 1
);
my $client = $socket->accept();
while(<$client>) {
my $message = $_;
print $message;
}
但是当我添加 chomp 时,循环只有在我断开客户端连接时才结束(我明白为什么)。
我的猜测是 chomp 从 $_
变量中删除了换行符,因此循环将不再有效。
my $socket = new IO::Socket::INET (
LocalHost => "127.0.0.1",
LocalPort => "12345",
Proto => 'tcp',
Listen => 1,
Reuse => 1
);
my $client = $socket->accept();
while(<$client>) {
my $message = $_;
chomp($message);
print $message;
}
所以我的问题是:如何在消息中不包含换行符的情况下循环遍历套接字(换行符终止)?
非常感谢!
最佳答案
chomp
是在 $_
的副本上创建的,因此它根本不会影响套接字句柄。更有可能的是,删除换行符会使您的打印语句在缓冲区中等待,并在脚本终止后执行。
换句话说:这不是错误,只是延迟。
尝试使用 autoflush立即执行打印。
$| = 1;
关于perl - 使用 chomp() 时打印失败,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/8657486/