Perl 中的文件操作测试符

if(-z $filename)
{
    print "the file is null.\n";
}else
{
    print "the file is not null.\n";
}