相关疑难解决方法(0)

我正在尝试从一行文本中提取JIRA标识符.

JIRA标识符的格式为[AZ] + - [0-9] - 我有以下模式:

foreach my $line ( @textBlock ) {
    my ( $id ) = ( $line =~ /[\s|]?([A-Z]+-[0-9]+)[\s:|]?/ );
    push @jiraIDs, $id if ( defined $id && $id !~ /^$/ );
}

如果有人指定一些包含另一个字符串内的模式的文本 - 例如blah_blah_ABC-123在ABC-123上匹配,则无法应对.我不想要求在比赛前必须有空格或其他分隔符,因为如果标识符位于该行的开头,则会失败.

任何人都可以建议必要的符文吗？

谢谢.