Perl重置变量

Question

我在学习Perl，并且制作了一个脚本，它将在我的脚本的开始部分使用定义的变量来建立连接，拉动记录，修改它们，然后关闭连接。

我的工作的第二部分涉及重复相同的步骤，但对于不同的服务器。

是否有方法来取消设置之前设置的任何变量？然后使用新定义的设置并重复这些步骤？

谢谢

Answer 1

在自己的范围内定义您的变量。

{ 
    my $server = '123.123.123.123'; 
    my $username = 'user1'; 
    ping($server); 
    login($username); 
} 
{ 
    my $server = '222.222.123.123'; 
    my $username = 'user2'; 
    ping($server); 
    login($username); 
} 

更妙的是，使用函数定义：

sub doSomethingToServer 
{ 
    my ($server, $username) = @_; 
    ping($server); 
    login($username); 
} 

doSomethingToServer('123.123.123.123', 'user1'); 
doSomethingToServer('222.222.123.123', 'user2');