PERL EN ASP
hawkseven
23 de Octubre del 2002
TENGO UN CODIGO ESCRITO EN PERL QUE HACE UN PING A UN DISPOSITIVO REMOTO Y QUIERO CORRERLO EN ASP,PERO NO ME FUNCIONA BIEN...ALGUEIN ME PUEDE AYUDAR??
AQUI ESTA EL CODIGO:
<%@ LANGUAGE = PerlScript %>
<HTML>
<HEAD>
<TITLE>PerlScript </TITLE>
<meta http-equiv="" content="text/html; charset=iso-8859-1"></HEAD>
<BODY BGCOLOR="#3333CC">
<H1>PerlScript</H1>
<p>
<%
$Response->write("Esto es una prueba de perlscript");
%>
</p>
<p>
<%
use Net::Ping;
my $var = "200.100.100.1";
my $host = $var;
my $p = Net::Ping->new("icmp");
if ($p->ping($host)) {
$Response->write("Esta conectado");
} else {
$Response->write("No esta conectado");
}
%>
</p>
<p>
<%
$Response->write("Fin de la prueba");
%>
</p>
</BODY>
</HTML>
GRACIAS DE ANTEMANO
AQUI ESTA EL CODIGO:
<%@ LANGUAGE = PerlScript %>
<HTML>
<HEAD>
<TITLE>PerlScript </TITLE>
<meta http-equiv="" content="text/html; charset=iso-8859-1"></HEAD>
<BODY BGCOLOR="#3333CC">
<H1>PerlScript</H1>
<p>
<%
$Response->write("Esto es una prueba de perlscript");
%>
</p>
<p>
<%
use Net::Ping;
my $var = "200.100.100.1";
my $host = $var;
my $p = Net::Ping->new("icmp");
if ($p->ping($host)) {
$Response->write("Esta conectado");
} else {
$Response->write("No esta conectado");
}
%>
</p>
<p>
<%
$Response->write("Fin de la prueba");
%>
</p>
</BODY>
</HTML>
GRACIAS DE ANTEMANO