Jeffrey Kegler jeffreykegler

View marpa-test7
1 2 3 4 5 6 7 8 9 10
#!/usr/bin/perl
# Copyright 2012 Jeffrey Kegler
# This file is part of Marpa::R2. Marpa::R2 is free software: you can
# redistribute it and/or modify it under the terms of the GNU Lesser
# General Public License as published by the Free Software Foundation,
# either version 3 of the License, or (at your option) any later version.
#
# Marpa::R2 is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
View kv_extend.pl
1 2 3 4 5 6 7 8 9 10
use 5.010;
use strict;
use warnings;
 
use Data::Dumper;
use Marpa::R2 2.082000;
 
my $input = <<'END_OF_STRING';
{
name => 'test hash 1',
View scraper2.pl
1 2 3 4 5 6 7 8 9 10
#!/usr/bin/env perl
 
use 5.010;
use strict;
use warnings;
 
use Marpa::R2 2.082000;
use Marpa::R2::HTML qw(html);
 
# ---------------------------
View Scraper
1 2 3 4 5 6 7 8 9 10
use 5.010;
use strict;
use warnings;
use Marpa::R2 2.082000;
use Marpa::R2::HTML qw(html);
 
my %handlers_to_keep_only_tables = (
table => sub { return Marpa::R2::HTML::original() },
':TOP' => sub { return \( join q{}, @{ Marpa::R2::HTML::values() } ) }
);
View Significant whitespace?
1 2 3 4 5 6 7 8 9 10
#!/usr/bin/perl
# Copyright 2014 Jeffrey Kegler
# This file is part of Marpa::R2. Marpa::R2 is free software: you can
# redistribute it and/or modify it under the terms of the GNU Lesser
# General Public License as published by the Free Software Foundation,
# either version 3 of the License, or (at your option) any later version.
#
# Marpa::R2 is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
View gist:8312534
1 2 3 4 5 6 7 8 9 10
#!/usr/bin/env perl
 
use 5.010;
use strict;
use warnings;
use Marpa::R2 2.079_007;
use Data::Dumper;
 
my $source = <<'END';
:default ::= action => ::array
View gist:8312524
1 2 3 4 5 6 7 8 9 10
#!/usr/bin/env perl
 
use 5.010;
use Marpa::R2 2.079_007;
use Data::Dumper;
 
my $source = <<'SOURCE';
product ::= sku (nl) name (nl) price price price (nl)
 
sku ~ sku_0 '.' sku_0
View dyck_hollerith.pl
1 2 3 4 5 6 7 8 9 10
#!perl
# Copyright 2013 Jeffrey Kegler
# This file is part of Marpa::R2. Marpa::R2 is free software: you can
# redistribute it and/or modify it under the terms of the GNU Lesser
# General Public License as published by the Free Software Foundation,
# either version 3 of the License, or (at your option) any later version.
#
# Marpa::R2 is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
View test.pl
1 2 3 4 5 6 7 8 9
use 5.10.0;
use Marpa::R2 2.053_006;
use Data::Dumper;
 
my $grammar = Marpa::R2::Scanless::G->new({
source => \<<'SOURCE',
:start ::= numbers
 
event number_found = completed number
View heredoc.t
1 2 3 4 5 6 7 8 9 10
#!perl
# Copyright 2013 Jeffrey Kegler
# This file is part of Marpa::R2. Marpa::R2 is free software: you can
# redistribute it and/or modify it under the terms of the GNU Lesser
# General Public License as published by the Free Software Foundation,
# either version 3 of the License, or (at your option) any later version.
#
# Marpa::R2 is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Something went wrong with that request. Please try again.