Mega Code Archive

 

Categories / Perl / Language Basics

 

Short-circuit operators

#!/usr/bin/perl $num1=50; $num2=100; $num3=0; print $num1 && $num3, "\n";   print $num3 && $num1, "\n";   print $num1 && $num2, "\n";   print $num2 && $num1, "\n\n"; print $num1 || $num3, "\n";   print $num3 || $num1, "\n";   print $num1 || $num2, "\n";   print $num2 || $num1, "\n";