- 博客(4)
- 资源 (4)
- 收藏
- 关注
转载 屏幕上打印进度
#!/usr/bin/perl$|++;foreach (1..10){ print "/rthis is ", $_; sleep (1);}
2008-08-27 10:53:00 546
原创 非阻塞的Socket链接读取
use Errno qw(EWOULDBLOCK); eval{ alarm($time_out); #发送包 $succ_bytes=$socket->send("$_") || die "send date err! $!"; print "发送字节数为:$succ_bytes/n"; #接收包 #从包头读取包总长度
2008-08-27 10:50:00 552
原创 阻塞的Socket链接
#!/usr/bin/perl -w# socket_cli.plx# usage # socket_cli.plx 同一个文件重复运行次数 发送socket包存放的文件 [从文件第几行开始运行]use strict;use IO::Socket;use Benchmark;my $addr = 127.0.0.1;my $port = 40169;my $for_num = $
2008-08-26 10:42:00 531
原创 郁闷的csdn
前两天不能登录csdn,还以为自己dns机器坏了,上网问问,找找才知道被封了,网上传的风言风语,不知道那个是真的,但是这段时间不能更新blog,搞得我一些激情都没有了,唉,用csdn作资料整理备份还是不可靠呀今天赶紧上来踩一下.
2008-08-18 15:41:00 511
rinetd aix版 一个端口转发工具
2009-10-15
PleacPerl.chm
2008-04-02
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人