fork download
copy 
  1. #!/usr/bin/perl6
  2. my Str $cookie = 'foo=bar,count=roo,date=kek';
  3. grammar cookies {
  4.     token key     { \w+ }
  5.     token value   { <-[,]>+ }
  6.     token pair    { <key> \h* '=' \h* <value> }
  7.     token TOP     { <pair>* % [','+] }
  8. }
  9. say cookies.parse($cookie);
Success #stdin #stdout 0.14s 109504KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
｢foo=bar,count=roo,date=kek｣
 pair => ｢foo=bar｣
  key => ｢foo｣
  value => ｢bar｣
 pair => ｢count=roo｣
  key => ｢count｣
  value => ｢roo｣
 pair => ｢date=kek｣
  key => ｢date｣
  value => ｢kek｣
https://ideone.com/ansmt2
language:
Perl (perl 2018.12)
created:
7 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!