perl regex中的未绑定变量

Question

我有一堆像这样的行:

John Smith
Jane Doe
Dr. Bruce Wayne

我想将名称放入一个包含两列的csv文件:标题和全名.我正在使用正则表达式:/(\w*\. )?(.*)/然后我打印"$1;$2".问题是,在没有标题的名称中,perl会抱怨未初始化的值为$ 1.如何使用空字符串？

Answer 1

只需将正则表达式更改为:

my $re = qr/(\w*\. |)(.*)/;
 add alternation --^