Re^3: execute vbscript code inline in Perl script

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

1500

Comment on Re^3: execute vbscript code inline in Perl script Select or Download Code

Replies are listed 'Best First'.
Re^4: execute vbscript code inline in Perl script by poj (Abbot) on Sep 08, 2017 at 16:59 UTC
Try `#!perl use strict; my $final = qx("cscript out2.vbs //NoLogo"); print "Final: --> $final\n"` [download] poj	[reply] [d/l]
Re^5: execute vbscript code inline in Perl script by pryrt (Abbot) on Sep 08, 2017 at 17:09 UTC
++poj: by the time I had my reply typed, you'd already posted. :-( My only additional recommendation would be to `chomp($final)`, or `chomp(my $final = qx("cscript out2.vbs //Nologo"));`, so that slick.user doesn't have a surprise newline in `$final`.	[reply] [d/l] [select]
Re^6: execute vbscript code inline in Perl script by slick.user (Acolyte) on Sep 08, 2017 at 17:42 UTC
That's look good! Thank you!	[reply]