how to call sub from html link or button 1

ilpadrino · Dec 23, 2003

I'm a beginner trying to use perl to display web content. I'd like to call a subroutine from a button or link. Can anyone help me with the syntax?

Here's an example of what I'm doing wrong:

print "<a href=", &sub(192.168.1.1), ">Click here</a>"

The &sub() takes the argument, determines and stores its status as a global string.

Thanks in advance.

webpager · Dec 23, 2003

Hi
Where is the sub routine?
Keith

siberian · Dec 24, 2003

Keep in mind that perl is a server side language, not client side(like javascript). This means to get perl to run you have to click off the webpage or submit a form (both linked to the CGI). The CGI handles this request and then returns a result as a NEW webpage.

So, there are no 'global strings' inside a webpage.

What you want is Javascript I think, check the javascript forum. This is easily accomplished in that language.

A HREF="javascript:?(192.168.1.1)"

then you have a javascript block that looks like this
---
var GLOBAL_STRING ;

function C(input) {
GLOBAL_STRING=input;
}
---
I didnt test this, its only conceptual. The JS forum or a tutorial webpage is your best bet.

ilpadrino · Dec 29, 2003

thanks siberian. your point is exactly what i failed to realize.

Phalanx1 · Jan 5, 2004

He is wrong... I can do anything (almost) clientside that i can do serverside and soon i will develop (no need to process HTA with Perlscript and vbscript) which is like active client pages.

Phalanx1 · Jan 5, 2004

Sorry about not reading into you question...

here you go...

<body id="Bel">
<div id="Response"></div>
<h2>Test of a PerlScript function being called from VBScript</h2>
<p>
<input type="text" id="PipeCreate" value="">
<input type="button" onclick="namePipe, PipeCreate" value="Create Pipe"><br>
<input id="WriteThis" type="text" size="15" value="">
<input type="button" onclick="WriteToPipe" value="Write To Created Pipe">
<input type="button" onclick="ReadFromPipe" value="Read Pipe">
</p>
<input type="button" onclick="Discon" value="Disconnect Pipe!!">
<form method="POST" action="" onsubmit="javascript:return false">
<p><input type="button" value="Close" onclick="javascript:self.close();"></p>
</form>
<p>
</p>
<script language="PerlScript">
use Win32:

ipe;
sub namePipe {
$pipe = $window->document->getElementByID(PipeCreate)->value;
}
sub WriteToPipe {
$WhatToWrite= $window->document->getElementByID(WriteThis)->value;
$OurPipe = new Win32:

ipe("\\\\.\\Pipe\\$pipe&quot

|| die $window->alert("Can't Create Named $pipe\n&quot

;
my $Writer = $OurPipe->Write("$WhatToWrite&quot

;
}
sub ReadFromPipe {
$OurPipe = new Win32:

ipe("\\\\.\\Pipe\\$pipe&quot

|| die $window->alert("Can't Create Named $pipe\n&quot

;
$Data = $OurPipe->Read();
$DatRetVal ="This Is The Data $Data";
$window->alert($DatRetVal);
}
sub PipeCreate {
$OurPipe = new Win32:

ipe("$pipe&quot

|| die $window->alert("Can't Create Named $OurPipe\n&quot

;
}
sub Discon {
$OurPipe = new Win32:

ipe("\\\\.\\Pipe\\$pipe&quot

|| die $window->alert("Can't Create Named $OurPipe err1 \n&quot

;
$OurPipe->Close()|| die $window->alert("Can't Create Named $pipe err2\n&quot

;
$OurPipe->Disconnect()|| die $window->alert("Can't Create Named $pipe err3 \n&quot

;
}
sub sayHello {
# This function takes two parameters, creates a string
# from the parameters, and returns the string.

# get the two parameters into local variables
my ($strName, $strTime) = @_;
#now, create the return string.
$strRetVal="Hello $strName. The time is $strTime.";

# Return the string
$strRetVal;
}
</script>
<Script language="vbscript">

strOutput=sayHello("Visitor",Now & "&quot

Response.innerText= strOutput & " "
</script>

</body>

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

how to call sub from html link or button 1

ilpadrino

MIS

webpager

Programmer

siberian

Programmer

ilpadrino

MIS

Phalanx1

Programmer

Phalanx1

Programmer

Similar threads

Part and Inventory Search

Sponsor