相关疑难解决方法(0)

浏览源代码时,我看到以下几行:

my @files_to_keep = qw (file1 file2);
my %keep = map { + $_ => 1 } @files_to_keep;

+这段代码片段做了什么？我曾经Data::Dumper看过取出加号是否做了什么,但结果是一样的:

  $ perl cleanme.pl
$VAR1 = {
          'file1' => 1,
          'file2' => 1
        };