perlの正規表現にスカラーと句読点が一致する

Question

1つまたは2つの電子メールアドレスがカンマで区切られたスカラー（表の列）があります。これらのレコードのいくつかについては、「Joek@xyznco.com、jrancher@candyco.us」や「jsmith @ wellingent.com、mjones @ wellingent.com」など、悪い/古いメールアドレスと末尾のカンマ（）を削除する必要があります存在する場合）。

jmsith @ wellingentが有効でなくなった場合は、どうすればそのアドレスと末尾のカンマを削除できますか？

これはアドレスを削除するだけですが、コンマは残ります。

my $general_email = 'jsmith@wellingent.com,mjones@wellingent.com'; 
my $bad_addr = 'jsmith@wellingent.com'; 

$general_email =~ s/$bad_addr//; 

ありがとうございました。

Answer 1

あなたは、正規表現のないが、リストの分割としたほうが良いことがあります

use strict; 
use warnings; 

sub remove_bad { 
    my ($full, $bad) = @_; 
    my @emails = split /\s*,\s*/, $full; # split at comma, allowing for spaces around the comma 
    my @filtered = grep { $_ ne $bad } @emails; 
    return join ",", @filtered; 
} 

print 'First: ' , remove_bad('me@example.org, you@example.org', 'me@example.org'), "\n"; 
print 'Last: ', remove_bad('me@example.org, you@example.org', 'you@example.org'), "\n"; 
print 'Middle: ', remove_bad('me@example.org, you@example.org, other@eample.org', 'you@example.org'), "\n"; 

まず、カンマでsplit悪いのメールアドレスリスト、配列を作成。 grepを使用してフィルタリングし、不良アドレスを削除します。 join残りの要素は文字列に戻ります。

上記のコードを印刷：

まず：you@example.org

最終：me@example.org

中東：私@ example.org、他の@ eample.org