Permalink
Browse files

First "working" playing.pl.

  • Loading branch information...
1 parent 2dafe43 commit 7e3eca2862e1289f33521f1a2df0dc3be460f75b @LastOfTheCarelessMen LastOfTheCarelessMen committed Dec 16, 2009
Showing with 20 additions and 0 deletions.
  1. +20 −0 playing.pl
View
@@ -0,0 +1,20 @@
+use v6;
+
+my $abc = q«X:64
+T:Cuckold Come Out o' the Amrey
+S:Northumbrian Minstrelsy
+M:4/4
+L:1/8
+K:D
+A/B/c/A/ +trill+c>d e>deg | GG +trill+B>c d/B/A/G/ B/c/d/B/ |
+A/B/c/A/ c>d e>deg | dB/A/ gB +trill+A2 +trill+e2 ::
+g>ecg ec e/f/g/e/ | d/c/B/A/ Gd BG B/c/d/B/ |
+g/f/e/d/ c/d/e/f/ gc e/f/g/e/ | dB/A/ gB +trill+A2 +trill+e2 :|»;
+
+regex abc_header_field { ^^ \w ':' .* $$ }
+regex abc_header { <abc_header_field>+ }
+
+if $abc ~~ m/ <abc_header_field> /
+{
+ say $<abc_header_field>;
+}

0 comments on commit 7e3eca2

Please sign in to comment.