try accessing %INC? --- Kirk <[EMAIL PROTECTED]> wrote: > Not exactly. There are several dozen parent > programs that call a single > child program (a global DBI handle). I've just > discovered that many of the > calling parent programs are using "require". So > what I have is: > > #!/usr/local/bin/perl > # filename: parent.pl > require child.pl > ... > ... > > And in child.pl, I need to determine the name of the > parent program which > called it. A simple $0 wont due and "caller" > doesn't apply. Any other > suggestions? > > Kirk > [EMAIL PROTECTED] > http://www.scriptdoggie.com > > > ----- Original Message ----- > From: "Jenda Krynicky" <[EMAIL PROTECTED]> > To: <[EMAIL PROTECTED]> > Sent: Friday, June 07, 2002 10:56 AM > Subject: Re: [Perl-unix-users] Display parent > program (.pl) from a package > (.pm)? > > > > From: "Kirk" <[EMAIL PROTECTED]> > > > > > Is there a system variable or some clever way to > view all the > > > "currently" running programs from within a > package? This is a > > > confusing question so here's an example. > > > > > > I have a program called "parent.pl": > > > > > > #!/usr/local/bin/perl > > > use child > > > ... > > > ... > > > > > > > > > Now, when Child is called, I'd like to see if > parent.pl is calling > > > child.pm or if it's some other parent program. > > > > So do you want the currently runing programs on > the computer or > > just the name of program that runs your code? > > > > If the later take a look at > > perldoc perlvar > > and search for > > $0 > > > > Jenda > > > > =========== [EMAIL PROTECTED] == > http://Jenda.Krynicky.cz ========== > > There is a reason for living. There must be. I've > seen it somewhere. > > It's just that in the mess on my table ... and in > my brain > > I can't find it. > > --- me > > _______________________________________________ > > Perl-Unix-Users mailing list > > [EMAIL PROTECTED] > > To unsubscribe: > http://listserv.ActiveState.com/mailman/mysubs > > _______________________________________________ > Perl-Unix-Users mailing list > [EMAIL PROTECTED] > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
===== __________________________________________________ Do You Yahoo!? Yahoo! - Official partner of 2002 FIFA World Cup http://fifaworldcup.yahoo.com _______________________________________________ Perl-Unix-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
