Perl syntax errors on hash generating script

Question

I am getting the following errors when running the code:

syntax error line 5, near "use Digest::MD5

sub makeKey 
"
syntax error at line 8, near "}"
syntax error at line 15, near ")
}"
Execution aborted due to compilation errors.

My script:

use lib '/home/me/Desktop/pm/MD5.pm';
use Digest::MD5

sub makeKey 
{
    my ($strPassword, $strRndk);
    $strKey = uc(md5Hash($strPassword)) + $strRndk + "Y(02.>'H}t\":E1" + md5Hash($strKey);
    return $strKey;
}

sub md5Hash 
{
    my ($strPassword);
    $strMd5 = md5_hex($strPassword);
    return substr($strMd5, 16, 16) + substr($strMd5, 0, 16);
}

makeKey('test', '1A2B3C');

starbolin · Accepted Answer · 2012-06-04 00:13:24Z

4

Use Digest::MDd5 needs to end with a semicolon.

answered Jun 4, 2012 at 0:13

starbolin

8405 silver badges13 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

user1432856 Over a year ago

I did that, but now I get "Parameter to use lib must be directory, not file on line 1", so I did that, and now I get "Undefined subroutine &main::md5_hex called on line 14".

mu is too short · Accepted Answer · 2012-06-04 00:30:35Z

4

Concerning your third (and final?) problem:

"Undefined subroutine &main::md5_hex called on line 14"

Digest::MD5 doesn't export md5_hex (or anything else) by default, you have to explicitly tell it that it should export md5_hex:

use Digest::MD5 qw(md5_hex);

or use the full Digest::MD5::md5_hex name.

answered Jun 4, 2012 at 0:30

mu is too short

436k71 gold badges863 silver badges822 bronze badges

Collectives™ on Stack Overflow

Perl syntax errors on hash generating script

2 Answers 2

1 Comment

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

1 Comment

Comments

Your Answer

Sign up or log in

Post as a guest

Related