Help for this page

Select Code to Download


  1. or download this
    $ perl -MData::Dumper -Mstrict -wE 'my $foo = {}; say for @{ $foo->{ba
+r} }; say Dumper $foo'
$VAR1 = {
          'bar' => []
        };
  2. or download this
    $ perl -MData::Dumper -Mstrict -wE 'my $foo = {}; say for @{ $foo->{ba
+r} // [] }; say Dumper $foo'
$VAR1 = {};
  3. or download this
        open(my $fh, '<', "$file_path") or return 0;

...
            values => [ sort uniq $value, @{ $href->{values} // [] } ]
+,
        };
    }