0

我正在尝试使用 perl 对字母数字字符串进行排序，并面临以下问题：

字符串是这样的：“XXXXX-1.0.0”，其中数字可以是一位或两位数，代表发布版本。

我的问题是，当我有以下两个字符串时： - XXXXX-1.9.9 - XXXXX-1.10.0 XXXXX-1.9.9 被认为大于 XXXXX-1.10.0，因为 9 大于 1。所以我正在尝试使用正则表达式强制数字为两位数。

我正在测试一段代码：

my $string = "XXXXXX-1.9.9";
my $pre = "0";
$string =~ s/(\.|-)+(\d{1})($|\.)/$1$pre$2$3/g;
print "$string\n";

这给了我结果“XXXXXX-01.9.09”，这不是我想要的，因为它不会被正确排序。所以我必须这样做：

my $string = "XXXXXX-1.9.9";
my $pre = "0";
$string =~ s/(\.|-)+(\d{1})($|\.)/$1$pre$2$3/g;
$string =~ s/(\.|-)+(\d{1})($|\.)/$1$pre$2$3/g;
print "$string\n";

获取“ XXXXXX-01.09.09 ”

我的问题是双重的： - 有没有办法在不使用正则表达式的情况下用 Perl 对我的字符串进行排序？- 如果我必须使用正则表达式，有没有办法编写它，这样我就不必执行两次？

先感谢您。

4

1 回答 1

1

您可以使用环视断言来确保要替换的数字周围没有数字，而无需将位置移动到相邻字符上。

#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

my @strings = qw( XXXXX-1.9.9
                  XXXXX-1.9.10
                  XXXXX-1.10.0 );

s/(?<=[^0-9]) ([0-9]) (?=[^0-9]|$) /0$1/xg for @strings;
@strings = sort @strings;
s/(?<=[^0-9]) 0+ ([0-9]) /$1/xg for @strings;

say for @strings;
于 2013-11-14T09:25:51.943 回答