How to Get Hash Array into an Object

[Frederic Bournival]

Hello,

i really need your help...

I'm not able to get the values of an hash array into an object

Here is my code:

package Test;

 # [...]

  sub AddText {

        my $this = shift @_;
        my $content = shift;

        my %hasharray = %$this->{mimeparts};

        $hasharray{'text'} = $content;
        $this->{mimeparts} = %hasharray;

    }

 sub GetText {

     my $this = shift @_;

     my %temp = %$this->{mimeparts};

     return $temp{'text'};

 }

 # [...]

  sub new {

        my $class = shift @_;
        my %parm = @_;
        my $this = {};

      # Hash Array of mimeparts ('text', 'html', 'file1', 'file2...')
     $this->{'mimeparts'} = {};
      # Hash Array of all filenames
     $this->{'filenames'} = {};

        bless $this, $class;
        return $this;

    }

1;

The problem is in the GetText SUB...
$this->{mimeparts}is an Hash Array and
i want to get the value of this hash with the 'html' key ...

How can i do this ?

Thanx a lot !!!!


Frédéric Bournival


_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs