如何通过在PERL中使用正则表达式来消除未排序的逗号分隔列表中的重复项

Question

例如,我们有$list1var作为 -

$list1 = "GET, POST, GET, DELETE";

预期产量 -

GET,POST,DELETE

Answer 1

use List::MoreUtils qw(uniq);
my $list1 = "GET, POST, GET, DELETE";

print join ",", uniq split /\W+/, $list1;

产量

GET,POST,DELETE