regex - Concat 正则表达式与常量声明中的字符串作为 oneliner

Question

我正在尝试将一个常量声明为这样的一个衬里:

使用常量 HOME_SCRIPT => "/home/george/"。 $0 =~/(.*)\.pl/;
问题是这会返回:/home/george/1。 IE。它连接正则表达式的匹配数。
我试过:
使用常量 HOME_SCRIPT => ("/home/george/")。 $0 =~/(.*)\.pl/;
使用常量 HOME_SCRIPT => "/home/george/"。 ($0 =~/(.*)\.pl/);
但结果相同。
是否可以为此创建一个 oneliner？

Answer 1

use constant HOME_SCRIPT => "/home/george/". ($0 =~ /(.*)\.pl/)[0];

或

use constant HOME_SCRIPT => join "", "/home/george/", $0 =~ /(.*)\.pl/;