10 2011 档案

perl实现链表
摘要：perl数组的push,pop,shift,unshift操作可以实现栈，队列及双端队列，但是却不能支持链表的操作，所以创建链表要另寻他法。创建链表sub test { # Create list my $list = undef; foreach (reverse 1..5) { $list = [$list, $_ * $_] ; } }上面的代码创建一个简单的单向链表，它的过程如下[undef, 25][[undef, 25], 16][[[undef, 25], 16], 9][[[[undef, 25], 16], 9], 4][[[... 阅读全文

posted @ 2011-10-19 09:54 perlman 阅读(1268) 评论(0) 推荐(0) 编辑

perl中的bool值
摘要：perl中没有专门的bool类型，多数的判断都是通过数字和字符串完成的，如果不是数字和字符串则转换为数字和字符串再判断。perl中为假的值有以下几种数字0字符串0，'0', "0"空字符串，'', ""undef空列表空哈希所有其他值均为真值。注意，定义空列表或空哈希用()my @array = ();my %hash = () ;不能用undefmy @array = undef #这表示array有一个元素，是undef也不能用[]my @array = [] #这表示array有一个元素，是指向空列表的引用。== 阅读全文

posted @ 2011-10-14 11:23 perlman 阅读(1958) 评论(0) 推荐(0) 编辑

perl杂项
摘要：不好分类的暂时都放到这里判断两个数组所有元素是否相同直接比较数组名字即可，不必逐个元素比较。my @a = (1..10) ;my @b = (1..10) ;if (@a == @b) { print "equal\n" ; #equal}但需要注意一点，如果是数组的引用，那么就不能直接比较了。必须先解引用再比较。my $aref1 = [1..10] ;my $aref2 = [1..10] ;if ($aref1 == $aref2) { print "equal\n" # not equal}先解引用再比较my $aref1 = [1..10] 阅读全文

posted @ 2011-10-13 10:20 perlman 阅读(933) 评论(0) 推荐(0) 编辑

vim乱码问题
摘要：如果vimrc配置没有问题，但是仍然出现乱码，那么可能是控制面板配置错误，如下图。== 阅读全文

posted @ 2011-10-12 17:38 perlman 阅读(228) 评论(0) 推荐(0) 编辑

perl判断字符串包含
摘要：perl中没有判断字符串包含的函数，可以用正则表达式来实现这个功能，下面代码判断$str1是否包含$str2。if($str1 =~ /$str2/) { ...} 阅读全文

posted @ 2011-10-12 17:35 perlman 阅读(12848) 评论(0) 推荐(0) 编辑

在shell窗口中使用backspace删除字符
摘要：使用putty远程连接机器开发时，由于网络的不稳定性，采用screen可以减少许多问题。但在putty默认的情况下，在screen下使用vi时会 导致退格键无法使用（在vi上显示^?），解决的办法是在putty修改设置-->终端-->键盘页修改backspace的绑定键为 ctrl-H。原因分析如下： 一般在shell中会将ctrl-h和ctrl-?绑定为backspace，但这不是标准的。在screen是将backspace绑定到ctrl-h，所以在putty将backspace绑定为ctrl-?时，会在vi上显示^?而非删除前一字符。 阅读全文

posted @ 2011-10-07 10:45 perlman 阅读(1447) 评论(0) 推荐(0) 编辑

导航

< 2025年3月 >
日 一 二 三 四 五 六
23 24 25 26 27 28 1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 29
30 31 1 2 3 4 5
点击右上角即可分享
微信分享提示