数据分析

检测系统某一目录下是否存在文件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)产生歧义的解法

  close $file;

本文转自dongfang_09859 51CTO博客，原文链接：http://blog.51cto.com/hellosa/965698，如需转载请自行联系原作者