in reply to execute vbscript code inline in Perl script

There are three ways to run an external program from perl.
The function qx() returns the STDOUT as a string.
The function system returns the vb script exit code.
The function exec never returns.

In your case use qx() to run your vb script and capture the output in a varible like my $final = qx(vbscript)

All is well. I learn by answering your questions...

Replies are listed 'Best First'.
Re^2: execute vbscript code inline in Perl script
by haukex (Archbishop) on Sep 08, 2017 at 15:09 UTC
    There are three ways to run an external program from perl.

    There aren't just those three built in to Perl, e.g. there are piped opens, but even so I recommend a module instead.

[reply]
Re^2: execute vbscript code inline in Perl script
by slick.user (Acolyte) on Sep 08, 2017 at 16:40 UTC

    I didn't get any value when I execute the command below from Perl.

    my $final = qx("cscript out2.vbs");
print STDOUT "Final: $final\n";

    [download]

    Final: Microsoft (R) Windows Script Host Version 5.8 Copyright (C) Microsoft Corporation. All rights reserved. 

    my $final2 = system("cscript out2.vbs");
print STDOUT "Final2: $final2\n";

    [download]

    Microsoft (R) Windows Script Host Version 5.8 Copyright (C) Microsoft Corporation. All rights reserved. Final2: 56320 Is 56320 the process ID from CScript?

    out2.vbs

        Dim num1, num2, final, str
    num1 = 30
    num2 = 50
    str = "Final Value: "
    final = num1*num2
    'MSGBOX str & final
    WScript.Quit(final)
    'Wscript.Echo final

    [download]
[reply]
[d/l]
[select]

      If I echo in vbs, this value didn't store into Perl. 

          Dim num1, num2, final, str
    num1 = 30
    num2 = 50
    str = "Final Value: "
    final = num1*num2
    'MSGBOX str & final
    'WScript.Quit(final)
    Wscript.Echo final

      [download]

      my $final = qx("cscript out2.vbs");
print STDOUT "Final: --> $final\n";

      [download]

      Final: --> Microsoft (R) Windows Script Host Version 5.8

      Copyright (C) Microsoft Corporation. All rights reserved.

      1500

[reply]
[d/l]
[select]

        Try

        #!perl
use strict;
my $final = qx("cscript out2.vbs //NoLogo");
print "Final: --> $final\n"

        [download]
        poj
[reply]
[d/l]

In Section Seekers of Perl Wisdom