Perl I/O Read & Write

#!/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__