Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
executable file 19 lines (15 sloc) 382 Bytes
#!/usr/bin/env perl6
use lib 'lib';
use RDF::Turtle;
my %*SUB-MAIN-OPTS = :named-anywhere;
sub MAIN($file, Bool :$triples) {
my $match = parse-turtle($file.IO.slurp);
if $triples {
my $trips = $match.made;
for @$trips -> ($subject, $predicate, $object) {
say "$subject $predicate $object .";
}
} else {
say $match;
}
}