Case Insensitive Grep？

Question

我在PERL中使用这个grep语句来查找非重复的名称。任何人都可以告诉我如何使它不区分大小写？我知道我需要使用“我”，但我不确定它到底在哪里。谢谢！

@nondup = grep {$marked{$_}++; $marked{$_} = 1;} @names

Answer 1

使用fc（Perl 5.16或更新）或lc：

use strict;
use warnings;
use feature 'fc';

my @names = qw(apple Apple foo bar baz BaZ bar);

my %seen;
my @unique = grep {! $seen{fc $_}++} @names;

print "@unique";

输出：

apple foo bar baz