This shows you the differences between two versions of the page.
kurs:extractemailtld.pm [2014/09/10 21:22] |
kurs:extractemailtld.pm [2014/09/10 21:22] (current) |
||
---|---|---|---|
Line 1: | Line 1: | ||
+ | <code> | ||
+ | package ExtractEmailTLD; | ||
+ | use 5.008007; | ||
+ | use strict; | ||
+ | use warnings; | ||
+ | |||
+ | |||
+ | |||
+ | our $VERSION = '0.01'; | ||
+ | |||
+ | sub extract { | ||
+ | my $email = shift @_; | ||
+ | if ( $email =~ /.+@.+\.(.+)$/ ) { | ||
+ | return $1; | ||
+ | } else { | ||
+ | return 1; | ||
+ | } | ||
+ | } | ||
+ | # Preloaded methods go here. | ||
+ | |||
+ | # Autoload methods go after =cut, and are processed by the autosplit program. | ||
+ | |||
+ | 1; | ||
+ | </code> |