arunbear suggested an example if how IO::All is helpful might be good. So here is one contrived example of making a copy of a file with the text reversed in a cross-patform manner (all code is untested):
without IO:All:
use File::Spec;
my $file = File::Spec->catfile('my','dir','my_file.txt');
open (MYFILE, '<', $file) or die "Can't open $file: $!\n";
my @lines = <MYFILE>;
close MYFILE;
my $rfile = File::Spec->catfile('my','dir','reversed.txt');
open(RFILE, '>', $rfile) or die "Can't open $rfile: $!\n";
print RFILE reverse @lines;
close RFILE;
With IO::All:
use IO::All;
io->catdir('my','dir','my_file.txt')->backwards
>
io->catdir('my','dir','reversed.txt');
To my mind the best thing about IO:All is that it takes care of all the error checking related to IO operations as well is the fussiness of opening and closing files in the correct mode for the desired operations.
There are a number of other examples of how this module can be used to make your code simpler and more straightforward in the documentation that comes with IO::All.
update: I misspoke in the opening paragaraph. This example reverses the lines in the file, the whole text is not reversed.
--DrWhy
"If God had meant for us to think for ourselves he would have given us brains. Oh, wait..."
|