Null object: Difference between revisions
Content added Content deleted
(→{{header|Perl}}: defined-or operator) |
|||
| Line 330: | Line 330: | ||
<lang perl>print +(defined $x ? 'Defined' : 'Undefined'), ".\n";</lang> |
<lang perl>print +(defined $x ? 'Defined' : 'Undefined'), ".\n";</lang> |
||
Starting in Perl 5.10, there is also a [http://perldoc.perl.org/perlop.html#C-style-Logical-Defined-Or defined-or] operator in Perl. For example: |
|||
<lang perl>say $number // "unknown";</lang> |
<lang perl>say $number // "unknown";</lang> |
||
prints $number if it is defined (even if it is false) or the string "unknown" otherwise. |
prints $number if it is defined (even if it is false) or the string "unknown" otherwise. |
||