Sweet! I added a reverse print to the pile!
<code>
#!/usr/bin/env perl6
#`{
Hashes do not print in the order they are created. it is a Perl 6 thing.
To overcome this, create an index of the hash.
}
my @SmtpIndex =
qw[ DebugTrace smtp port username password from to Subject Text
FileName ];
my %Smtp =
[ "{ @SmtpIndex[0] }" => "1",
"{ @SmtpIndex[1] }" => "smtps://smtp.zoho.com",
"{ @SmtpIndex[2] }" => "465",
"{ @SmtpIndex[3] }" => '[email protected]',
"{ @SmtpIndex[4] }" => "NaYukYukYuk",
"{ @SmtpIndex[5] }" => '[email protected]',
"{ @SmtpIndex[6] }" => @['[email protected]','[email protected]'],
"{ @SmtpIndex[7] }" => "Stooges",
"{ @SmtpIndex[8] }" => "Certainly!",
"{ @SmtpIndex[9] }" => @[""] ];
sub output(%hash, @index=@SmtpIndex) {
for @index -> $key {
printf "%10s = %s\n", $key, %hash{$key};
}
print "\n";
}
sub revoutput(%hash, @index=@SmtpIndex) {
for reverse ( @index ) -> $key {
printf "%10s = %s\n", $key, %hash{$key};
}
print "\n";
}
my @SmtpValues = %Smtp{@SmtpIndex};
my %Smtp2 = do {
my $index = 0;
@SmtpValues.map: { "{ @SmtpIndex[$index++] }" => $_ };
};
my %Smtp3 = gather for [email protected] {
take @SmtpIndex[$_] => @SmtpValues[$_].Str;
};
my %Smtp4 = @SmtpIndex Z=> @SmtpValues;
# These are all equivalent
# output(%Smtp);
# output(%Smtp2);
# output(%Smtp3);
output(%Smtp4);
# print in reverse
revoutput(%Smtp4);
</code>
$ HashIndexTest.pl6
DebugTrace = 1
smtp = smtps://smtp.zoho.com
port = 465
username = [email protected]
password = NaYukYukYuk
from = [email protected]
to = [email protected] [email protected]
Subject = Stooges
Text = Certainly!
FileName =
FileName =
Text = Certainly!
Subject = Stooges
to = [email protected] [email protected]
from = [email protected]
password = NaYukYukYuk
username = [email protected]
port = 465
smtp = smtps://smtp.zoho.com
DebugTrace = 1
