posted @ 2013-08-16 23:55
随笔分类 - Perl
摘要:printf "%#07s","12"; #0000012
阅读全文
摘要:(原链接)对一个二维hash去重。用perl,php现成的函数就没有了比如一个hash(%hash),如下:my %hash = ( '11' => { 'mark' => '14656,13566-13570' 'id' => 5 }, '21' => { 'mark' => '14656,13566-13570' 'id...
阅读全文
posted @ 2013-08-10 10:07
摘要:在设置好IIS后,写下第一个CGI程序:#! D:\Perl\bin\perl -wprint "Content-type: text/html\n\n";print About this serverServername:END_OF_HTML这时候,键入http://localhost/cgi/first.cgi却总是显示下列错误:CGI ErrorThe specified CGI application misbehaved by not returning a complete set of HTTP headers. The headers it did ret
阅读全文
posted @ 2013-08-09 18:55
摘要:$ 入门参考书 $大道PHP:LAMP+Zend+开源框架整合开发与实战PHP和MySql Web开发(第三版)Learning Perl /《Perl语言入门》第五版 #基本知识Advanced Perl Programming /《高级Perl编程》 #补充CGI Programming with Perl, Second Edition /《CGI编程--使用perl》 #网页相关Programming the Perl DB...
阅读全文
posted @ 2013-08-09 18:51
摘要:$current_line{'vs1'}='first';$vs1_key=12;push @{ ${$vs1{"$current_line{'vs1'}"}}{$vs1_key} }, "sdsd";print @{${$vs1{'first'}}{12}}; # "sdsd"其数据结构:
阅读全文
posted @ 2013-08-09 15:37
摘要:1 for (1..5){2 $name="$_";3 ${"var".$name}="Hello,this is VAR $_!";4 }5 print $var3; #Hello,this is VAR 3!可以用这个实现动态定义新变量。对于一般的符号引用,可以省略{}:$name="some";$$name = 3;#${$name}=3; # same above#$some=3; # same aboveprint $some;注意:一旦用了use strict; 符号引用就会失效!参考(转载):==通过
阅读全文
posted @ 2013-08-09 08:39
摘要:$vs1{'$key'} = \['sd','we']; #push @{$vs1{'$key'}},14; #Not an ARRAY referenceprint @{${$vs1{'$key'}}}; # sdwe等同于$vs1{'$key'} = ['sd','we']; print @{$vs1{'$key'}}; # sdwe也就是说开始的\是多余的,因为[]返回的已经是reference这也是为什么$vs1{'$key'}
阅读全文
posted @ 2013-08-08 23:34
浙公网安备 33010602011771号