✏️ 正在编辑: tcpcat.pl
路径:
/usr/share/doc/perl-Net-SSLeay/examples/tcpcat.pl
提示:
您可以编辑任何文件（包括二进制文件），但请注意不当修改可能导致文件损坏。
#!/usr/bin/perl # tcpcat.pl - Send a message and receive a reply from TCP server. # # Copyright (c) 2003 Sampo Kellomaki <sampo@iki.fi>, All Rights Reserved. # $Id$ # 17.8.2003, created --Sampo $host = 'localhost' unless $host = shift; $port = 443 unless $port = shift; $msg = "get \n\r\n" unless $msg = shift; print "$host $port $msg\n"; use Net::SSLeay qw(tcpcat); print tcpcat($host, $port, $msg); __END__
💾 保存文件
← 返回文件管理器