Question

尝试从此字符串中提取字母数字字符：

A_phase_I-II,_open-req_project_id_PX15RAD001

问题是：术语 PX15RAD001 可以出现在字符串中的任何位置。

尝试使用以下表达式提取字母数字部分。但这会返回整个字符串。我认为Alum是alpha-numerics的有效关键字。那不是这样吗？

(my $string = $line ) =~ s/\P{Alnum}//g;
  print $string;

如何提取上述字符串中的字母数字部分？

提前致谢。 -simak

Answer 1

根据您的输入结束：

> echo "A_phase_I-II,_open-req_project_id_PX15RAD001"|perl -lne 'print $1 if(/id_([A-Z0-9]*)/)'
PX15RAD001

中间：

> echo "A_phase_I-II,_open-req_id_PX15RAD001_project" | perl -lne 'print $1 if(/id_([A-Z0-9]*)/)'
PX15RAD001

或以您的名义：

$line=~m/id_([A-Z0-9]*)/g;
print $1;

Answer 2

以下是一些测试用例，用@Vijay的答案产生答案：

my @line = (
  'A_phase_I-II,_open-req_project_id_PX15RAD001',
  '_PX15RAD001_A_phase_I-II,_open-req_project_id',
  'A_pha3333se_I-II,_ope_PX15RAD001_n-req_project',
  'A_phase_I-II,_PX15RAD001_open-req_projec123123123t_id',
  'A_phase_I-II_PX15RAD001_roject_id'
);
foreach my $string ( @line ) {
  $string =~ m{_([^_]{10})_?}g;
  print $1 . "\n" if $1;
}

Answer 3

这些问题很难回答，因为没有足够的信息。我们有什么信息：

你说你的目标字符串是“字母数字”，但整个输入字符串是字母数字，除了一些标点符号，所以这并没有告诉我们什么。
您说它长12个字符，但您显示的示例长度为10个字符。
您似乎认为“字母数字”不包含下划线。

因此，我可以感知的可靠信息是：

目标字符串始终以下划线_
目标字符串为10-12个字符，除下划线外均为字母数字。

基于这种相当吝啬的信息的“可靠”解决方案是：

my $str = "A_phase_I-II,_open-req_project_id_PX15RAD001";

for my $field (split /_/, $str) {
    if (length($field) <= 12 and    
        length($field) >= 10 and    # field is 10-12 characters
        $field !~ /\W/) {           # and contains no non-alphanumerics
        # do something
    }
}

通过拆分下划线，我们可以轻松地隔离字符串中的每个字段并对其执行更简单的测试，例如上面的那些。

从字符串中提取字母数字短语

3 个答案: