访问Perl变量中的数据

Question

我抛弃了一个名为$prefs的Perl变量并得到了这个：

$VAR1 = bless( {
                 'USERID' => 1286,
                 'PREFS' => {
                              '1' => {
                                       'VALUE' => 1,
                                       'OTHERS_POST' => 1,
                                       'CLIENTS_POST' => 1,
                                       'ASSIGNED_TASKS' => 1
                                     }
                            },
                 'dbh' => bless( {
                                   '_sth' => bless( {}, 'DBI::st' ),
                                   '_dbh' => bless( {}, 'DBI::db' )
                                 }, 'Taskman::DB' )
               }, 'USystems::UserPrefs' );

我对Perl很陌生，我想知道是否有人可以分析是否可以访问此变量中的特定数据。

如果我想做一个if语句，比如

if (OTHERS_POST == 1) {
      // code }

如何进入OTHERS_POST变量

中的实际$prefs

Answer 1

$prefs->{PREFS}->{1}->{OTHERS_POST};