[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