某知名公司Perl面试题及答案

原创 2006年05月17日 21:04:00

蓝色部分为我的作答

Software Configuration Management Question

 

Perl  

Basic

 

1. Which statement is wrong:

 

A.        $_= 'hello world';

 

B.        $a='hello world';

 

C.        my $b,$a='hello world';

 

D.       my ($a,$b)=(0,'hello world');

 

Item C: $b is empty and $a is ‘hello world’

All of items is correct in program syntax, and can run.

 

 

2. The expression should be (B), then the following code can run correctly:

 

$a=0;$b=55;

 

while (expression)

 

{

 

  $a+=2;

 

}

 

print "$a/n";

 

A.        $a = $b

 

B.        $a*$a <= $b

 

C.        $a != $b

 

D.       $b == 0

 

 

 

3. @array is an array variable, what is output of “print @array;” :A

 

A.        Each element of this array

 

B.        The size of this array

 

C.        The first element of this array

 

D.       Nothing

 

 

 

4. “$a = @array;”, what is value of $a: B

 

A.        The first element’s value of this array

 

B.        The size of this array

 

C.        This line code is wrong

 

D.       N/A

 

 

 

5. Which code snippet can print all elements in %abcd: B

 

A.    foreach $Var (keys %abcd)

 

   {

 

     print “$Var /n”;

 

   }

 

B.    for ($I=0;$I<%abcd;$I++)

 

   {

 

     print “$%abcd{$I} /n”;

 

   }

 

C.    while ($Var (keys %abcd))

 

   {

 

     print “$Var /n”;

 

   }

 

D.    print join(‘/n’,%abcd);

 

 

 

 


Advance:

 

6. After execute following code snippet, what is value of $count: B (match twice)

 

$Str=’hello world!’;

 

$count=0;

 

while ($Str=~m/(/w+)/g)

 

  {

 

    $count++;

 

  }

 

A.        1

 

B.        2

 

C.        3

 

D.       12

 

 

 

7. What is the result of $string? D

 

$string = "This string contains the number 25.11.";

$string =~ /-?(/d+)/.?(/d+)/;

 

A.        25.

 

B.        .11

 

C.        25.11

 

D.                             25.11.

I don’t know what is meaning of -, but perhaps the answer is D

 

 

8. What is meaning of following code snippet?

 

  open(MYFILE,"temp.txt");

 

  while (<MYFILE>) {

 

    while ( /(/w)/g ) {

 

      $seen{$1}++;

 

    }

 

  }

 

  foreach $word(keys %seen)

 

  {

 

    print "$seen{$word} $word/n";

 

  }

 

  close(MYFILE);

 

A.        Delete all words in temp.txt

 

B.        Calculate the frequency of each word in temp.txt

 

C.        Wrong code

 

D.       Calculate the sum of words in temp.txt

 

$1 is first variable of group match of perl, it match a char here.

 

9. In following code, expression#1 D let $point get the reference of @ARGV, expression#1  should be:

 

#!/usr/contrib/bin/perl -w

 

expression#1

print "ARGV = ", join(",", expression#2), "/n";

 

 

 

A.        my $point=@ARGV;

 

B.        my $point={@ARGV};

 

C.        my $point=ARGV;

 

D.       my $point=/@ARGV;

 

 

10. The expression#2 A should be:

 

A.        @$point

 

B.        $point

 

C.        @point

 

D.       /@point

 

 

NOTE: Answer of question 5  shoud be A 
20060519

Delphi7高级应用开发随书源码

  • 2003年04月30日 00:00
  • 676KB
  • 下载

Delphi7高级应用开发随书源码

  • 2003年04月30日 00:00
  • 676KB
  • 下载

2016某知名互联网公司PHP面试题及答案(续)

1 写出mysql中,插入数据,读出数据,更新数据的语句 INSERT INTO 表名 VALUES (””,””); SELECT * FROM 表名;。 UPDATE 表名 SET 字...

Delphi7高级应用开发随书源码

  • 2003年04月30日 00:00
  • 676KB
  • 下载

2016年国内某知名互联网公司PHP面试题及答案

1 字符串”\r”,”\n”,”\t”,”\x20”分别代表什么? 答案: “\r”代表的含义是:  在Linux、unix 中表示返回到当行的最开始位置,在Mac OS 中表示换行且返回到下一行...

来自苹果、谷歌、微软等知名公司六道有趣智力面试题答案

NO.1 有20瓶药丸,其中19瓶装有1克/粒的药丸,余下一瓶装有1.1克/粒的药丸。给你一台称重精准的天平,怎么找出比较重的那瓶药丸?天平只能用一次。 解法 有时候,严格的限制条件有可...

2016某知名互联网公司PHP面试题及答案

1 字符串”\r”,”\n”,”\t”,”\x20”分别代表什么答案: “\r”代表的含义是: 在Linux、unix 中表示返回到当行的最开始位置,在Mac OS 中表示换行且返回到下一行的最开始...

知名互联网公司面试题之--将一个数按照二进制输出,并且输出1的个数。

方法一:求余法 #include #include int main() { int num = 9; int count = 0; int count_one_bits(int num); ...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:某知名公司Perl面试题及答案
举报原因:
原因补充:

(最多只允许输入30个字)