Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

passing variables between PerlScript and VBScript

356 views
Skip to first unread message

sj...@my-deja.com

unread,
Jan 25, 2000, 3:00:00 AM1/25/00
to
I am using ActivePerl and ASP in order to use both PerlScript and
VBScript as my server side scripting language. Perl is my default
server side language. How can I call a VBScript function in PerlScript
and pass it a variable? I need to use both languages because I
inherited a bunch of code.

Thanks in Advance


Sent via Deja.com http://www.deja.com/
Before you buy.

donb...@my-deja.com

unread,
Jan 26, 2000, 3:00:00 AM1/26/00
to
In article <86l599$152$1...@nnrp1.deja.com>,

If you enclose your VBScript code in <script Language=VBScript
RUNAT=SERVER> code </script>, you can use the VBScript with the
perlscript. It also works the other way around.

Don

samue...@my-deja.com

unread,
Feb 1, 2000, 3:00:00 AM2/1/00
to
What would the syntax look like when calling a VB function from
Perlscript? How do you convert that VBScript function into a class?
For example if I have a vb function called fVBfunction what does the
call to that function look like in PerlScript?

In article <86nehg$mfo$1...@nnrp1.deja.com>,

donb...@my-deja.com

unread,
Feb 2, 2000, 3:00:00 AM2/2/00
to
What I like to do is put my individual functions in include files, and
use my ASP page to call the functions like a "main" section in a
program. In the include file, instead of enclosing the code in the
typical <% %> delimiters, use the <script Language=VBScript
RUNAT=SERVER></script> delimiters, then you can call the VBScript
function from within perlscript as you would a perscript function. I
actually don't know if the & can be used before the funtion name when
calling, but since you don't need to do this in perlscript anyways, you
can just leave it out. If anyone else has any thoughts, please share.

Don

In article <877af7$som$1...@nnrp1.deja.com>,

Tobias Martinsson

unread,
Feb 2, 2000, 3:00:00 AM2/2/00
to
<script language=perlscript runat=server>
sub Test {
my($param) = shift(@_); #Get parameters
return reverse($param);
}
</script>

<script language=vbscript runat=server>
Response.Write Test("Hello World")
</script>

Something along those lines. :)
--
Tobias

0 new messages