Need help how to run java program

Hi,

I am trying to do some QA automation using perl,
running some java program and verifying the results.
How I will run java command in Perl framework.
I will appreciate any kind of hints that will help me
to write automation in perl, (basically how java
program will be invoked using Perl).

regards,

Bilashi Sahu



____________________________________________________________ ________________________
Looking for last minute shopping deals?
Find them fast with Yahoo! Search. http://tools.search.yahoo.com/newsearch/category.php?categor y=shopping
_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

RE: Need help how to run java program

>On Tue, 29 Jan 2008
>Bilashi Sahu wrote:
>I will appreciate any kind of hints that will help me
>to write automation in perl, (basically how java
>program will be invoked using Perl).
>
You could use backticks to execute a system command like so:
my $command = "java -jar $pathLoc$jarName @ARGV";
my @system_out = `$command`;
HTH, Paula

_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

RE: Need help how to run java program

** Low Priority **

Be wary that a fatal exception in the java program if unhandled will be propagated to
your PERL program and kill it, unless you protect the call to java with an eval block. Another alternative
is to spawn the java program as a separate process using SYSTEM or another method.

Avi

>>> "Capacio, Paula J" 01/29/08 3:21 pm >>>
>On Tue, 29 Jan 2008
>Bilashi Sahu wrote:
>I will appreciate any kind of hints that will help me
>to write automation in perl, (basically how java
>program will be invoked using Perl).
>
You could use backticks to execute a system command like so:
my $command = "java -jar $pathLoc$jarName @ARGV";
my @system_out = `$command`;
HTH, Paula

_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Re: Need help how to run java program

> Be wary that a fatal exception in the java program if unhandled will be propagated to
> your PERL program and kill it, unless you protect the call to java with an eval block.

Huh??? Explain please.

> Another alternative
> is to spawn the java program as a separate process using SYSTEM or another method.
>
Which is basically the way it has to be done - system, backtick, pipe
open etc.

ken1
_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Re: Need help how to run java program

KiogTG93IFByaW9yaXR5ICoqCgpXaGF0IEkgbWVhbnQgaXMgdGhlIHNlbWFu dGljcyBvZiBiYWNr
dGlja3MgaW5kaWNhdGUgdGhhdCBhbiBleGNlcHRpb24KdGhhdCBvY2N1cnJz IGluIHRoZSBjb21t
YW5kCmVuY2xvc2VkIGJ5IGJhY2t0aWNrcyBhcmUgcHJvcGFnYXRlZCB0byB0 aGUgaW5pdGlhdGlu
ZyBwcm9jZXNzIGF0IHRoZQpwb2ludCBvZiB0aGUgYmFja3RpY2tzLiAgSWYK dGhlIGphdmEgcHJv
Z3JhbSB1bmV4cGVjdGVkbHkgZGllcyB3aXRoIGEgZmF0YWwgZXhjZXB0aW9u IHRoaXMgd2lsbApr
aWxsIHRoZSBQRVJMIHByb2dyYW0gdG9vLAp1bmxlc3MgYW4gRVZBTCBibG9j ayBlbmNsb3NlcyB0
aGUgYmFja3RpY2tzIHRvIHByb3ZpZGUgZXhjZXB0aW9uCmhhbmRsaW5nLiAg CgpIVEgKQXZpCj4+
PiBLZW5uZXRoINeybHdpbmcgPGtlbm5ldGhAb2x3aW5nLnNlPiAwMS8yOS8w OCAzOjQ3IHBtID4+
PgoKPiBCZSB3YXJ5IHRoYXQgYSBmYXRhbCBleGNlcHRpb24gaW4gdGhlIGph dmEgcHJvZ3JhbSBp
ZiB1bmhhbmRsZWQgd2lsbApiZSBwcm9wYWdhdGVkIHRvCj4geW91ciBQRVJM IHByb2dyYW0gYW5k
IGtpbGwgaXQsIHVubGVzcyB5b3UgcHJvdGVjdCB0aGUgY2FsbCB0byBqYXZh CndpdGggYW4gZXZh
bCBibG9jay4KCkh1aD8/PyBFeHBsYWluIHBsZWFzZS4KCj4gICBBbm90aGVy IGFsdGVybmF0aXZl
Cj4gaXMgdG8gc3Bhd24gdGhlIGphdmEgcHJvZ3JhbSBhcyBhIHNlcGFyYXRl IHByb2Nlc3MgdXNp
bmcgU1lTVEVNIG9yCmFub3RoZXIgbWV0aG9kLgo+ICAgCldoaWNoIGlzIGJh c2ljYWxseSB0aGUg
d2F5IGl0IGhhcyB0byBiZSBkb25lIC0gc3lzdGVtLCBiYWNrdGljaywgcGlw ZSAKb3BlbiBldGMu
CgprZW4xCl9fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19f X19fX19fX19fCkFj
dGl2ZVBlcmwgbWFpbGluZyBsaXN0CkFjdGl2ZVBlcmxAbGlzdHNlcnYuQWN0 aXZlU3RhdGUuY29t
ClRvIHVuc3Vic2NyaWJlOiBodHRwOi8vbGlzdHNlcnYuQWN0aXZlU3RhdGUu Y29tL21haWxtYW4v
bXlzdWJz

RE: Need help how to run java program

d3JhcCB0aGUgc3lzdGVtIGNhbGwgd2l0aCBhbiBldmFsIGJsb2NrIGFuZCB0 aGVuIGRvIHdoYXQg
eW91IHdhbnQgdG8gd2l0aCB0aGUgcmV0dXJuIHZhbHVlLiAKCi0tLS0tT3Jp Z2luYWwgTWVzc2Fn
ZS0tLS0tCkZyb206IGFjdGl2ZXBlcmwtYm91bmNlc0BsaXN0c2Vydi5BY3Rp dmVTdGF0ZS5jb20g
W21haWx0bzphY3RpdmVwZXJsLWJvdW5jZXNAbGlzdHNlcnYuQWN0aXZlU3Rh dGUuY29tXSBPbiBC
ZWhhbGYgT2YgQXZyYWhhbSBTaGFwaXJvClNlbnQ6IFR1ZXNkYXksIEphbnVh cnkgMjksIDIwMDgg
Mzo1NiBQTQpUbzogYWN0aXZlcGVybEBsaXN0c2Vydi5BY3RpdmVTdGF0ZS5j b20KU3ViamVjdDog
UmU6IE5lZWQgaGVscCBob3cgdG8gcnVuIGphdmEgcHJvZ3JhbQpJbXBvcnRh bmNlOiBMb3cKCioq
IExvdyBQcmlvcml0eSAqKgoKV2hhdCBJIG1lYW50IGlzIHRoZSBzZW1hbnRp Y3Mgb2YgYmFja3Rp
Y2tzIGluZGljYXRlIHRoYXQgYW4gZXhjZXB0aW9uCnRoYXQgb2NjdXJycyBp biB0aGUgY29tbWFu
ZAplbmNsb3NlZCBieSBiYWNrdGlja3MgYXJlIHByb3BhZ2F0ZWQgdG8gdGhl IGluaXRpYXRpbmcg
cHJvY2VzcyBhdCB0aGUKcG9pbnQgb2YgdGhlIGJhY2t0aWNrcy4gIElmCnRo ZSBqYXZhIHByb2dy
YW0gdW5leHBlY3RlZGx5IGRpZXMgd2l0aCBhIGZhdGFsIGV4Y2VwdGlvbiB0 aGlzIHdpbGwKa2ls
bCB0aGUgUEVSTCBwcm9ncmFtIHRvbywKdW5sZXNzIGFuIEVWQUwgYmxvY2sg ZW5jbG9zZXMgdGhl
IGJhY2t0aWNrcyB0byBwcm92aWRlIGV4Y2VwdGlvbgpoYW5kbGluZy4gIAoK SFRICkF2aQo+Pj4g
S2VubmV0aCDWbHdpbmcgPGtlbm5ldGhAb2x3aW5nLnNlPiAwMS8yOS8wOCAz OjQ3IHBtID4+PgoK
PiBCZSB3YXJ5IHRoYXQgYSBmYXRhbCBleGNlcHRpb24gaW4gdGhlIGphdmEg cHJvZ3JhbSBpZiB1
bmhhbmRsZWQgd2lsbApiZSBwcm9wYWdhdGVkIHRvCj4geW91ciBQRVJMIHBy b2dyYW0gYW5kIGtp
bGwgaXQsIHVubGVzcyB5b3UgcHJvdGVjdCB0aGUgY2FsbCB0byBqYXZhCndp dGggYW4gZXZhbCBi
bG9jay4KCkh1aD8/PyBFeHBsYWluIHBsZWFzZS4KCj4gICBBbm90aGVyIGFs dGVybmF0aXZlCj4g
aXMgdG8gc3Bhd24gdGhlIGphdmEgcHJvZ3JhbSBhcyBhIHNlcGFyYXRlIHBy b2Nlc3MgdXNpbmcg
U1lTVEVNIG9yCmFub3RoZXIgbWV0aG9kLgo+ICAgCldoaWNoIGlzIGJhc2lj YWxseSB0aGUgd2F5
IGl0IGhhcyB0byBiZSBkb25lIC0gc3lzdGVtLCBiYWNrdGljaywgcGlwZSAK b3BlbiBldGMuCgpr
ZW4xCl9fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19f X19fX19fCkFjdGl2
ZVBlcmwgbWFpbGluZyBsaXN0CkFjdGl2ZVBlcmxAbGlzdHNlcnYuQWN0aXZl U3RhdGUuY29tClRv
IHVuc3Vic2NyaWJlOiBodHRwOi8vbGlzdHNlcnYuQWN0aXZlU3RhdGUuY29t L21haWxtYW4vbXlz
dWJzClRoaXMgZW1haWwgaXMgaW50ZW5kZWQgZm9yIHRoZSByZWNpcGllbnQg b25seS4gIElmIHlv
dSBhcmUgbm90IHRoZSBpbnRlbmRlZCByZWNpcGllbnQgcGxlYXNlIGRpc3Jl Z2FyZCwgYW5kIGRv
IG5vdCB1c2UgdGhlIGluZm9ybWF0aW9uIGZvciBhbnkgcHVycG9zZS4KCl9f X19fX19fX19fX19f
X19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fCkFjdGl2ZVBlcmwg bWFpbGluZyBsaXN0
CkFjdGl2ZVBlcmxAbGlzdHNlcnYuQWN0aXZlU3RhdGUuY29tClRvIHVuc3Vi c2NyaWJlOiBodHRw
Oi8vbGlzdHNlcnYuQWN0aXZlU3RhdGUuY29tL21haWxtYW4vbXlzdWJz

Re: Need help how to run java program

> If
> the java program unexpectedly dies with a fatal exception this will
> kill the PERL program too,
No, that won't happen. If you still claim that, please provide an
example showing this behavior.

ken1
_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Re: Need help how to run java program

Avraham Shapiro wrote:
> What I meant is the semantics of backticks indicate that an exception
> that occurrs in the command
> enclosed by backticks are propagated to the initiating process at the
> point of the backticks. If
> the java program unexpectedly dies with a fatal exception this will
> kill the PERL program too,
> unless an EVAL block encloses the backticks to provide exception
> handling.

This isn't true.

$ perl -e 'my $o = `perl -e "die;" 2>&1`; print "I got: $o"; print "Done.\n"'
I got: Died at -e line 1.
Done.

(What I'm doing there is running a perl inside of backticks with a one-line
script, "die;", redirecting stderr to stdout (2>&1), and printing the captured
output.)

If you were correct, I would never get to the "I got:" part of the output.


The only real way to discover the failure of a qx() or backticks is by looking
at $?, which contains the exit code, received signal (if any), and whether or
not there was a core dump. If you don't check $?, you can't differentiate
between errors, nonexistent programs, or successes without any output.

For example:

$ perl -le 'print `thiscommanddoesnotexist`';

$ perl -le 'print `ls emptydirectory`';

$ perl -le 'print `perl -e "die;" 2>/dev/null`'


In the 3rd command, if I didn't redirect stderr to /dev/null, you would see an
error message at the console, but perl itself wouldn't see it -- I just
redirected it to avoid confusion. Many people redirect stderr to /dev/null as
a matter of course, to avoid cluttering the output, and this is what results.
It's always a good idea to check the value of $?.

For more control over a running subprocess, you can open a pipe from it:

my $java_program;
open($java_program, "java -jar /your/jar/here.jar |")
or die("Couldn't run java: $!");

Check 'man perlipc' for all the gritty details!

--
Mike Gillis
Languages Development mikeg@activestate.com
ActiveState Software http://www.activestate.com/languages
_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs