2

私はperlスクリプト（abc.pl）と2つの設定ファイル（1つはvar.plと1つはconfig.txt）を持っています

今

var.plで

$admin_userid = "admin";
$guest_userid = "guest";

config.txt内-これはuserの値を持ちます-adminまたはguestのいずれかです

user=admin/guest

abc.plで

require var.pl

$get_user = admin or guest (get this value from config.txt)
**$myfinal_userid = ??**

config.txtのユーザーがadminの場合はadmin、guestの場合はguestとしてmyfinal_user_idの値が必要です。

つまり、$get_userの値に基づいてuseridの値が必要です-${$get_user}。"_ userid"例：config.txtにuser = adminがある場合、$ get_user = adminであり、$ myfinal_userid =$admin_useridが必要です。ゲストも同様です。これは動的でなければなりません。

最後に私が欲しいのは、config.txtからユーザーを知り、それに基づいてvar.plからユーザーIDを取得し、それをmyfinal_useridに保存することです。

Perlでこれをどのように達成できるか教えてください。

4

1 に答える 1

5

ハッシュを使用して ID を保存します。

my %id = ( admin => 'admin',
           guest => 'guest',
         );

my $get_user = 'admin';  # Read this from the config.
my $final_id = $id{$get_user};

my $other_user = 'guest';
my $another_final_id = $id{$other_user};

print $final_id, "\n", $another_final_id, "\n";
于 2012-11-02T12:17:09.747 に答える