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