Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict;
...
my @a = $a =~ /\d+/g;
$count = @a;
print "$count\n";
  2. or download this
    #!/usr/bin/perl
use strict;
...
my @a = $a =~ /\d+/g;
$count = @a;
print "$count\n";
  3. or download this
    #!/usr/bin/perl
use strict;
...
my @a = $b =~ /\d+/g;
$count = @a;
print "$count\n";