User Tools

Site Tools


kurs:extractemailtld.pm

Differences

This shows you the differences between two versions of the page.

Link to this comparison view

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>​
kurs/extractemailtld.pm.txt ยท Last modified: 2014/09/10 21:22 (external edit)