天天看点

perl验证文件存在且不为空

#!/usr/bin/perl

use strict;

my $file="./test.txt";

if( -f $file and -z _){

  print "==empty==\n"

}else{

  print "==yes==\n";

}

本文转自cloves 51CTO博客,原文链接:http://blog.51cto.com/yeqing/1681680

上一篇: perl-redis