Perl语言入门习题答案.docxVIP

Perl语言入门习题答案

姓名：__________考号：__________

题号

一

二

三

四

五

总分

评分

一、单选题(共10题)

1.Perl脚本中，如何输出当前日期和时间？()

A.printlocaltime

B.printtime

C.printlocaltime(time)

D.printtime(time)

2.在Perl中，如何声明一个全局变量？()

A.my$var=10;

B.our$var=10;

C.local$var=10;

D.global$var=10;

3.以下哪个命令可以用来获取当前目录下所有的文件和目录？()

A.ls-l

B.ls-a

C.ls-R

D.ls-h

4.在Perl中，如何遍历一个数组？()

A.foreach(my$i=0;$i@array;$i++){...}

B.foreachmy$i(@array){...}

C.formy$i(@array){...}

D.while(@array){...}

5.Perl中的正则表达式通常使用什么符号？()

A.#

B./

C.%

D.

6.以下哪个函数可以用来获取用户输入？()

A.input

B.read

C.chomp

D.STDIN

7.如何判断一个字符串是否以某个子串开始？()

A.if($string=~/^substring/){...}

B.if($stringeqsubstring){...}

C.if($string=substring){...}

D.if($string=substring){...}

8.在Perl中，如何定义一个子程序（sub）？()

A.submysub{...}

B.subroutinemysub{...}

C.functionmysub{...}

D.proceduremysub{...}

9.如何将一个数组的值赋给另一个数组？()

A.$new_array=$array;

B.$new_array=$array=@array;

C.@new_array=@array;

D.$new_array=$array[0]..$array[-1];

10.以下哪个函数可以用来删除数组的最后一个元素？()

A.pop

B.shift

C.push

D.unshift

二、多选题(共5题)

11.在Perl中，以下哪些是有效的变量名？()

A.my$var

B.-var

C.my_var

D._var

12.以下哪些是Perl中的内置函数？()

A.chomp

B.sort

C.localtime

D.system

13.在Perl中，以下哪些是正则表达式的特殊字符？()

A..

B.*

C.?

D.|

14.以下哪些是Perl中的流程控制结构？()

A.if-else

B.for

C.while

D.foreach

15.在Perl中，以下哪些是用于文件操作的函数？()

A.open

B.read

C.write

D.close

三、填空题(共5题)

16.在Perl中，打印输出语句通常使用什么关键字？

17.在Perl中，如何声明一个数组变量？

18.Perl中的正则表达式中，表示任意单个字符的通配符是什么？

19.在Perl中，如何获取当前时间的时间戳？

20.Perl中的`local`关键字用于声明什么类型的变量？

四、判断题(共5题)

21.在Perl中，`my`关键字可以用来声明全局变量。()

A.正确B.错误

22.Perl中的正则表达式`/abc/`可以匹配字符串中的任意位置。()

A.正确B.错误

23.在Perl中，可以使用`$!`变量来获取最后一次系统调用的错误信息。()

A.正确B.错误

24.Perl中的`shift`函数只能用于数组。()

A.正确B.错误

25.在Perl中，子程序（sub）的参数数量是固定的。()

A.正确B.错误

五、简单题(共5题)