Help for this page

Select Code to Download


  1. or download this
    13:09 >perl -Mstrict -wE "my ($y, $z); my $x = (defined $y or defined 
+$z or 'default'); say $x;"
default
  2. or download this
    13:09 >perl -Mstrict -wE "my ($y, $z); my $x = $y // $z // 'default'; 
+say $x;"
default

13:09 >
  3. or download this
    open(my $fh, '<', $filename) or die "Cannot open file '$filename' for 
+reading: $!";