perl - 如何将 Perl 拆分命令与空白修剪结合起来？

Question

Repost from Perlmonks对于同事:

我编写了一个 perl 脚本来分隔由分号分隔的长电子邮件列表。我想对代码做的是将拆分与空白的修剪相结合，这样我就不需要两个数组。加载第一个数组时是否可以修剪。输出是一个排序的名称列表。
谢谢。

#!/pw/prod/svr4/bin/perl
use warnings;
use strict;

my $file_data =
  'Builder, Bob  ;Stein, Franklin MSW; Boop, Elizabeth PHD   Cc: Bear,
+ Izzy';
my @email_list;

$file_data =~ s/CC:/;/ig;
$file_data =~ s/PHD//ig;
$file_data =~ s/MSW//ig;

my @tmp_data = split( /;/, $file_data );

foreach my $entry (@tmp_data) {
    $entry =~ s/^[ \t]+|[ \t]+$//g;
    push( @email_list, $entry );
}

foreach my $name ( sort(@email_list) ) {
    print "$name \n";
}

Answer 1

如果您不需要修剪第一个和最后一个元素，这将起作用:

@email_list = split /\s*;\s*/, $file_data;

如果您确实需要修剪第一个和最后一个元素，请修剪 $file_data首先，然后重复上述操作。 :-P