$a=123;
print "1. $a is number\n" unless (~$a & $a);
$a="123";
print "2. $a is number\n" unless (~$a & $a);
$a="abc123";
print "3. $a is number\n" unless (~$a & $a);
print "1. $a is number\n" unless (~$a & $a);
$a="123";
print "2. $a is number\n" unless (~$a & $a);
$a="abc123";
print "3. $a is number\n" unless (~$a & $a);
博客展示了Perl代码,对不同类型的变量$a进行操作。分别将$a赋值为数字123、字符串'123'和'abc123',并使用'~$a & $a'条件判断,若条件不成立则输出相应信息,体现了Perl在变量处理方面的应用。
980

被折叠的 条评论
为什么被折叠?



