Re: Broken Write function? Does anyone have Magic fixer ability?

open(IN2 , '>', $filename2);          ###  "IN2"
print IN "Invalid Addresses:\n\n\n";  ###  "IN" !!!
[download]

(Of course, why you're calling an output file "IN" is another mystery...)

perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'

Comment on Re: Broken Write function? Does anyone have Magic fixer ability? Download Code

Replies are listed 'Best First'.
A reply falls below the community's threshold of quality. You may see it by logging in.