+++ /dev/null
-#!/usr/bin/perl
-
-my $inputfile = $ARGV[0];
-
-print "Now splitting file $inputfile\n";
-open(IN, "<$inputfile") or die "Error opening file $inputfile";
-$dummy = <IN>; # <?xml version="1.0" encoding="ISO-8859-1"?>
-$dummy = <IN>; #
-$dummy = <IN>; # <rdf:RDF .../>
-$where = <IN>; # <h:Object rdf:about="...">
-chomp($where);
-$where =~ s/^[^"]*"([^"]*)">$/$1/;
-while(($line1 = <IN>) && not ($line1 =~ /<\/h:Object>/)) {
- $line2 = <IN>;
- $line3 = <IN>; # </refObj>
- $uri = $line2;
- chomp($uri);
- $uri =~ s/^ *<h:Occurrence rdf:about="[^"]*" rdf:value="([^"]*)"\/>$/$1/;
- $who = $uri;
- $who =~ s/^cic:/backward/;
- $who =~ s/#xpointer\(1\/([^\/]*)\/([^\/]*)\)/,$1,$2/;
- $who =~ s/#xpointer\(1\/([^\/]*)\)/,$1/;
- $line2 =~ s/\Q$uri\E/$where/;
-
- open(OUT, ">>$who") or die "Error opening file $who";
- print OUT " <h:backPointer>\n";
- print OUT $line2;
- print OUT " </h:backPointer>\n";
- close(OUT);
-}
-close(IN);