linux perl的while循环中ctrl+c失效,在Perl中调用命令行实例时在循环中采用垃圾值变量...

do

{

print"CHOOSE ANY OF THE FOLLOWING OPTIONS:\n";

print"==========================================\n";

print"1-LOGIN & LOGOUT\n";

print"2-MAKE CALL\n";

print"3-EXIT\n";

print"==========================================\n";

print("\nENTER YOUR OPTION: ");

$option=<>;

if($option==1)

{

print("IN THE LOGIN & LOGOUT SCENARIO\n");

&Login_logout();

}

elsif($option==2)

{

print("IN THE MAKE CALL SCENARIO\n");

}

elsif($option==3)

{

print("\nEXITING...\n");

exit(0);

}

else

{

print"\nINSERT A VALID OPTION...!!!\n";

}

}while(1);

这里子例程Login_logout()调用一个SIPp实例(命令行实例)。在成功完成命令行实例之后，标量$选项会获取一些垃圾值并触及else条件并打印行“INSERT A VALID OPTION ... !!!”。这一过程继续进行，直到Konsole结束。在Perl中调用命令行实例时在循环中采用垃圾值变量

有人可以告诉我脚本中我错了吗？

2012-02-10

Shantanu

+0

$ option需要一些垃圾值？什么垃圾值？ –

2012-02-10 05:38:04

+0

不知道需要什么，我试图将其打印出来，但没有显示任何内容。可能在命令行退出时返回一些值，$选项将它作为$ ARG [0]值。我可能不确定。 –

2012-02-10 06:06:52

+0

我试过你的代码(移除了对'Login_logout()')的调用，它对我来说工作正常。 'Login_logout()'做了什么？你能否更新你的文章以包含其来源？ –

2012-02-10 06:43:21