How to get the output from console to the GUI?

[sindabad]

I have a GUI from which I pass argument to another script.
Now this script gives output at console...Iwant to bring the ouput in my GUI,,,

please let me know the way..THANX IN ADVANCE

[miller]

Just use backticks to capture the output from your external script:

my $results = `perl yourscript.pl`;
 
print "chars is " . length($results) . "\n";
print "lines is " . scalar(split "\n", $results) . "\n";

- Miller

[sindabad]

@MILLER thanx for the reply.

but i had other concern.
Suppose i have a script hello.pl

print "Hello World\n";
print "hi \n";
                                                         if($ARGV[0]=~m/(ABC|abc)/)
{
print"successful\n";
}
else
{
print"unsuccessful"
}

and value of ARGV[0] i'm passing from my GUI.

i'm collecting the output as

my $result = `perl hello.pl`;

#and now i want to display the output in my text wideget.
for which the code is

$contents->insert('end',"$result\n");

output which i get on my GUI is

Hello World
hii
unsuccessful (even if i'm passing ABC or abc from my GUI)

i know i'm doing something wrong but not finding the correct way.
let me know the way if you know..THANX IN ADVANCE.

[rovf]

At least in the example which you posted, you don't pass any argument to hello.pl. BTW, you would have found out by yourself if you had used strict and warnings.

[miller]

All you need to do is pass an argument to your script like the following:

my $result = `perl hello.pl abc`;