perl 정규 표현식에 스칼라와 구두점이 일치합니다.

Question

하나 또는 두 개의 전자 메일 주소가 쉼표로 구분 된 스칼라 (테이블의 열)가 있습니다. 나쁜/오래된 이메일 주소와 뒤에 오는 쉼표 (예 : )를 제거하는 데 필요한 이들 기록 중 일부는 '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