Skip to content
Find file
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 $_]
}
}
Something went wrong with that request. Please try again.