论坛 › Perl › perl面试题解析

发表于 2018-8-31 10:23:24

perl面试题解析

#!/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

查看完整版本: perl面试题解析