Help for this page

Select Code to Download


  1. or download this
    hash = (
        b => ($b =~ /\d/    ? 1  : 0),
        a => ($b =~ /(\d+)/ ? $1 : 0),
);
  2. or download this
    hash = (
        a => ($b =~ /(\d+)/)[0] || 0,
        b => ($b =~ /\d/    ? 1  : 0)
);
  3. or download this
    $ perl -wE 'sub f {say @_} 3 =~ /(\d)/; f $1'
3
...
$ perl -wE 'sub f {"1" =~ "1"; say @_} 3 =~ /(\d)/; f "$1"'
3
$