[ create a new paste ] login | about

Link: http://codepad.org/zbG8KnjR    [ raw code | output | fork ]

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:
1
2
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 


Create a new paste based on this one


Comments: