请给出解决方案

时间:2012-03-26 13:41:58

标签: perl tcl

我正在调用一个函数并将3个参数传递给它。我将每个参数作为一个并对其执行一些操作。最后,我遍历循环,以便对其余参数执行相同的操作。

假设问题是这样的:

print "Starting the operations";
# calling the function say NetworkMode
NetworkMode(SONET,SDH,SDH-J)   #This will perform certain steps
print "Ending of the test case"

我想要的输出应该是这样的:

#Starting the operaions
#Whatever the output function will give using first parameter
#Ending the test case
#Starting the operaions
#Whatever the output function will give using second parameter
#Ending the test case
#Starting the operaions
#Whatever the output function will give using third parameter
#Ending the test case

我有什么方法可以做到这一点。

2 个答案:

答案 0 :(得分:2)

如果您调用一个单一功能[一次],那么您将有一次机会打印出结果;如果你想每个参数打印一次,那么函数本身就必须在每个参数上操作时进行打印。但是,如果您在每个参数上重复完全相同的步骤,那么您的函数可能只需要一个参数?

答案 1 :(得分:2)

你的意思是NetworkMode函数实际只需要一个参数?如果是这样,那么这段代码可能会做你想要的:

foreach my $mode (SONET, SDH, SDH-J)
{
    print "Starting the operations";
    # calling the function say NetworkMode
    NetworkMode($mode);   #This will perform certain steps
    print "Ending of the test case";
}