aceballos
-
Perl,
pasted
on Apr 21:
|
#------------------------------------------------ [ validate.pl (fragment)
sub isChar
{
foreach (@_) { $_ = (/(\w)/) ? $1 : 0; }
return wantarray ? @_ : $_[0];
}
sub isWord
{
foreach (@_) { s/\s+//g; }
return wantarray ? @_ : $_[0];
}
sub isDomain
{
foreach (@_) { $_ = (/(([\w-]+\.)+\w{2,})/) ? lc($1) : ''; }
return wantarray ? @_ : $_[0];
}
#------------------------------------------------ [ example
my $a = "no";
my $b = "yes";
my $word = "word";
my $domain = "http://www.example.com.mx/";
print "Before | a:$a , b:$b , word:$word , domain:$domain \n";
$b = isChar($a);
isWord($word);
$domain = isDomain($domain);
print "After | a:$a , b:$b , word:$word , domain:$domain \n";
|
Output:
|
Before | a:no , b:yes , word:word , domain:http://www.example.com.mx/
After | a:n , b:n , word:word , domain:www.example.com.mx
|
|