Sponsoring The Perl Toolchain Summit 2025: Help make this important event another success Learn more

DYLUNIO / Gwybodaeth-0.02 / script / gwybodaeth 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
—
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136

              
#!/usr/bin/env perl
use warnings;
use strict;
use lib '../lib';
use lib 'lib';
use Carp qw(croak);
use File::Spec;
use Getopt::Long;
use XML::Twig;
# gwybodaeth specific modules
use Gwybodaeth::Parsers::N3;
use Gwybodaeth::Read;
sub show_help {
    return system( "perldoc", "Gwybodaeth" );
}
my $data;
my $map;
my $in_type;
my $help;
GetOptions(
    'src|source=s' => \$data,
    'map=s'        => \$map,
    'input|in=s'   => \$in_type,
    'help|h'       => \$help
);
# Load help dialogue
if ( defined $help ) {
    show_help;
    exit 1;
}
# Load configuration
my $root = File::Spec->rootdir();
my $conf_file = File::Spec->catfile("$root",'etc','gwybodaeth','gwybodaeth.conf');
-e $conf_file or croak "you need a configuration file $conf_file: $!";
my $twig = XML::Twig->new();
$twig->parsefile($conf_file);
my @converters = $twig->root->children('converter');
my %convert    = ();
for my $conv (@converters) {
    my $name   = $conv->first_child_text('name');
    my $parser = $conv->first_child_text('parser');
    my $writer = $conv->first_child_text('writer');
    $convert{$name} = { parser => $parser, writer => $writer };
}
my $input = Gwybodaeth::Read->new();
my $len;
if ( -f $data ) {
    $len = $input->get_file_data($data);
}
else {
    $len = $input->get_url_data($data);
}
croak "Empty file." if ( $len < 1 );
my $mapping = Gwybodaeth::Read->new();
if ( -f $map ) {
    $len = $mapping->get_file_data($map);
}
else {
    $len = $mapping->get_url_data($map);
}
croak "Empty site." if ( $len < 1 );
my @data = @{ $mapping->get_input_data };
my $map_parser = Gwybodaeth::Parsers::N3->new();
my $map_triples = $map_parser->parse(@data);
unless ($map_triples) { croak 'Error while parsing map data'; }
my $parser;
my $writer;
my $write_mod;
my $parse_mod;
if ( defined( $convert{$in_type} ) ) {
    $write_mod = $convert{$in_type}->{'writer'};
    $parse_mod = $convert{$in_type}->{'parser'};
    eval {
        ( my $wpkg = $write_mod ) =~ s!::!/!gx;
        ( my $ppkg = $parse_mod ) =~ s!::!/!gx;
        require "$wpkg.pm";                        ## no critic
        require "$ppkg.pm";                        ## no critic
        import $parse_mod;
        import $write_mod;
        1;
    } or croak "Module loading failed: $!";
    $parser = $parse_mod->new();
    $writer = $write_mod->new();
}
else {
    croak "$in_type is not defined in the config file";
}
my $parsed_data_ref = $parser->parse( @{ $input->get_input_data } );
unless ($parsed_data_ref) { croak 'Error while parsing source data.'; }
$writer->write_rdf( $map_triples, $parsed_data_ref );
__END__
=head1 SEE ALSO
L<Gwybodaeth>
=head1 AUTHORS
Iestyn Pryce, <imp25@cam.ac.uk>
=head1 ACKNOWLEDGEMENTS
I'd like to thank the Ensemble project (www.ensemble.ac.uk) for funding me to
work on this project in the summer of 2009.
=head1 COPYRIGHT AND LICENSE
Copyright (C) 2009 Iestyn Pryce <imp25@cam.ac.uk>
This library is free software; you can redistribute it and/or modify it under
the terms of the BSD license.