的毗連正則表達式與常量聲明字符串作爲oneliner

Question

我想聲明一個常量作爲一個襯墊這樣的：

use constant HOME_SCRIPT => "/home/george/". $0 =~ /(.*)\.pl/;
的問題是，這將返回：/home/george/1。即它連接正則表達式匹配的數量。
我想：
use constant HOME_SCRIPT => ("/home/george/"). $0 =~ /(.*)\.pl/;
use constant 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/; 

Answer 2

如果你正在運行的Perl 5版本14或更高版本，可以使用通過/r修改非破壞性的替代。像這樣

use constant HOME_SCRIPT => ("/home/george/$0") =~ s/\.pl\z//r; 

或者，如果你被迫較早使用的東西，或者只會喜歡不同的方法，你可以寫

use constant HOME_SCRIPT => '/home/george/' . ($0 =~ /(.*)\./, $1);