Hi Khen, Ive already posted here what i have done so far : Here it is :
system("java -jar program.jar < abc.txt") and


OPEN PIPE, "|java -jar program.jar";
    open FH, /abc.txt
    while (my $res = <FH>)
    print PIPE "$res";
    close FH;
close PIPE;
[download]


but not working as expected.
Thanks.

OPEN PIPE, "|java -jar program.jar";
[download]

That's barely valid Perl code. If you get error messages, tell us those error messages. When I run your Perl code, I get the following error message:

Useless use of a constant in void context at -e line 1.
Can't locate object method "OPEN" via package "PIPE" (perhaps you forg
+ot to load "PIPE"?) at -e line 1.
[download]

This is because your code makes little sense without further context. I highly doubt that your program is even launching your jar file for you at all.

Why don't you use the commandline interface? Its a JAR, it should have one, or you can make one real real easy. Otherwise you would have to use Expect

#!/usr/bin/perl

use strict;
use warnings;

print
"=======================================\n";
print
"List of Databases: \n",
"Oracle = 1\n",
"DB2 = 2\n",
"Some other db = 3\n",
"=======================================\n";
print "Your system is:  $^O\n",
      "Which database do you want to use: 1, 2, or 3?\n";
my $db = <>;
if ($db == 1) {
    print "You have chosen Oracle\n";
}
elsif ($db == 2) {
    print "You have chosen DB2\n";
}
elsif ($db == 3) {
    print "You have chosen some other stuff\n";
}
else {
    print "You have not chosen a database. We can't continue.\n";
}
[download]