1#!/usr/bin/perl
2
3use XML::Directory::String;
4use strict;
5
6(@ARGV == 1 ) || die ("Usage: dir2xml_rdf.pl path\n\n");
7
8my $path = shift;
9
10my $dir = new XML::Directory::String($path,2,5);
11$dir->enable_rdf('index.n3');
12#$dir->error_treatment('warn');
13
14my $rc  = $dir->parse;
15my $xml = $dir->get_arrayref;
16
17foreach (@$xml) {
18    print "$_\n";
19}
20
21exit 0;
22
23
24