Mujju,
Try using the require statement in call.pl
Example call.pl
C:\perl\bin\perl.exe
#some script
my $cnt=0;
sub do_something {
.
.
.
}
### Main ####
require c:\perl\script\file1.pl;
require c:\perl\script\file2.pl;
do something else;
&do_something;
print "something\n";
exit 0;
now file1.pl
---------------------------------------------------------------------------
sub file1 {
do stuff here;
.
.
}
1;
From: perl-win32-users-boun...@listserv.activestate.com
[mailto:perl-win32-users-boun...@listserv.activestate.com] On Behalf Of Perl
Perl
Sent: Wednesday, March 11, 2009 12:50 PM
To: perl-win32-users@listserv.activestate.com
Subject: Calling subroutine from different file
Dear All,
I have coded few scripts as mentioned below. My aim is to call the files and
function without using a extra file ( call.pl as mentioned below) and with
the single click.
I have two files,
file1.pl & file2.pl
In above files, I will call the common subroutine ( say code_send() ) which
is located in fun.pl .
Now my task is to execute the above scripts in one click.
So I thougt to create a file by name
call.pl
here in this file I will add two system calls as below.
system("perl file1.pl");
system("perl file2.pl");
I hope there is a better way to do this. If it is then please help me.
Regards,
Mujju
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
