Re^3: Print out an XML file to browser

[virtualsue]

Two things:

1. If you know you want to output xml, then print header('text/xml'); is a lot simpler.
2. Always check to see if your 'open' succeeded. Your error message means that your script didn't open the file.

#!/usr/local/bin/perl
use strict;
use warnings;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);

print header('text/xml');
my $file = "/some/file.xml";
open(XMLFILE, $file) or die "Failed to open $file, $!";
while (<XMLFILE>){
   print;
}

[been42]

Thanks for the correction. I thought I remembered that it was something simple, but I guess I just skipped over that in the docs when I looked.

[lakeTrout]

Thanks Virtualse

The above code seems to work but I get a bad headder error. It "works" mening in prints by hand, just not to the browser. What might cause that?