嗨想要傳遞一個參數給我的perl腳本,應該通過qsub執行。 於是我運行:將參數傳遞給perl腳本執行槽qsub
qsub -l nodes=node01 -v "i=500" Test.pl
雖然Test.pl我試着打電話給我分幾路參數:
use Getopt::Long;
$result = GetOptions ("i" => \$num);
open(FILE,">/data/home/FILEout.txt");
print FILE "$num\n";
print FILE "$ARGV[0]";
close(FILE);
可惜的是Perl腳本的輸出文件總是空的。
你有什麼建議嗎?我錯在哪裏?請幫助
這個'Test.pl'的輸出是什麼:'use Data :: Dumper;打開($ FH,「>/data/home/FILEout.txt」)或者死掉$ !;本地$ Data :: Dumper :: Terse = 1;本地$ Data :: Dumper :: Indent = 0; print($ FH Dumper(\ @ ARGV),「\ n」); print($ FH join(',',keys(%ENV)),「\ n」);'? – ikegami 2013-03-28 12:13:53
@ikegami我真的很感謝你的幫助。 Test.pl的輸出如下:'PBS_NODEFILE,PBS_O_SHELL,PBS_O_SYSTEM,SSH_ASKPASS,PBS_O_WORKDIR,PBS_O_LANG,PBS_O_MAIL,PBS_O_PATH,LESSOPEN,PBS_JOBCOOKIE,PWD,LANG,USER,PBS_O_HOST,G_BROKEN_FILENAMES,LOGNAME,PBS_JOBID,SHLVL,INPUTRC, PATH,PBS_ENVIRONMENT,PBS_O_QUEUE,OMP_NUM_THREADS,PBS_QUEUE,HISTSIZE,PBS_O_HOME,PBS_MOMPORT,HOME,MAIL,PBS_O_LOGNAME,TZ,PBS_NODENUM,PBS_TASKNUM,NCPUS,HOSTNAME,_,LS_COLORS,SHELL,PBS_JOBNAME,PBS_JOBDIR,TMPDIR, qsub -l nodes = node01 -v「i = 500」Test.pl' – desmo 2013-03-28 13:26:32
and @ARGV is empty – desmo 2013-03-28 13:36:46