hashe a objekty :(

[Roman Fordinal]

  ahojte!

  uz tu maturujem hodne dlho nad jednym banalnym problemom
  mam v package subrutinu new, v ktorej je v skratke asi toto

sub new
{
 my $procc=shift;
 my $text=shift;
 my $self={};
 return 0 unless $email;
 my @body=split('\n',$text);

 foreach (@body)
 {
  @ref=split(':',$_);
  $self->{header}->{$ref[0]}=$ref[1];
 }

 bless $self;
 return $self;
}


cize ukladam do $self->{header} napr. toto
$self->{header}->{nieco01}="fasfasfasf";
$self->{header}->{nieco02}="sfasdfasfas";
$self->{header}->{nieco03}="ertyertyery";
$self->{header}->{nieco04}="mbmbmbmbmb";
tiez mam aj odkazy tohto typu:
$self->{body}="asfasf";
$self->{hocico01}="werwer";

no a jednoducho by som potreboval dostat
do %header vsetko co je pod $self->{header}
a akosi mi to nejde :((((

potreboval by som totiz vykonat nad $self->{header} prikaz foreach


poradite niekto????


:
:..                      Roman Fordinal
:.: fordinal na slovanet.sk