Sent: Friday, December 06, 2019 at 11:30 AM
From: "welle ozean" <welleoz...@googlemail.com>
To: "Christopher Chavez" <chrischa...@gmx.us>
Subject: Re: Call perl subroutine from $int->Eval
> Thank you Christopher,
> this is very promising! But, I have no idea how to use it. Let's say I have
> in my Perl code a subrutine called mySubrutine. How would I call it from
> within the Eval Tcl code?
I would use something like:
$int->Eval(q/::perl::Eval {mySubroutine()} /)
I'm not an expert on how it works or if it has any significant limitations; it
seems to work like Perl's built-in `eval` statement in the same scope as the
`$int->Eval()`. I guess one thing to be careful of is which (if any) string
delimiters/escaping are used both in Perl and Tcl especially whenever
`$variables` need to be specified, so that they refer to a Tcl or Perl variable
(or neither?). For example if using a Perl variable, doing
my $variable = ...;
$int->Eval(qq/::perl::Eval {mySubroutine($variable)} /);
might often behave the same as doing
my $variable = ...;
$int->Eval(q/::perl::Eval {mySubroutine($variable)} /);
but I would prefer the latter usage so that the value of `$variable` isn't
translated (stringified) from Perl to Tcl and then back to Perl.
Christopher A. Chavez
