条件控制 #!/usr/bin/perl use strict; use warnings; my $s =4; $s ||= 3; print $s; 相当于 if(defined $_){ $_=4; } else{ $_=3; } print $s; |
条件控制 #!/usr/bin/perl use strict; use warnings; my $s =4; $s ||= 3; print $s; 相当于 if(defined $_){ $_=4; } else{ $_=3; } print $s; |