Perl 测验模拟试题2006-4-13 学号_ 姓名_ 考试日期_______ 成.pdf

Perl 验模拟试题(2006-4-13) 学号___________________ 姓名_______________ 考试日期______________ 成绩_____________________ 一、是非题(表示对, 表示错) 共17 题，每题2 分 a) [ ] 比较两个字符串的大小，应该用< ，而不是lt b) [ ] 想打印出myname@, 要用 print "myname\@"; c) [ ] Perl 中, 1234 和01234 表示相同的数字. d) [ ] Perl 语言是Larry Wall 发明的 e) [ ] 正则表达式运算可以加修饰符，比如s!a!AA!g 的g 表示大小写无关的匹配 f) [ ] perl v 命令可以显示perl 的版本号, 但perl V 不行. g) [ ] print 是打印函数,print(1+2+4)打印7,而print 1+2+4 语法错 h) [ ] 这段程序会因为出错而中断执行: $z = 0; eval {$x = 100 / $z}; i) [ ] "1234"+1234 语法错 j) [ ] Perl 中, 2 ^ 3 表示2 的3 次方,结果应该是8 k) [ ] 看看$str 是否含有字母, 有就打印"YES",可以这样写: print "YES" if $str=~/[A-Z]/i; l) [ ] 目前Perl 只能在微软Windows 上运行, 还没有被移植到Unix 和Linux 上 m) [ ] Perl 不是免费的 n) [ ] 这段程序打印"Y": %a=(a=>1, b=>2); undef $a{a}; print "Y" if exists $a{a}; o) [ ] @A 是一个非空数组,$A[1]是@A 的下标最小的元素,而$A[last]是@A 下标最大的元素 p) [ ] open(FD,"<filename")和open(FD,"|filename")是一样的,都是以读方式打开文件 q) [ ] 判断字符串是否包含连续2 个,3 个或4 个0 的正则表达式是: /'0'x2|'0'x3|'0'x4/ 二、选择题, ( )表示单选, [ ]表示多选, 在括号 写出答案: 共10 题，每题3 分 a) 下列这些表示方式, 哪些表示了列表(10, 9, 8, 7, 6, 5, 4, 3, 2, 1): (1). (10, 9, 8, 7, 6, 5, 4, 3, 2, 1) (2). (10..1) (3). (10..6, 5..1) (4). (10..6, (5..1)) (5). 以上都不对 答案多选 [ ] b) 下列程序片断运行的结果, @junk 的值是: @junk = (0..3, "XYZ", 3..4); ($one, $two, $three, @more, $last) = @junk; ($one, $two) = ($two, $one); @junk = ($one, $two, $last); (1). (1, 0); (2). (1, 1); (3). (1, 0, 4); (4). (1, 1, 4); (5). 以上都不对, 是其他值 答案单选 ( ) c) 下列程序片断运行的结果, @junk 的值是: @arr = (4, 5, 6); push @arr, (10, 11); shift @arr; unshift @arr, "ABC"; pop @arr; (1). ("ABC", 5, 6, 10); (2). (10, 5, 6, "ABC"); (3). (4, 5, 6, "ABC", 10); (4). (10, "ABC", 4, 5, 6);