http://www.perlmonks.org?node_id=1012762


in reply to Broken Write function? Does anyone have Magic fixer ability?

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

(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'

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