Help for this page

Select Code to Download


  1. or download this
    #!/opt/perl/bin/perl 

...
if ($str =~ m{Digits: \s* (?<digit>\d)+ }x) {
    say 'Digits: ', join(', ', @{$-{digit}});
}
  2. or download this
    Digits: 9
  3. or download this
    (?<digit>\d)? (?<digit>\d)? (?<digit>\d)? (?<digit>\d)? (?<digit>\d)? 
+(?<digit>\d)? (?<digit>\d)? (?<digit>\d)? (?<digit>\d)? (?<digit>\d)?