小编Xav*_*via的帖子

我有这组代码:

 use strict; 
 use warnings; 
 my %hash = ( 5328 => 'Adorable', 
              26191 => '"Giraffe"', 
              57491 => 'Is Very', 
               4915 => 'Cute',);
 foreach (sort { ($hash{$a} cmp $hash{$b}) || ($a cmp $b) } keys %hash) 
 { print "$hash{$_}\n"; }

这将导致:

"Giraffe"

Adorable

Cute

Is Very

我需要按字母顺序排序,并忽略AlphaNumeric字符之前的特殊字符,如下例所示:

Adorable

Cute

"Giraffe"

Is Very

有什么建议？

当我尝试在正则表达式测试器中使用下面的简单替换时,它工作正常.但是当我在Perl代码中使用它时,ù它们没有被替换:

#!/usr/bin/perl

use 5.010;
use strict;
use warnings;

use File::Slurp;

my $file = 'test.html';
my $str = read_file($file);

$str =~ s/ù/u/g; 

write_file("out/$file", $str);

这是我想要更改的示例文本:

ùmbrella ùnder ùùùùù ùtters

至

umbrella under uuuuu utters

任何帮助和建议都非常感谢.