Shell十三问总结
摘要：我的系统中有哪些shell?可以查看/etc/shell这个文件。===
阅读全文
posted @ 2011-12-28 10:21
12 2011 档案
or与||
摘要：or比||优先级低，除此之外，两者无区别。下面代码输出什么？my $a = 0; $a = $a or 1;print $a, "\n";$a = $a || 1;print $a, "\n";输出：01为什么呢？因为||, =, or 这三者优先级从左至右逐渐降低。所以，这样写可以。chomp(my $filename = shift( @ARGV ) || <STDIN>);但是这样写就不行chomp(my $filename = shift( @ARGV ) or <STDIN>);会出现如下错误Can't modi
阅读全文
posted @ 2011-12-27 09:41
perl获取日起和时间
摘要：注意：localtime获取的年份是相对于1900的偏移，需要加上1900，而localtime获取的month范围是0-11,需要加1。my ($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst) = localtime(); $year += 1900; $mon++;my $date = "$year-$mon-$day"; print $date, "\n";==
阅读全文
posted @ 2011-12-26 15:47
perl正则表达式杂项
摘要：$也能匹配\n见Perl语言入门，page 132, 注释61 /^.*$/能匹配"\n"么？能！因为$不仅能匹配行尾，也能匹配\n2 /^.*$/能匹配"b\n"么？能！.能b匹配. \n匹配$3 /^.*$/能匹配"\nb"么？不能！为什么？因为默认情况下，.不能匹配\n,把模式改一下变成/^.*$/s就可以了，/s表示.能匹配任意字符，包括\n====多行匹配/m看一个例子，这段代码输出hellomy $text = "hello, world,\nhello zdd,\nhello autumn";whil
阅读全文
posted @ 2011-12-26 13:36
perl数据处理
摘要：来自CU的一道题有一组数据 ID 1 1 2 3 4 ID 2 1 2 3 4 ID 3 1 2 3 4 想变成 ID 1 1,2,3,4 ID 2 1,2,3,4 ID 3 1,2,3,4 请问该怎么写代码？谢谢了。我的代码，好复杂！use strict;use warnings;sub test { open SOURCE, '<', "d:/code/abc.txt" or die $!; open DEST, '>', "d:/code/def.txt" or die $!; my $items = q
阅读全文
posted @ 2011-12-26 09:38
时刻检查函数的返回值
摘要：比如下面这段代码会产生一个奇怪的错误，print() on closed filehandle FILE at d:\code\test.pl line 6.sub testdir { open FILE, ">>z:/zdd" ; print FILE "Hello, world\n";}其实根本原因是open函数失败了，因为z:盘根本不存在，但是我们没有检查open的返回值，所以这个错误很隐讳，正确的写法应该是sub testdir { open FILE, ">>z:/zdd" or die $!; pr
阅读全文
posted @ 2011-12-20 09:36
Putty退出全屏
摘要：將鼠標移動到屏幕左上角，然後單擊左鍵即可出現菜單，在菜單中選擇退出全屏。
阅读全文
posted @ 2011-12-14 09:15
od命令
摘要：原文链接语法：od ［选项］ 文件…命令中各选项的含义：- A 指定地址基数，包括：d 十进制o 八进制（系统默认值）x 十六进制n 不打印位移值- t 指定数据的显示格式，主要的参数有：c ASCII字符或反斜杠序列d 有符号十进制数f 浮点数o 八进制（系统默认值为02）u 无符号十进制数x 十六进制数除了选项c以外的其他选项后面都可以跟一个十进制数n，指定每个显示值所包含的字节数。说明：od命令系统默认的显示方式是八进制，这也是该命令的名称由来（OctalDump）。但这不是最有用的显示方式，用ASCII码和十六进制组合的方式能提供更有价值的信息输出。下面是一个例子od-Ax-tcx1
阅读全文
posted @ 2011-12-08 10:26
Perl处理文本一例
摘要：在CU上看到的一个题，觉得不错，就记录下来了。原文链接在这里我完全是门外汉，最近有一个文档要处理，如何用perl来做？谢谢了 一个文本文件里有多行如下，数量不定 Lif(__amscript_cd("www.xizi.com")){__amscript_wc('#closead {display:none;}');}; Lif(__amscript_cd("www.xizi.com")){__amscript_wc('#footer_win {display:none;}');}; Lif(__amscript_cd(&q
阅读全文
posted @ 2011-12-03 14:22
Perl最佳实践读书笔记-第四章（值和表达式）
摘要：字符串界定符perl中的字符串界定符有很多，这导致使用的时候经常造成混乱，下面是一些好的原则如果想在字符串直接量中插入变量，那么请使用双引号字符串。print "my name is: $name";如果无需插入变量且没有需要转义的字符，那么请使用单引号字符串。print 'Please go to www.google.com';如果字符串直接量无需插入变量且其中包含单引号，那么请使用q{}。my $string = q{Don't use single quote here!};如果满足上一条且字符串中还包换{}，那么改用其他的界定符即可比如q[
阅读全文
posted @ 2011-12-03 14:10
perl中的q,qq,qw,qr,qx
摘要：从网上看到的一篇文章，觉得不错，转过来了。在perl语言中，几个特殊而常用的符号：q是单引号qq是双引号qw单词列表引号qr正则表达式引号qx反引号其中qq，qw又较为常用。qq{foobar}的意思为意思为双引号字符串，可内插变量,相当于"foobar"qw{foobar}的意思为用空格分解字符串，得到列表，相当于如下语句split('','foobar')得到的结果是'foo','bar'q和qq运算符的特点：q和qq必须是一个标识符，而不是标识符的部分。例如：q(abc)用()作为分界符q(abc)用()
阅读全文
posted @ 2011-12-03 13:54
