Teamsolco wrote:
>
> To start, let me say this:
> 1) I have both "Learning Perl 3rd Ed" and "Programming Perl 3rd Ed"
> 2) I have read "Learning Perl 3rd Ed", and I use "Programming Perl 3rd Ed" as
> reference.
> 3) I have searched with Google for several key words related to my problem, but the
> mass of junk I get back is not
> helpful.
> 4) The application source is roughly 450 lines long, and the FAQ for this list asks
> users not to mass-post such things,
> otherwise I'd post it here en-masse for help.
>
> And, most importantly:
> A) I didn't write the application I'm working on, I extended it (to a great deal)
> using the same programming style as
> the original author (and other programmers before me), except that I've been
> "cleaning up" the old code a great deal.
> B) I understand this application is quite old, probably written in Perl 4 days, and
> shows no OO influence (was
> originally written as a down-and-dirty utility script).
>
> That said, please do not assume that I am incompetent; I'm just frustrated. I've
> been programming for more than 20
> years, just not with Perl (no, I'm not a VB "programmer" -- my experience is
> primarilly C).
>
> Now then, I've opened a can of worms by adding "use strict" and "use warnings" to
> the source. Keep in mind that this
> application was running JUST FINE before doing this. I'm only trying to 'modernize'
> this old code. Having started with
> a couple screen-fulls of resulting errors, I'm down to just one: "Can't use an
> undefined value as a symbol
> reference..." The partucular block that causes this error is:
>
> sub close_fifo {
> close($hndFIFO);
> }
>
> It's related open sub is:
>
> sub open_fifo {
> close_fifo();
>
> # Make sure the $hndFIFO file is a pipe.
> unless (-p $path_fifo) {
> unlink($path_fifo);
> system("mkfifo $path_fifo") or die("Can't mkfifo $path_fifo: $!");
> chmod(0600, $path_fifo);
> }
>
> # Open the $hndFIFO stream.
> open($hndFIFO, "< $path_fifo") or die("Can't open $path_fifo: $!");
> }
>
> and, at the top of this source, I have declared $hndFIFO (along with the log file
> handle) using our as in:
>
> our ($hndLOG, $hndFIFO);
>
>
> Before applying the aforementioned pragmas, the FIFO handle was simply, FIFO. There
> was no "our" declaration, at all,
> and the variable/handle name was not prefixed with the scalar $ indicator.
> Everything worked at that time... Clearly,
> I'm trying to delcare the FIFO (and log file) file handles as global to the
> application so that I can access them freely
> in several other subs. What do I need to do to satisfy the strict pragma, while
> accomplishing my goal?
I think you need to rant a little less. You've spent most of the post
telling us how great you and youre achievements are and how awful the
rest of the world is. If you really have twenty years' experience how
come you have little idea what to do next?
Rob
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
