вечер добрый...
не получается передать хэш массив пакету(модулю), пожалуйста помогите...
конструктор:sub new {
my $class = shift;
my ($self,%common) = @_;
$self = {
data => {},
error => 0,
};
$self->{'error'} = $common{'error'} if $common{'error'};
bless ($self, $class);
return $self;
}
до хэша, который я в него передаю можно добраться только через $self{data}{чтототам}
sub foo {
my $self = shift;
if (@_) {$self{data} = shift;}
print $self{data}{чтототам};
}
Хэш передается так:
my $use = Pkg -> new();
$use -> foo( \%hash );
возможно ли, сделать так, чтобы обращение к хэшу выглядело $self{чтототам}, но при этом работал и $self{error}..
сори, что путано, терминологией не владею... =))
заранее благодарен....
Вариант для распечатки
Программирование под UNIX (Public)
on 07-Сен-06, 08:35 
