Code

2010-06-05

perl_pop_push_shift_unshift

perl的pop跟push操作数组的最右边，shift跟unshift操作数组的最左边学习记录一下 #!/usr/bin/perl -w use strict; print ‘@a @b @c @d...

2010-03-05

Cannot send session cookie – headers already sent 网上很多文章,包括php的官方网站上写的session_start(); 之前不能有任何...

2010-02-06

由于工作上的需要,要将IP段计算成IP,perl的Net::IP刚好用上. #!/usr/bin/perl -w use strict; use Net::IP; my $ip = new Net::...

2010-02-04

FTP脚本上传个文件,如果目标机器已经有,就提示已经存在,并且显示文件大小, 如果没有这个文件就上传,很久没有摆弄php,顺手写了一个 #!/usr/bin/php -q

2010-01-29

收藏个perl的进度条 #!/usr/bin/perl -w $n = 27; for($i=1;$i