2004年07月15日
メールアドレスのみを取得
sub extract_address {
my ($from) = @_;
if ($from =~ /.*<(.+)>/) {return $1;} # From: Foo Bar <foobar@com.edu>
elsif ($from =~ s/\s*\(.*\)//) {return $from;} # From: foobar@com.edu (Foo Bar)
else {return $from;} # From: foobar@com.edu [I hope]
}
投稿者 mkomu : 2004年07月15日 00:00
トラックバック
このエントリーのトラックバックURL:
http://mkomu.sakura.ne.jp/mt/mt-tb.cgi/41
このリストは、次のエントリーを参照しています: メールアドレスのみを取得:
» Atlantis Bahamas Vacation Packages from Atlantis Bahamas Vacation
How did you figured that out? Wish I were you. [続きを読む]
トラックバック時刻: 2010年07月09日 15:30
» pokemon carton Porn from pokemon carton Porn
First Weblog: メールアドレスのみを取得 [続きを読む]
トラックバック時刻: 2013年12月12日 20:46
» home-page from home-page
First Weblog: メールアドレスのみを取得 [続きを読む]
トラックバック時刻: 2013年12月22日 08:04
» katy perry prismatic world tour from katy perry prismatic world tour
First Weblog: 2004年07月 アーカイブ [続きを読む]
トラックバック時刻: 2014年05月01日 10:28
» borderline from borderline
"[...]First Weblog: ????????????????????????????????????[...]" [続きを読む]
トラックバック時刻: 2014年12月27日 02:17