急关于perl的，请各位大侠帮帮忙啊
在线等 急，关于perl的，请各位大侠帮帮忙啊!!!!
先在有一个pl文件，单独执行需要输入 “111.PL 222”才可以执行，
但是现在我要把这个文件并到另一个集成的pl文件，作为一个elsif选项，如下：
if （&choose == 1）{
。。。。。。。。。。。。
}
elsif （&choose == 2）{
111.PL中的内容
}
但是这样子是无法执行的，请问我如何才能运行，主要问题就在这个“ 222”上，小弟不知道如何处置
------解决方案--------------------
先在有一个pl文件，单独执行需要输入 “111.PL 222”才可以执行，
但是现在我要把这个文件并到另一个集成的pl文件，作为一个elsif选项，如下：
if （&choose == 1）{
。。。。。。。。。。。。
}
elsif （&choose == 2）{
111.PL中的内容
}
但是这样子是无法执行的，请问我如何才能运行，主要问题就在这个“ 222”上，小弟不知道如何处置
------解决方案--------------------
- Perl code
if （&choose == 1）{
。。。。。。。。。。。。
}
elsif （&choose == 2）{
@ARGV=(222);
111.pl中的内容
}
------解决方案--------------------
其实，更好的办法是将111.pl中对命令行参数的处理提出来，这个参数很可能是你合成之后的pl的命令行参数，或者，该参数如果在之前的代码中可以得到，可以不使用@ARGV数组，直接给参数赋值。例如：
- Perl code
#111.pl my $p1=$ARGV[0];#第一个命令行参数：222 #do something