regex - 字符串和数字的 Perl 正则表达式 - 仅匹配最后 6 位数字

Question

我需要从文件名(日期)中提取最后 6 位数字，正则表达式对我不起作用。

字符串是:name_of_file0000000546210618.A001.6476871457

我只需要包含这个:name_of_file210618.A001

我的正则表达式是:name_of_file\(\d{6}).A\d{3} - 不起作用

我也尝试过:name_of_file(\d{6}).A\d{3} - 不起作用

更多详情:

我们已经使用了 name_of_file(\d{6}).A\d{3} 并且它已经工作了 3 年多了。在这些情况下，字符串只是 name_of_file210618.A001.6476871457 而正则表达式就是这样:name_of_file210618.A001。这正是我在这种情况下所需要的，我需要处理 210618 之前的数字。

Answer 1

你需要

name_of_file\K\d*(?=\d{6}\.A\d{3})

替换为空字符串。查看regex demo .详情:

• name_of_file - 一个特定的字符串
• \K - 匹配重置运算符丢弃到目前为止从整个匹配内存缓冲区中匹配的文本
• \d* - 零个或多个数字
• (?=\d{6}\.A\d{3}) - 正向预测需要六位数字，.A 和三位数字才能出现紧靠当前位置的右侧。

参见 Perl demo online :

#!/usr/bin/perl
use feature 'say';
use strict;
use warnings;
 
my $str = "name_of_file0000000546210618.A001.6476871457";
say $str =~ s/name_of_file\K\d*(?=\d{6}\.A\d{3})//r;

输出:

name_of_file210618.A001.6476871457