Sha256: 0c4fbd87932f2266fb9a3df18261d21f5e4f5cfcb4c48aa9de51d3a70bdbeea8

Contents?: true

Size: 194 Bytes

Versions: 114

Compression:

Stored size: 194 Bytes

Contents

package PhoneNumber 2;
use strict;
use warnings;

sub clean_number {
  my ($number) = @_;
  $number =~ s/\D//g;
  return $number =~ /^ 1? ( (?: [2-9] \d{2} ){2} \d{4} ) $/x ? $1 : undef;
}


1;

Version data entries

114 entries across 114 versions & 1 rubygems

Version Path
trackler-2.2.1.110 tracks/perl5/exercises/phone-number/.meta/solutions/PhoneNumber.pm
trackler-2.2.1.109 tracks/perl5/exercises/phone-number/.meta/solutions/PhoneNumber.pm
trackler-2.2.1.108 tracks/perl5/exercises/phone-number/.meta/solutions/PhoneNumber.pm
trackler-2.2.1.107 tracks/perl5/exercises/phone-number/.meta/solutions/PhoneNumber.pm
trackler-2.2.1.106 tracks/perl5/exercises/phone-number/.meta/solutions/PhoneNumber.pm
trackler-2.2.1.105 tracks/perl5/exercises/phone-number/Example.pm
trackler-2.2.1.104 tracks/perl5/exercises/phone-number/Example.pm
trackler-2.2.1.103 tracks/perl5/exercises/phone-number/Example.pm
trackler-2.2.1.102 tracks/perl5/exercises/phone-number/Example.pm
trackler-2.2.1.101 tracks/perl5/exercises/phone-number/Example.pm
trackler-2.2.1.100 tracks/perl5/exercises/phone-number/Example.pm
trackler-2.2.1.99 tracks/perl5/exercises/phone-number/Example.pm
trackler-2.2.1.98 tracks/perl5/exercises/phone-number/Example.pm
trackler-2.2.1.97 tracks/perl5/exercises/phone-number/Example.pm
trackler-2.2.1.96 tracks/perl5/exercises/phone-number/Example.pm
trackler-2.2.1.95 tracks/perl5/exercises/phone-number/Example.pm
trackler-2.2.1.94 tracks/perl5/exercises/phone-number/Example.pm
trackler-2.2.1.93 tracks/perl5/exercises/phone-number/Example.pm
trackler-2.2.1.92 tracks/perl5/exercises/phone-number/Example.pm
trackler-2.2.1.91 tracks/perl5/exercises/phone-number/Example.pm