Re: IO::Tee problem (Well, problem with my brain, anyway)

Your code contains:

open my $read, '<', 'Fanggame.txt';
open my $write, '>>', 'Fanggame.txt';
[download]

That is, you open for input and appending for output the same file.

Every time you run the program, you should double the size of your input file. Run it again; how much longer does the file get?

Comment on Re: IO::Tee problem (Well, problem with my brain, anyway) Download Code

Replies are listed 'Best First'.
Re^2: IO::Tee problem (Well, problem with my brain, anyway) by pobocks (Chaplain) on Mar 23, 2009 at 16:26 UTC
The problem is that the input file triples, while the output file doubles. As far as I can tell, I'm slurping the entire file (previous to any additions), and then foreaching over a simple array and printing the file once. I should get a doubled copy in the input file, and a single copy in the output file. I've checked (with a print statement) and @lines contains only a single copy of the input file. `for(split(" ","tsuJ rehtonA lreP rekcaH")){print reverse . " "}print "\b.\n";`	[reply] [d/l]
Re^3: IO::Tee problem (Well, problem with my brain, anyway) by apl (Monsignor) on Mar 23, 2009 at 17:15 UTC
Why do you want to echo your input back to your input file?	[reply]
Re^4: IO::Tee problem (Well, problem with my brain, anyway) by pobocks (Chaplain) on Mar 23, 2009 at 17:45 UTC
I was testing a statement made in Intermediate Perl; I don't really have a concrete use in mind. Right now, my main goal is to find out why it's doubling the output, so I can know how it works (and what I'm missing/doing wrong, assuming it's not an oddity in IO::Tee or something). `for(split(" ","tsuJ rehtonA lreP rekcaH")){print reverse . " "}print "\b.\n";`	[reply] [d/l]


We don't bite newbies here... much
	PerlMonks