#!/opt/nokianms/bin/perl -w
use strict;
use English;
use IO::File;
my $FileContent;
sub ReadRepXMLFile
{
my ( $filename ) = @ARG;
undef $RS; # for reading the file into one scalar
my $ifh = IO::File->new( $filename,"r" );
die "File OpenError($filename);$OS_ERROR" unless $ifh;
$FileContent = <$ifh>;
$ifh->close();
}
sub WriteRepXMLFile
{
my ( $filename ) = @ARG;
my $ofh = IO::File->new( $filename,"w" );
die "File OpenError($filename);$OS_ERROR" unless $ofh;
$ofh->print( $FileContent );
$ofh->close();
}
sub main
{
if ( scalar( @ARGV ) != 2 )
{
print "Usage: $0<xxxrap_rep.xml> <outputfile>\n";
exit 1;
}
ReadRepXMLFile( $ARGV[0] );
WriteRepXMLFile( $ARGV[1] );
exit 0;
}
main();
__END__