$U::parry = 0;
%U::Par=(
                  0 => "",
                  3 => "ОТР",
                  2 => "СБ",
                  1 => "ПН");

$crap = '';
Status::new_sv( $U::Par{$U::parry}, 4, 15 ); Status::new_sv( $crap, 1 ); 

затем я где-то меняю $U::parry=1;

поидее в строке статуса должно отразиться ПН, но ничего не отображается.
если написать Status::new_sv( $U::Par{1}, 4, 15 ); то тогда отображается,
помогите разобраться в чем ошибка?

alyam, интересно про какой модуль идет речь?

да модуль status то стандартный.

sub new_sv($;$$) {
  my $y=0;
  my $w=$_[1]||length($_[0]);
  my $c=$_[2];
  my $val=$_[0]||'';
  $c=$Conf::statusfg if (!defined($c));
  eval {
    tie $_[0],'Status',$y,$w,$c,$val;
  };
  if ($@) {
    if ($@ =~ /^Modification of a read-only value attempted/) {
      my $tmp=$_[0];
      tie $tmp, 'Status', $y, $w, $c, $val;
      push(@constants,\$tmp);
    } else {
      die $@;
    }
  }
  refresh_line($svars[$y]) if $ready;
}


Это сообщение отредактировал(а) alyam - 31.8.2006, 19:36

В моем понимании стандартный модуль - это который есть в любом дистрибутиве Perl. А модуля Status я не нашел даже на CPAN'е. И потом, может не в этом модуле дело, раз Status::new_sv($U::Par{1}... работает, а Status::new_sv($U::Par{$U::parry}... - нет. Здесь фигурирует еще модуль U (которого тоже не на CPAN'е). Например, модуль U может быть устроен так, что $U::parry всегда 0.

alyam, 


а затем вызываешь?

Глупость, похоже, написал

вообще Status::new_sv( $U::Par{$U::parry}, 4, 15 ) только в начале программы.
как я понял, если переменную изменить, то строка статуса обновится

alyam, 

нет.