http://www.perlmonks.org?node_id=984813


in reply to Re: help with Archive::Zip
in thread help with Archive::Zip

You have helped me pinpoint the problem my other problem is when I am reading in content and then try to print. I think im replicating the problem correctly. You helped clear up when i print to output directly rather than off of reading in a file or content from a webpage the problem is solved if i do \r\n when printing the output


#!perl use File::Slurp; use strict; use warnings; my $textfile = 'inputfile.txt'; my $output_file = 'file.txt'; my $text = read_file($textfile); open(my $output_fh, '>',"$output_file") or die "Failed to open $output_file: $!"; print {$output_fh} $text, "\r\n"; close $output_fh;