Advertisement
Guest User

Untitled

a guest
Dec 12th, 2016
97
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 6 0.66 KB | None | 0 0
  1. #!/usr/bin/env perl6
  2. use v6;
  3.  
  4. #`(
  5.   This is Rakudo version 2016.11-170-gc4a60110e built on MoarVM version 2016.11-41-gd2139b52
  6.   implementing Perl 6.c.
  7. )
  8.  
  9. my $key = 'foo';
  10. my %hash;
  11. %hash.append($key, $_) for <bar baz>;
  12.  
  13. dd %hash;
  14. # Hash %hash = {:foo($["bar", "baz"])}
  15.  
  16. say "\nBraces with string:";
  17. dd %hash{'foo'};
  18. # Array %hash = $["bar", "baz"]
  19.  
  20. say "\nChevrons, 1 word:";
  21. dd %hash<foo>;
  22. # Array %hash = $["bar", "baz"]
  23.  
  24. say "\nBraces with var:";
  25. dd %hash{$key};
  26. # Array %hash = $["bar", "baz"]
  27.  
  28. say "\nGuillemets, 1 var:";
  29. dd %hash«$key»;
  30. # ($["bar", "baz"],)
  31.  
  32. say "\nBraces with var + comma:";
  33. dd %hash{$key,};
  34. # ($["bar", "baz"],)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement