#!/usr/bin/perl -w
# --------------------------------------------------------------------------------- 
# Author: James Brunskill (Library/University of Waikato) - brunskil@waikato.ac.nz 
# Original Release Date: 28/02/2007
# Description/Purpose:
# Removes <isbn></isbn> tags from a file
#
# perl -S removexml.pl filein.xml fileout.txt
# 
# --------------------------------------------------------------------------------- 
use strict;
use IO::File;
#
#Stuff to pull in from the commandline
#
if( $#ARGV < 1)
{
    die "Please specify input and output files";
}

my $inputfile = $ARGV[0];
my $outputfile = $ARGV[1];

my $tmp = "";
my $tmp2 = "";

open (INFILE, "$inputfile")|| die "couldn't open input file!";
open (OUTFILE, ">$outputfile")|| die "couldn't open output file!";

while ($tmp = <INFILE>)
{
        $tmp =~ s/<isbn>//g;
	$tmp =~ s/<\/isbn>/\n/g;

	print OUTFILE $tmp;
}

close(INFILE);
close(OUTFILE);

