Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris

Re^6: Optional Arguments..?

by Watergun (Novice)
on Jun 04, 2012 at 00:07 UTC ( #974202=note: print w/replies, xml ) Need Help??

in reply to Re^5: Optional Arguments..?
in thread Optional Arguments..?

Thanks for the reply!

But could you kindly explain what the code you provided does, and how does it work? As I'm very new to Perl, I don't understand some of the code yet.

If I am not wrong, you are only encoding the password, but my aim is to encode everything that the user entered.

Replies are listed 'Best First'.
Re^7: Optional Arguments..?
by poj (Parson) on Jun 04, 2012 at 08:12 UTC
    I have added some comments and changed it to encode/decode complete records i.e. all the data.
    #!perl use strict; use ST2614; my $key = $ARGV[1] || 'secretkey'; my %HoA=(); # open file to read open IN, '<','passmgr.dat' or die ("The file cannot be opened!"); # read records line at a time while (<IN>){ chomp; # remove carriage return/line feed # decode record my $record = ST2614::decode($_, $key); # split records into fields on tab my ($sitename,$id,$password,$url) = split "\t",$record; # build hash of arrays $HoA{$sitename} = [$id,$password,$url]; # print "$sitename $id $password $url\n"; } # open file to write open OUT, '>','passmgr.dat' or die ("The file cannot be opened!"); # loop through HOA using key to extract values from array for my $sitename (sort keys %HoA){ my $id = $HoA{$sitename}[0]; my $password = $HoA{$sitename}[1]; my $url = $HoA{$sitename}[2]; # build a record of fields seperated with tab my $record = join "\t",$sitename,$id,$password,$url; # store as encoded value print OUT ST2614::encode($record,$key)."\n"; }
    hope this helps

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://974202]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (6)
As of 2017-01-20 20:39 GMT
Find Nodes?
    Voting Booth?
    Do you watch meteor showers?

    Results (177 votes). Check out past polls.