in reply to Re: annoying HASH (0xsomething)
in thread annoying HASH (0xsomething)

Thank you very much dude!
I am so much used to Java for OOP and Perl for just straight scripting. It is terrible when I try to mix my knowledge of both :D I solved my problem by adjusting the line with getting the parameter (just passed number 1 instead of 0) 
sub passwd{
>>$pass_cleartext=$_[1];
}

[download]

thanks again and have a good one

Replies are listed 'Best First'.
Re^3: annoying HASH (0xsomething)
by oko1 (Deacon) on Jan 18, 2011 at 15:46 UTC

    This will now fail if you call it as a subroutine. :) Try this instead: 

    sub passwd {
        my $ppr = Authen::Passphrase::MD5Crypt->new(
                        salt_random => 1,
                        passphrase => pop);
        return $ppr->as_crypt;
        }

    [download]

    Now it will work no matter which way you invoke it. 

    -- 
Education is not the filling of a pail, but the lighting of a fire.
 -- W. B. Yeats
[reply]
[d/l]

In Section Seekers of Perl Wisdom