Unfortunately proposed approach does not help in my situation. I will
describe my task more deeply, and I hope you could help me to solve it. 

code structure (comments after # sign):

main.pl  # main perl module
main     # c-shell wrapper to call main.pl
main.bat # ms-dos batch wrapper to call main.pl
My.pm    # some often-used functions and definitions like $TRUE and $FALSE
My\ConfigFile.pm  # another in-hous module

First, all this stuff should work "as is", w/o any changes in structure.
Second, I have to pack these modules and main script in one big file to send
it to a customer.

The problem is, that if I simply append sequentally all these files to
main.pl, I get compilation error because "use My.pm"  clause is looking
around for My.pm module and of course could not find it. It will not looking
within main.pl module for used modules. And if I skip "use My.pm" clause in
main.pl, I could not run this script in his original form.

What could be your suggestions in this case? Is this task accomplishable?

TIA,
Tim
----------------------------------------------------------------
(EXTERN) CHAKIROV, Timour (TZ CIS / DS ESQ3)

Robert Bosch GmbH          Tel:     +49 (0) 711-811- 3 00 48
Postfach 30 02 20          Fax:     +49 (0) 711-811- 3 18 00 
D-70442 Stuttgart          e-mail: [EMAIL PROTECTED]
Besucher: Wernerstr.51, Fe533/3, D-70469 Stuttgart-Feuerbach


> -----Ursprüngliche Nachricht-----
> Von: Burak Gürsoy [mailto:[EMAIL PROTECTED]
> Gesendet: Donnerstag, 20. März 2003 19:07
> An: [EMAIL PROTECTED]
> Betreff: RE: [Perl-unix-users] How do I Join two or more perl 
> modules in
> one file?
> 
> 
> Your script can be like this:
> 
> 
> #!/usr/bin/perl -w
> use strict;
> 
> #we're in the main package...
> my $obj = My::Class->new("blah");
> 
> My::SecondClass::foo(@bar);
> 
> 
> # here are the classes' codes...
> package My::Class;
> 
> sub new {
> #...
> }
> 
> # blah...
> 
> package My::SecondClass;
> 
> sub foo {
> # blah
> }
> 
> __END__;
> 
> 
> 
> > -----Original Message-----
> > From: [EMAIL PROTECTED] 
> > [mailto:[EMAIL PROTECTED] Behalf 
> > Of EXTERN Chakirov Timour (TZ CIS; DS/ESQ3)
> > Sent: Thursday, March 20, 2003 4:22 PM
> > To: [EMAIL PROTECTED]
> > Subject: [Perl-unix-users] How do I Join two or more perl modules 
> > in one file?
> > 
> > 
> > Hello,
> > 
> > I have a perl script which is using a couple of in-house modules.
> > Is any easy way to join these files in big one? In this case I 
> > have to send
> > and use only one file on a client computer.
> > 
> > TIA,
> > Tim
> > 
> > ----------------------------------------------------------------
> > (EXTERN) CHAKIROV, Timour (TZ CIS / DS ESQ3)
> > 
> > Robert Bosch GmbH          Tel:     +49 (0) 711-811- 3 00 48
> > Postfach 30 02 20          Fax:     +49 (0) 711-811- 3 18 00 
> > D-70442 Stuttgart          e-mail: [EMAIL PROTECTED]
> > Besucher: Wernerstr.51, Fe533/3, D-70469 Stuttgart-Feuerbach
> > _______________________________________________
> > 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
> 
_______________________________________________
Perl-Unix-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Reply via email to