fork(1) download
copy 
  1. #!/usr/bin/perl6
  2. my $string = Q (
  3. 	language: Perl
  4. 	created: 7 seconds ago
  5. 	visibility: public
  6. );
  7. grammar t_table {
  8. 	rule TOP {
  9. 		<?> <element>+
  10. 	}
  11. 	token element {
  12. 		<key> ': ' <value> <[\n\t]>*
  13. 	}
  14. 	token key {
  15. 		\w+	
  16. 	}
  17. 	token value {
  18. 		<-[\n]>+	
  19. 	}
  20. }
  21. say t_table.parse($string);
Success #stdin #stdout 0.12s 109248KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
｢
	language: Perl
	created: 7 seconds ago
	visibility: public
｣
 element => ｢language: Perl
	｣
  key => ｢language｣
  value => ｢Perl｣
 element => ｢created: 7 seconds ago
	｣
  key => ｢created｣
  value => ｢7 seconds ago｣
 element => ｢visibility: public
｣
  key => ｢visibility｣
  value => ｢public｣
https://ideone.com/fDQ7iW
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!