我需要从文件名(日期)中提取最后 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
之前的数字。
最佳答案
你需要
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
https://stackoverflow.com/questions/68035102/