Re^2: execute vbscript code inline in Perl script

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]

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

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]

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

Replies are listed 'Best First'.
Re^3: execute vbscript code inline in Perl script by slick.user (Acolyte) on Sep 08, 2017 at 16:45 UTC
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]
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