uc在地图中排序之前

Question

map{ chomp; $isword{uc join "", sort /./g} .= "$_+" } <FH>;

通常，它使用文件中的项目，首先排序，然后是uc，然后添加到hashmap。

但我想先用uc，然后排序。

有人知道怎么做吗？

Answer 1

符合你所达到的简洁精神：

map{ chomp; $isword{join "", uc =~ sort /./g} .= "$_+" } <FH>;

Answer 2

尝试使用：

#!/usr/bin/perl
use 5.10.1;
use strict;
use warnings;
use Data::Dumper;

my %isword;
map{ chomp; my $c=$_; $_=uc$_; $isword{join "", sort /./g} .= "$c+" } <DATA>;
say Dumper \%isword;
__DATA__
cbA zyx
DEF tuv
Ghi PQr

输出：

$VAR1 = {
          ' GHIPQR' => 'Ghi PQr+',
          ' DEFTUV' => 'DEF tuv+',
          ' ABCXYZ' => 'cbA zyx+'
        };