数据分析
检测系统某一目录下是否存在文件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，如需转载请自行联系原作者
