fork(1) download
  1. #!/usr/bin/perl6
  2. grammar A {
  3. rule TOP {
  4. ^ < \w || \s > + $
  5. }
  6. }
  7. my $str = 'the quick brown fox jumps over the lazy dog';
  8. say A.parse($str);
  9. # Nil
Success #stdin #stdout 0.1s 102592KB
stdin
Standard input is empty
stdout
Nil