This shows you the differences between two versions of the page.
— |
kurs:email.pl [2014/09/10 21:22] (current) |
||
---|---|---|---|
Line 1: | Line 1: | ||
+ | <code> | ||
+ | use strict; | ||
+ | use warnings; | ||
+ | my $email = $ARGV[0]; | ||
+ | |||
+ | # my ($localpart) = $email =~ /(.+)@/; | ||
+ | # print "$localpart \n"; | ||
+ | |||
+ | if ( $email =~ /(.+)@.+\.(.+)\.(.+)/ ) { | ||
+ | print "$1 - $2 - $3\n"; | ||
+ | } else { | ||
+ | print "keine email!\n"; | ||
+ | } | ||
+ | </code> |