ptsample - - 1 - Perl 测验模拟试题 (2008-6-5) 学号

Info iconThis preview shows pages 1–2. Sign up to view the full content.

View Full Document Right Arrow Icon

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: - 1 - Perl 测验模拟试题 (2008-6-5) 学号 ___________________ 姓名 _______________ 考试日期 ______________ 成绩 _____________________ 一、是非题 ( √ 表示对 , × 表示错 ) 共 17 题,每题 2 分 a) [ ] 比较两个字符串的大小,应该用 < ,而不是 lt b) [ ] 想打印出 myname@server.com, 要用 print "myname\@server.com"; c) [ ] Perl 中 , 1234 和 01234 表示相同的数字 . d) [ ] 假定 $i 是 Perl 类 Math::BigInt 的一个对象,则 ref($i) 返回 "BigInt" 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'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 的...
View Full Document

Page1 / 4

ptsample - - 1 - Perl 测验模拟试题 (2008-6-5) 学号

This preview shows document pages 1 - 2. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online