For Programmers: Free Programming Magazines  


Home > Archive > PerlTk > April 2004 > External perl modules or programs









You are viewing an archived Text-only version of the thread. To view this thread in it's original format and/or if you want to reply to this thread please [click here]

 

Author External perl modules or programs
G2

2004-04-16, 8:31 pm

Is it possible to run a perl program with external perl module(s)? I want
to call another perl module/program from a main perl program. If this is
possible could some give me a basic example so I could get started and
give it a try.
Thanks in advance,
Regards,
G2
zentara

2004-04-17, 8:32 am

On Fri, 16 Apr 2004 23:45:24 GMT, G2 <Gtoo@rogers.com> wrote:

>Is it possible to run a perl program with external perl module(s)? I want
>to call another perl module/program from a main perl program. If this is
>possible could some give me a basic example so I could get started and
>give it a try.
>Thanks in advance,
>Regards,
> G2


This is more of a Perl question than a Tk one.

Look at "perldoc -q external process"

Look at the IPC::Open3 module.

Tons of examples on http://groups.google.com

Just search for "perl system exec"
or "perl IPC::Open3"




--
I'm not really a human, but I play one on earth.
http://zentara.net/japh.html
Michele Dondi

2004-04-17, 10:31 am

On Fri, 16 Apr 2004 23:45:24 GMT, G2 <Gtoo@rogers.com> wrote:

>Is it possible to run a perl program with external perl module(s)? I want
>to call another perl module/program from a main perl program. If this is


Is there any particular (good) reason for not (i) reading any
documentation/introductory text/tutorial and/or (ii) asking e.g. in
clpmisc, rather than posting here?!?

>possible could some give me a basic example so I could get started and
>give it a try.


use mypackage; # see also 'perldoc -q require'

# depending on what you *really* want to do, also:
system 'myprog.pl';
exec 'myprog.pl'; # unlikely!
my $out=qx/myprog.pl/;
open my $fh, '-|', 'myprog.pl' or die $!;


Michele
--
$\=q.,.,$_=q.print' ,\g,,( w,a'c'e'h,,map{$_-=qif/g/;chr
}107..q[..117,q)[map+hex,split//,join' ,2B,, w$ECDF078D3'
F9'5F3014$,$,];];$\.=$/,s,q,32,g,s,g,112,g,y,' , q,,eval;
Sponsored Links







Also available: Server administration forum archive | Web Design forum archive | Software forum archive | Hardware reviews archive

Copyright 2008 codecomments.com