如何使用Perl CGI收集ARGV？

Question

我想使用CGI.pm從我的網站運行腳本 - 我運行的腳本通常是從命令行運行的，並且需要幾條命令行ARGV輸入。我如何處理這個使用CGI.pm？ - 我可以在Perl CGI腳本中插入系統（$命令）嗎？腳本可以在這裏看到 - http://www.ncbi.nlm.nih.gov/IEB/ToolBox/C_DOC/lxr/source/doc/blast/web_blast.pl

Answer 1

如何使用Perl CGI收集ARGV？

@ARGV沒有去任何地方，但CGI不使用命令行參數，所以沒有命令行參數來收集。

我可以在Perl CGI腳本中插入system($command)嗎？

是的。

Answer 2

您可以兼用腳本通過檢查，如果你連接到終端：

if (-t STDOUT) { 
    # Command LIne mode, use @ARGV; 
} 
else { 
    # CGI mode, get ARGV equivalent from CGI->param 
} 

你將不得不調整輸出CGI模式下工作，由你輸出任何東西之前添加內容頭。

如果您在網頁中使用system($foo)，確保邏輯控制什麼在$foo是安全的，否則你可能最終砍死。