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