Re^3: execute vbscript code inline in Perl script


laziness, impatience, and hubris
	PerlMonks

Re^3: execute vbscript code inline in Perl script

by slick.user (Acolyte)

on Sep 08, 2017 at 16:45 UTC ( [id://1198964]=note: print w/replies, xml )

Need Help??

in reply to Re^2: execute vbscript code inline in Perl script
in thread 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]

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://1198964]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others contemplating the Monastery: (4)

As of 2024-04-19 17:15 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found