good chemistry is complicated, and a little bit messy -LW |
|
PerlMonks |
Re: Loop Through Files and Update Headersby choroba (Cardinal) |
on Mar 05, 2020 at 22:54 UTC ( [id://11113883]=note: print w/replies, xml ) | Need Help?? |
Why do you open the file using open? You don't seem to be using the file handle IN anywhere. But, when opening it, you correctly specify the path as "Output/$in". You should do the same when tying the file:
Otherwise, it just creates a new file in the current directory, populates its first line, and that's it.
map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]
In Section
Seekers of Perl Wisdom
|
|