in reply to Re: help with Archive::Zip
in thread help with Archive::Zip
#!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;
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^3: help with Archive::Zip
by suaveant (Parson) on Aug 01, 2012 at 17:40 UTC |