我是靠谱客的博主 跳跃棒棒糖,这篇文章主要介绍Perl Socket CRLF,现在分享给大家,希望可以做个参考。

找一个简单的Perl Socket程序,如下Server程序,运行它

    while(<CLIENT>){
        chomp;
        print "Message From Client: $_/n";
        print CLIENT $_;
    }

你将发现,server端程序无法发送信息到client,程序阻塞无法继续运行。

解决方法:
use Socket qw(:DEFAULT :crlf);
......

    while(<CLIENT>){
        chomp;
        print "Message From Client: $_/n";
        $_ .= CRLF;
        print CLIENT $_;
    }

原因:
一切都是CRLF,不同系统使用不同的换行符引起的

最后

以上就是跳跃棒棒糖最近收集整理的关于Perl Socket CRLF的全部内容,更多相关Perl内容请搜索靠谱客的其他文章。

本图文内容来源于网友提供,作为学习参考使用,或来自网络收集整理,版权属于原作者所有。
点赞(53)

评论列表共有 0 条评论

立即
投稿
返回
顶部