--- ABANDONED! should use XSLT instead. --dan


#!/bin/perl

use strict;
# nasty perl to mangle a sample topic map into RDF
# for sake of demo. exact mapping from tm2rdf isn't yet clear.
#
# using src data:
# http://www.techquila.com/tmsamples/punk/music.xml
#


my $infile = shift;
my $xml;
open (IN,$infile) || die "No input file. Usage $0 srcfile";
while(<IN>){
  s/id:/web:ID/g;

  $xml.=$_;
};