perl - Perlリセット変数

Question

私はPerlを学んでおり、スクリプトの最初に定義された変数を使用して接続を確立し、レコードをプルして変更し、接続を閉じるスクリプトを作成しました。

私の仕事の2番目の部分は、同じ手順を繰り返しますが、サーバーが異なります。

以前に設定された変数を設定解除する方法はありますか？次に、新しく定義された設定を使用して、手順を繰り返しますか？

ありがとうございました

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