ebnf2slif.pl

#!env perl
use strict;
use diagnostics;
use POSIX;
use MarpaX::Import;
use Log::Log4perl qw /:easy/;
use Log::Any::Adapter;

my $conf = q(
log4perl.rootLogger              = WARN, Screen
log4perl.appender.Screen         = Log::Log4perl::Appender::Screen
log4perl.appender.Screen.stderr  = 1
log4perl.appender.Screen.layout  = PatternLayout
log4perl.appender.Screen.layout.ConversionPattern = %d %-5p %6P %m{chomp} [%C:%L]%n
);

Log::Log4perl::init(\$conf);
Log::Any::Adapter->set('Log4perl');

my $any = MarpaX::Import->new({startrules => [qw/dateTimeLexicalRep/], bnf2slif => 1});
my $data = do { local $/; <DATA> };
my $grammar = $any->grammar($data);
print $grammar->rules_as_string(1);
exit(EXIT_SUCCESS);

__DATA__
dateTimeLexicalRep ::= yearFrag '-' monthFrag '-' dayFrag 'T' ((hourFrag ':' minuteFrag ':' secondFrag) | endOfDayFrag) timezoneFrag?