Как найти n-ый символ или цифру в строке, используя REGEX в Perl

Question

Я хотел бы найти n-й случай появления цифры или символа с использованием регулярного выражения в perl.

Например: если строка:

$string = 'abdg2jj4jdh5jfj6'

, мне нужно сопоставить цифру 5которая является третьей цифрой.

Как я могу сделать это с помощью регулярного выражения.

Answer 1

my $string = "abdg2jj4jdh5jfj6";
my @myArray = ($string =~ /(\d)/g);
print "$myArray[2]\n";

Выход:

5

Answer 2

Альтернативой ответу Брайана Роучса будет использование группы захвата, подобной этой:

$string =~ /^\D*\d\D*\d\D*(\d)/;
print $1;

означает совпадение с начала строки 0 или более не цифр (\D), а затем цифру (\d), снова то же самое, а затем цифра, которую вы хотите иметь в скобках, чтобы она сохранялась в $1.

Но вам нужно более длинное регулярное выражение, поэтому я бы предпочел его решение (+1).

Answer 3

my $k = 2; # one less than N
my ($digit) = $string =~ /(?:\d.*?){$k}(\d)/;

Answer 4

Могу ли я сказать "вам не нужно регулярное выражение"?

Вы можете сделать это с помощью substr().