perl面试题解析__perl面试题

相关文章推荐

神勇威武的长颈鹿 · 如何在Perl中将整数转换为浮点值？开发者社区· 3 周前 ·

火星上的鸡蛋 · Perl列表相关函数 - 骏马金龙 · 3 周前 ·

风流倜傥的大蒜 · Perl中对字符串的大小写转换· 3 周前 ·

痴情的松鼠 · perl 如何使用uniq - CSDN文库· 3 周前 ·

苦恼的雪糕 · Perl正则表达式超详细教程开发者社区· 3 周前 ·

深沉的鸡蛋面 · 《风云雄霸天下》一部由人气漫画改编的电影_百 ...· 1 年前 ·

数据分析

检测系统某一目录下是否存在文件a.txt,有的话，则mv成新的文件，没有，则创建它，并向文件中输入以下数字：

1       0       1
2       1       1
3       0       1 
4       1       1 
5       0       1 
6       1       1 
7       0       1 
8       1       1

面试中，对这个题目产生了歧义，一时紧张，竟然不知从何下手。回来仔细一想，so easy!

1)出题者的本意解法

#!/bin/env perl  
use strict; 
if (-e 'a.txt') {   
 system "mv a.txt a.txt.old"; 
  else {    
  system "touch a.txt"; }  
  open my $file,'>>','a.txt' or die "$!\n";  
  for(my $i=1;$i<9;$i++){   
     if ($i % 2) {      
        print $file "$i\t0\t1\n";     }    
         else {         
         print $file "$i\t1\t1\n";   
}

2)产生歧义的解法

#!/bin/env perl  
use strict;  
if (-e 'a.txt') {   
    system "mv a.txt a.txt.old"; 
 else {    system "touch a.txt"; 
 open my $file,'>>','a.txt' or die "$!\n"; 
  print $file <<'EOF'; 
  1       0       1 
  2       1       1 
  3       0       1 
  4       1       1 
  5       0       1 
  6       1       1 
  7       0       1 
  8       1       1 
  close $file;