"Wow Ken! Thank you so much. This solution works."
You're welcome.
"I have been programming in Perl in no more than 10 days....so there are lot of unknowns for me. This has been a great resource."
While I did see your "I am relative new to Perl.", I wasn't aware just how new.
Not a bad effort at all for a total beginner.
Here's some additional resources (in no particular order).
-
If you haven't already done so, I recommend you bookmark "http://perldoc.perl.org/perl.html".
This has links to tutorials, FAQs and documentation.
[Hint: If you just want to look up a function,
the "Perl functions A-Z" index
(that's the "Functions" link in the sidebar) is much faster, and easier to navigate, than the
perlfunc page,
which is very large and can take substantially longer to load.]
-
Prefer lexical filehandles and the 3-argument form of open.
The filehandles you've used are package variables, with global scope:
in larger programs, where you've perhaps unwittingly used something with a non-specific name
(like FILEWRITE) in more than one place,
you can easily introduce hard-to-track-down bugs.
Furthermore, when a lexical filehandle goes out of scope, Perl will automatically
close it for you:
one more thing you don't have to worry about and a potential point of error removed.
-
I/O, and other operations, should be checked for failure.
This can be tedious and error-prone:
let Perl handle this for you with the autodie pragma.
-
Use lexical variables in the smallest scope possible.
See "perlsub: Private Variables via my()"
for more on this.
You can find examples (of all of the code-related points above) in my posted solution.