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');