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
|
commit 58b7b8e9b7a599d64923e985320a155e8ab161a8
Author: Jonas Smedegaard <dr@jones.dk>
Date: Tue Dec 4 22:07:12 2018 +0100
Rename file-related variable names.
--- a/bin/rdfpuml.pl
+++ b/bin/rdfpuml.pl
@@ -82,14 +82,18 @@
SPARQL
## $RE_SPARQL;
-my $fname = shift or die "perl rdfpuml <file>: read <file>.ttl, write <file>.puml\n";
-$fname =~ s{\.ttl$}{};
+die "perl rdfpuml <file>: read <file>.ttl, write <file>.puml\n"
+ unless (@ARGV);
-my $prefixes = -e "prefixes.ttl" ? slurp("prefixes.ttl") : "";
-my $data = slurp("$fname.ttl");
+my $infile = $ARGV[0];
+my $outfile = $infile =~ s{(?:\.ttl)?$}{.puml};
+my $prefixfile = 'prefixes.ttl';
+
+my $prefixes = -e $prefixfile ? slurp($prefixfile) : "";
+my $data = slurp($infile);
my $turtle = "$PREFIXES_TURTLE\n$prefixes\n$data";
my $prefixes_all = "$PREFIXES_TURTLE\n$prefixes";
-open STDOUT, '>:encoding(UTF-8)', "$fname.puml" or die "can't create $fname.puml: $!\n";
+open STDOUT, '>:encoding(UTF-8)', $outfile or die "can't create $outfile: $!\n";
binmode STDERR, ":encoding(UTF-8)";
# print STDERR $turtle; die;
|
