return thing

[Kristofer Wolff]

hi all, 

is it possible to return a hash ?

like:
----------------------------------

@list= ("1;b;c", "2;d;g;" "3;test;test");
%h = gethash("0", @list);

sub gethash
{
        ($num, @list) = @_;
        foreach(@list)
        {
                @line = split(/;/);
                $h{$line[$num]} = join(";", @line);
        }
        return(%h);
}

--------------------------------------


Thanx,
Kris
_______________________________________________
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web