[Linz-pm] perl6 und regex + grammar

WFB wolfgang.banaston at gmail.com
Sat Nov 28 02:53:52 PST 2015


Hi Leute  bzw. Stefan!

Mein perl6 grammar funktioniert nicht so wie ich das eigentlich denke es
sollte.
Im Debugger funktioniert alles wirklich super bis das Script an das Newline
im token TOP kommt. Sobald das passiert geht die Regexengine zurück, aber
$match is Any. Verstehe aber nicht warum. Kann da jemand erklären, wo der
Fehler ist?

Danke,
Wolf

Script schaut so aus:
use v6;
grammar body {
     token TOP { ^ Körper <-["]>+ <line>* \n }
     token line {  <date> \, <weight> \, <bmi> \, <fat> \n }
     token date { \" \d ** 2 \- \d ** 2 \- \d ** 4 \" }
     token weight { \" \d ** 2 \,? \d ** 0..2 \" }
     token bmi { \" \d ** 2 \,? \d ** 0..2 \" }
     token fat { \" \d ** 1..2 \,? \d ** 0..3 \" }
 }

my $text = slurp 'fitbit_export_201510.csv';

my $match = body.parse($text);

say $match;

Das file mit den daten sieht so aus:
Körper
Datum,Gewicht,BMI,Fett
"01-10-2015","74,29","24,26","11,829"
"02-10-2015","73,5","24","11,873"

Aktivitäten
Datum,Verbrannte Kalorien,Schritte,Strecke,Stockwerke,Minuten im
Sitzen,Minuten mit leichter Aktivität,Minuten mit relativ hoher
Aktivität,Minuten mit sehr hoher Aktivität,Aktivitätskalorien
"01-10-2015","2.514","9.807","7,12","31","699","209","8","23","1.071"
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/linz-pm/attachments/20151128/ae073add/attachment.html>


More information about the Linz-pm mailing list