[knoppix:1794] Re: 過去ログ検索サイト構築の検討

たむらです。

On Tue, 22 Jul 2003 14:40:54 +0900
Susumu Tanimura/谷村 晋 <stanimura-ngs@xxxxxxxxxx> wrote:

> ３．メールアドレスを「hoge@...」に置換するための置換式がうまくできず、メー
> ルアドレスはそのままになっています。どなたか、sed, awk, perl なんでもよい
> ので、メールアドレスを伏せ字にするスクリプトをいただけたら幸いです。

高林さんの mailarcからですが

def ambiguate_address (address)
  address.gsub(/(?:([-0-9a-zA-Z_.]+)@([-0-9a-zA-Z_.])[-0-9a-zA-Z_.]+)/, 
   '\1@\2...')
end

Perl なら

sub ambiguate_address{
  my $addr = shift;
  $addr =~ s/(?:([-0-9a-zA-Z_.]+)@([-0-9a-zA-Z_.])[-0-9a-zA-Z_.]+)/$1@$2.../g;
  return $addr;
}
                                                                                
                  
かな。

-- 

たむら (http://www.rubyist.net/~tamura/d/)