Perlコーディング初心者質問スレ Part 38

[0061 nobodyさん 04/10/10 16:18:08 ID:???]

>>60
my $addr_spec = '[e-mail]';

# http://tohoho.wakusei.ne.jp/wwwperl2.htm#index
# http://tohoho.wakusei.ne.jp/wwwperl2.htm#substr
my $domain = substr $addr_spec, index($addr_spec, '@') + 1;

# http://www.kt.rim.or.jp/%7Ekbk/perl5.005/perlre.html
($domain) = $addr_spec =~ /([^@]+)\z/;