#!/usr/bin/perl -w
use strict;
my ($a,$b,$c,$d) = (1,2,"");
if($c){print "\$c is true\n";}
if(defined $c){print "\$c is defined\n";}
if($d){print "\$d is true\n";}
if(defined $d){print "\$d is defined\n";}
perl里面变量的defined与TRUE
最新推荐文章于 2024-06-29 15:19:37 发布