objects and hash

[Roman Fordinal]

  problem?

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];
 }

>??? foreach $key (keys $self->{header})
>??? {
>???  print $key.":".$self->{header}->{$key}."\n";
>??? }

 bless $self;
 return $self;
}
  

:
:. s pozdravom
:..                      Roman Fordinal
:..                      project manager
:.:
:.: WebCom s.r.o. - Internet Advertising Agency & Design Studio
:.: Stanicna 12, Zohor, Slovakia
:.: Tel: +421.02.65458251, +421.0907.178147
:.: [EMAIL PROTECTED]


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]