Re: IO::All is sliced bread

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;
[download]

With IO::All:

use IO::All;

io->catdir('my','dir','my_file.txt')->backwards 
> 
io->catdir('my','dir','reversed.txt');
[download]

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..."

Comment on Re: IO::All is sliced bread Select or Download Code

Replies are listed 'Best First'.
Re^2: IO::All is sliced bread by eric256 (Parson) on Jun 21, 2006 at 17:19 UTC
Since this is a conrtived example...here is my other contrived example. Not to say IO::All isn't cool, i think many of us are just bigger control freaks and can't stand to guess what the module will do and if it will do the right thing. `use File::Spec; open (MYFILE, '<', File::Spec->catfile('my','dir','my_file.txt')) or d +ie "Can't open $file: $!\n"; open(RFILE, '>', File::Spec->catfile('my','dir','reversed.txt')) or di +e "Can't open $rfile: $!\n"; print RFILE reverse <MYFILE>;; use IO::All; my $file = io->catdir('my','dir','my_file.txt')->backwards; my $rfile = io->catdir('my','dir','reversed.txt'); $file > $rfile;` [download] Now if it was IO::DBD::All....just feed it a daatabase and a file of any format and ti does the right thing....well then i might not have much of a job so lets not go there. ___________ Eric Hodges	[reply] [d/l]
Re^2: IO::All is sliced bread by Jaap (Curate) on Jun 21, 2006 at 12:44 UTC
I thought this example: `use IO::All; io->catdir('my','dir','my_file.txt')->backwards > io->catdir('my','dir','reversed.txt');` [download] was wrong until i read the IO::All documentation and found out that the ">" operator is overloaded by IO::All. You might write it more suggestively by saying: `io->catdir('my','dir','my_file.txt')->backwards > io->catdir('my','dir +','reversed.txt');` [download]	[reply] [d/l] [select]
Re^3: IO::All is sliced bread by DrWhy (Chaplain) on Jun 21, 2006 at 15:56 UTC
I dunno -- it got you to read about IO::All, didn't it ;) Actually, I wrote it that way on purpose because I didn't like the way the line was wrapped by PM when it was all on one line. --DrWhy "If God had meant for us to think for ourselves he would have given us brains. Oh, wait..."	[reply]


"be consistent"
	PerlMonks