Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
21 lines (17 sloc) 282 Bytes
#! /usr/bin/perl
use Modern::Perl;
use YAML;
sub mon_parser {
state $grammar = qr{
(\d+)
# plus plein de trucs super compliqués
}x;
my $content = shift;
$grammar ~~ $content;
}
for (<>) {
say Dump
{ line => $_
, values => [parser $_]
}
}