发布时间：2020-01-20 17:40:38
点击(此处)折叠或打开#!/usr/bin/perl# tcp_iosocket_dt_srv.pluse strict;use IO::Socket;use POSIX qw(WNOHANG);$SIG{CHLD} = sub { while((my $pid = waitpid.........【阅读全文】
发布时间：2020-01-20 17:40:36
点击(此处)折叠或打开#!/usr/bin/perl# tcp_iosocket_dt_srv.pluse strict;use IO::Socket;use POSIX qw(WNOHANG);$SIG{CHLD} = sub { while((my $pid = waitpid.........【阅读全文】
发布时间：2016-02-23 11:07:59
#!/usr/bin/perluse Modern::Perl;use Mail::POP3Client;use Email::MIME;use IO::Socket::SSL;use Encode;use HTML::Strip;# Set output to UTF8use utf8;use open ':std', ':encoding(UTF-8)';#binmode(STDOUT, ":utf8");#binmode(STDIN, ':encoding(utf8)');#binmode(STDOUT, ':encoding(utf8)');#bi.........【阅读全文】
发布时间：2015-09-11 09:57:40
客户端：send_socket.pl
注意的是回车符\r\n 的运用。还有boundary的分隔符。
post参数可以加多个，文件也一样可以加多个。
命令：perl send_socket.pl 123.99.86.60 80
点击(......【阅读全文】
发布时间：2015-06-11 15:25:29
OSName=57696E646F7773203720202853657276696365205061636B203129&CpuCount=38十六进制转ASCIIchr( hex($OSName) ) = Windows 7 (Service Pack 1) chr( hex($CpuCount) ) = 8chr( 0x34 ) = 4......【阅读全文】
