Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

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.

Comment on Re^6: Optional Arguments..?
Replies are listed 'Best First'.
Re^7: Optional Arguments..?
by poj (Vicar) 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 the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (8)
As of 2015-11-30 00:42 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (755 votes), past polls