提问 perl文件执行perl一行命令

luyi1983

我想 在perl 脚本中执行 perl的一行命令
perl -wni.bak -e 'if ( $_ =~ m/.*FileRef/ ){ s/Car/UserCar/g}' filename

用过system
报错：Can't find string terminator "'" anywhere before EOF at -e

wind_ch

$result = `perl -V`;

luyi1983

不行阿 LS

wind_ch

" ` "是1左邊, tab鍵上面的個鍵.

luyi1983

Can't find string terminator "'" anywhere before EOF at -e line 1.

ps 我单独 写在一个文件 试了。。。

wind_ch

system執行的錯誤可能是" ' "沒有轉義的緣故.

ttcn_cu

Windows 下不能用单引号

luyi1983

那我\' 了 还是 一样的错误
有什么 解决 方法吗?
谢谢

flw

真搞不懂为什么不写成一个 sub？
很简单的一件事啊。

ttcn_cu

system('perl -wni.bak -e "if ( $_ =~ m/.*FileRef/ ){ s/Car/UserCar/g}" '.$filename);