Perl，將變量設置爲整個命令行'string'而不是參數

Question

我需要允許用戶在運行我的perl腳本時輸入任何內容，因爲我的腳本以不同的增量將所有數據發送到另一個非自定義腳本。

從理論上講，我希望這會發生：

perlscript "this is" -t stuff\n4^./q% 

然後，在perlscript，具有：

print "Full: $full_command"; 

導致：

Full: "this is" -t stuff\n4^./q% 

，使任何感？我已經試過的東西沒有完全符合我正在尋找的argv或類似的東西。

感謝您的幫助， 添

Answer 1

外殼做了相當於

exec('perlscript', 'this is', '-t', 'stuff'.chr(0x0A).'4&^./q%'); 

有沒有辦法perl可生產從原來的shell命令。如果你想要Perl收到

"this is" -t stuff\n4^./q% 

你需要告訴使用類似

perlscript '"this is" -t stuff\n4^./q%' 

（好吧，至少在源性殼或衍生物。）

Answer 2

不幸的是，你的shell可能操縱你的論點之前，他們甚至得到了Perl腳本。在您的具體示例中，像bash這樣的shell會刪除引號，將\n視爲n，並在到達&後停止處理該行。在Unixy系統，你最好的選擇可能是包裝所有的參數在單引號

perlscript '"this is" -t stuff\n4&^./q%' 

Answer 3

假設你正確引用您的操作系統，如上面提到的，或許下面就爲你工作：

print join(" ", map {// ? "\"$_\"" : $_ } @ARGV); 

請注意，當您運行perl時，需要使用「 - 」標記將用於perl本身的參數與程序的參數分開。例如：

perl -- -t 'stuff...' 

這樣可以防止論據被perl本身錯誤地佔用。