[jain236]

Hi,

i have a perl script 123.pl and in that script i am trying to invoke 234.pl which takes one command line argument .is there any way that we can achive the same?

[numberwhun]

What have you tried thus far to do this? Have you looked at the system() function?

Regards,

Jeff

[pawanrpandey]

As suggested by Jeff, you can use 'system' function to call another Perl program from a given program like:

Expand|Select|Wrap|Line Numbers

1. #-----------------------------------------------------------------------------
2. # main.pl
3. # This program calls a second Perl program named 'called.pl' 
4. # and pass one command line argument
5. #----------------------------------------------------------------------------
6. #!/usr/bin/perl -w
7. use strict;
8.  
9. my $passThisArgument = "This is Perl world! \n!" ;
10. my $cmd = qq@perl /home/pawan/Perl/called.pl $passThisArgument @;
11. my $result = system($cmd);
12.  
13. print "Checking status...: $result \n";
14. # Do other things...
15. #---------- End of main.pl------------------------
16.  
17. #--------------------------------------------------------------------
18. # Called.pl
19. # This Program is called from another program main.pl 
20. # with a command line argument
21. #--------------------------------------------------------------------
22. #!/usr/bin/perl -w
23. use strict;
24.  
25. my $receivedArgument = $ARGV[0];
26. print " Lets see what parameter was passed to this program...oh! it is: $receivedArgument \n";
27.  
28. # All remaining code
29. #-----END of called.pl----------

Hope this will help you.

Regards,
Pawan