nav[aria-label="Primary Navigation"] { padding: 0; & ul { list-style: none; width: 100%; display: flex; flex-direction: row; justify-content: start; align-items: start; gap: 30px; padding: 0; & li { margin: 0; } & ul li { list-style: none; } } }

Perl

cheeku

I know that I can access Perl String in Javascript or Pass it to Javascript fuction, but I want to access
other data types of Perl like arrays etc in Javascript. I also want to access some document in which
there is clear mentioning of how much I can use PERL & Javacript together in teamsite environment.

Find more posts tagged with

Comments

Dwayne

I think that there's a basic misunderstanding here. JavaScript (at least in a typical TeamSite context) is usually client-side, running on the user's web browser. Perl is almost always server side, running on the TeamSite server. There wouldn't be any direct sharing of variables, etc. What typically happens is that the Perl code dynamically generates JavaScript code that will be executed on the client's browser. Any Perl data structures (scalars, arrays, objects, etc) would need to be converted into their JavaScript equivalents and explicitly written to the HTML data stream.

So I doubt that there's a document out there that can show you how to share objects between Perl and JavaScript. If you've got a specific example of a Perl object that you'd like to be able to "export" into your JavaScript code, then perhaps someone here can help.

--

Current project: TS 5.5.2/6.1 W2K

cheeku

$strDCT = $strDCT."<item name=\"txtLinkText $iContainerCount$iItemCount\" rowcontinue=\"t\"><label><![CDATA[<font class=\'adidascom_textfield\'>Link Text</font>]]></label><description>Enter Link Text</description><text required=\"t\" validation-regex=\"[^\\s]\" size = \"30\"><default>$acWordsOfLine[2]</default></text></item>\n";
$strDCT = $strDCT."<item name=\"txtSubgroupHeading $iContainerCount$iItemCount\" rowcontinue=\"f\"><label><![CDATA[<font class=\'adidascom_textfield\'>Sub-group Heading</font>]]></label><description>Enter this for logical grouping of links</description><text size = \"30\"></text></item>\n";
$strDCT = $strDCT."<item name=\"txtLinkUrl $iContainerCount$iItemCount\" rowcontinue=\"f\" colspan=\"4\"><label><![CDATA[<font class=\'adidascom_textfield\'>Link URL</font>]]></label><description>Enter the link URL</description><text size = \"118\"><default>$strURL</default></text></item>\n";

$strEditArray = $strEditArray."cntGroupHeading ".$iContainerCount."##txtLinkText ".$iContainerCount.$iItemCount."##txtLinkUrl ".$iContainerCount.$iItemCount."##".$acWordsOfLine[2]."##".$strURL."###";
$strEditArray =~ s/\n//g;
$iItemCount++;

}

$strDCT = $strDCT."<script language=\"JavaScript\">
<\![CDATA[
var strContainer = \"$strEditArray\";

See the above excerpt of my code & this is just for your refrence, don't go into its details. Here What I am doing is that I am
generating some items & then passing these item names to the javascript through the perl string. In javascript I am
able to access the Perl string, but when it comes to array I am unable to do that.

Adam Stoller

I don't see anything here which invalidates what Dwayne already stated - you're building up Perl variables ($strDCT and $strEditArray) with content (which looks mostly like HTML, I don't see the javascript here - maybe I'm missing it) - and the end result will eventually be evaluated by a browser in which the resultant HTML/javascript code will be parsed - at that point, there is no longer any Perl code being used.

If you want to utilize the contents of a Perl data structure (array, hash, etc) you would do so by unfolding it into it's component parts while generating the HTML/javascript code - at the end of which, when it gets to the browser, there would no longer be any Perl code left.

--fish
Senior Consultant, Quotient Inc.
http://www.quotient-inc.com

Dwayne

I'm afraid I don't understand your question at all. The only array I see referenced anywhere in your code is @acWordsOfLine, and even that is being dereferenced into a scalar ($acWordsOfLine[2]). What array are you trying to reference in the JavaScript? You've got a variable named $strEditArray, but just naming it with the word 'array' doesn't make it an array. It's still just a scalar.

To try to answer your original question in a somewhat generic fashion: if you've got a Perl array, and you want an equivalent JavaScript array, then you could use something like this:

my @perlArray = ( ... whatever initialization is required for the array in Perl ...);
my $javaScript = "var jsArray = new Array();\n";

foreach my $element (@perlArray) {
    $javaScript .= "jsArray[jsArray.length] = '$element';\n";
}

Current project: TS 5.5.2/6.1 W2K

cheeku

$strDCT = $strDCT."<script language=\"JavaScript\">
<\![CDATA[
var strContainer = \"$strEditArray\";
var containerArray = new Array();
containerArray=strContainer.split(\"###\");

for(var iCount=0;iCount<containerArray.length;iCount++)
{
var strItem=containerArray[iCount];
var itemArray = new Array();
itemArray=strItem.split(\"##\");
var strLinkContainer = itemArray[0];
var strLinkItem = itemArray[1];
var strURLItem = itemArray[2];
var strLinkValue = itemArray[3];
var strURLValue = itemArray[4];

if(IWDatacapture.getItem('/'+strLinkContainer+'/'+strLinkItem)!=null)
{
IWDatacapture.getItem('/'+strLinkContainer+'/'+strLinkItem).setValue(''+strLinkValue);
}
if(IWDatacapture.getItem('/'+strLinkContainer+'/'+strURLItem)!=null)
{
IWDatacapture.getItem('/'+strLinkContainer+'/'+strURLItem).setValue(''+strURLValue);
}
}
]]>
</script>";

See this Script Part here I am accessing that $strEditArray string & using it in script by fragmenting its various components.

Migrateduser

No - you're not.

$strEditArray is interpolated when you create $strDCT. So when you output $strDCT, it's just a plain old string, so when your javascript code gets to it - it's just dealing with it as a plain old string.

cheeku

I Know that Its a String & I earlier also told you that please don't go to details to code
as It is just for your reference & no way complete. I also know That I can make Equivalent
array of JS & push elements of perl array into the same, but look I am able to access the
perl string in Javascript, why couldn't I access array etc

cheeku

What does Plain old string means?By the way its a scalar datatype & I am able to get its value (though I know that it has just painted the same).
But see array is also a data type, where at its various location I have different values.when I print an array I am able to print its all values, just like
concatenating strings, then why I am not able to paint the same in Script?

Dwayne

It's obvious that we're not communicating, so this will be my last attempt on this thread.

but look I am able to access the perl string in Javascript, why couldn't I access array etc,

But the point is that you aren't "accessing the perl string." You're accessing the "JavaScript" string, if you will, which happens to be generated by a piece of perl code. Your statement would be similar to saying that, because you are able to read these characters that I typed using my keyboard, that you have access to my keyboard. But that would be false. What you have access to is the HTML that was generated as a result of my typing.

It's the same thing here. Perl is doing the "typing." The JavaScript intepreter inside the user's browser doesn't care that the characters came from Perl, or Java, or some monkeys pounding on a keyboard. It's just JavaScript.

--

Current project: TS 5.5.2/6.1 W2K

Migrateduser

Like Dwayne, I'm going to give it one more try.

By "plain old string" what I mean is that the value you are manipulating in your javascript is a string literal in javascript. As Dwayne noted, the JS code that is playing with that string literal doesn't know (or care) where it originated. All it sees are the literal characters that *used to be* in your perl variable. I say "used to be" because by the time your javascript begins to be executed in the output html, your perl script has likely (unless you had unbuffered output and it had a bunch of stuff to do that kept it alive while your client script began executing asynchronously) gone away, and whatever bit of memory contained that variable is now being used for something else. Beyond that, the javascript code is dealing with stuff that lives in memory on the client. The perl code, when it was around, was dealing with stuff that lived in memory on the server and shooting that across the wire to the client.

That's the best I can explain it without turning this into a novel covering client/server computing, process memory management, etc.