如何有条件地匹配一行的最后一部分？

Question

我对 perl 很陌生，目前我正在使用一个非常简单的 perl 正则表达式来打印从文件 1.txt 读取的字符串“Lecture”之后的行的最后一部分。。

cat 1.txt | perl -ne 'print "$1 \n" while /Lecture\s+(\d+\w)/g;'

效果很好，但我需要为其添加一个简单的条件：

First Preference 总是打印字符串“Lecture”之后的字符。 如果在一行中找不到字符串“Lecture”，只需打印行尾的字符即可。

PS：可能会出现字符串“Lecture”周围没有空格，并且我始终使用单词字符，因为它不一定是纯数字，它可以是字母数字。

示例
猫1.txt

Some Topic 1 Lecture 001
Some Topic 2 Lecture 002
Topic 3 ( classroom Session ) Lecture2B
Practicals 07A
Submissions 10
Topic5Lecture4

预期输出：

001
002
2B
07A
10
4

我最好想要一个可以直接在 cli/console 中运行的解决方案。 （就像我的原始代码一样 - cat 1.txt | perl code）。
我不想执行单独的 .pl 文件。

Answer 1

这个

(?:\w*Lecture)?([^\s]+)$

将在行尾 ($) 捕获 ((...)) 所有 (+) 非空白 ([^\s])， 可选的 (?) 前面是非捕获的 ((?:...)) “讲座”，即使前面有其他字母 (\w*)。

得到想要的输出：

001
002
2B
07A
10
4
4

对于示例输入：

Some Topic 1 Lecture 001
Some Topic 2 Lecture 002
Topic 3 ( classroom Session ) Lecture2B
Practicals 07A
Submissions 10
Topic5 Lecture4
Topic5Lecture4