#!/usr/bin/perl -w
# ---------------------------------------------------------------------------------
# Author: James Brunskill (Library/University of Waikato) - brunskil@waikato.ac.nz
# Original Release Date: 28/02/2007
# Description/Purpose:
# Removes 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 = )
{
$tmp =~ s///g;
$tmp =~ s/<\/isbn>/\n/g;
print OUTFILE $tmp;
}
close(INFILE);
close(OUTFILE);