Regular expressions isn’t where my biggest talents lies, but here I collect small things encountered over time.
The expression is build up like this:
action/ matching expression / what to substitue it with / behaviour
Action
s/ –> substitutes
m/ –> matches an expression to return true or false.
Behaviour
/g –> matches all entries (globally)
Removes all white spaces in the string
my $test = ” +47 22 22 22 22 “;
$test =~ s/\s//g;
print $test; # prints out +4722222222
Match a + sign at the beginning of the string
if ( $test =~ /^\+/ ) {
print “Svar:” .$test .”\n”;
} else {
print “Matcher ikke\n”;
}
# See if the phone number starts with a country code ( a ‘+’ sign or ’00′)
if ( $test =~ /^\+|00/ ) {
}
