通過Perl在文本文件中插入一行失敗

Question

我試圖在第二行使用perl的文本文件插入新行。但它一直在失敗。

我正在使用下面的命令來實現相同。

perl -ni -e "print; print \"permissibleCars = [ ${part[*]} ]\n\" if $. == 2" query/containerId_count.js 

但我不斷收到錯誤： -

root@vm-test-001:~/mongosearch# distinct_array=`sed ':a;N;$!ba;s/\n/ /g' output/ontainerId_distinct.txt` 
root@vm-test-001:~/mongosearch# declare -a arr=($distinct_array) 
root@vm-test-001:~/mongosearch# batchsize=1 
root@vm-test-001:~/mongosearch# IFS=, 
root@vm-test-001:~/mongosearch# part=("${arr[@]:i:batchsize}") 
root@vm-test-001:~/mongosearch# echo $part 
"C:00000092666270:53882159774" 
root@vm-test-001:~/mongosearch# perl -ni -e "print; print \"permissibleCars = [ ${part[*]} ]\n\" if $. == 2" query/containerId_count.js 
Bareword found where operator expected at -e line 1, near ""permissibleCars = [ "C" 
    (Missing operator before C?) 
String found where operator expected at -e line 1, near "53882159774" ]\n"" 
    (Missing operator before " ]\n"?) 
syntax error at -e line 1, near ""permissibleCars = [ "C" 
Illegal octal digit '9' at -e line 1, at end of line 
Execution of -e aborted due to compilation errors. 

你能幫我一樣嗎？

問候

Answer 1

試試這個：

export PARTS=${part[*]} 
perl -lni -e 'print; print "permissibleCars = [".join(",",split/ /,$ENV{PARTS})."]" if $. == 2' query/containerId_count.js 

而且 在Linux平臺上，我們應該用單引號爲一行。 Perl black book請參閱第19頁和第20頁。