не не )) перловый скрипт и хтмл страничка это не одно единое )) в этом то и проблема) в общем вот сорцы
index3.html
<html>
<head>
<title>Support Script</title>
</head>
<body>
<form method=get action=cgi-bin/test3.pl target="frame1">
Какой клиент вас интересует?<br>
<input type="text" name="description" size="20" maxlength="40"><br>
где находится данный клиент?<br>
<select name="routers">
<option value="r1-bs40k25.lan">r1-bs40k25
<option value="r1-bs40.lan">r1-bs40
</select>
<br>
<br>
<button name="submit" value="submit" type="submit">
send</button>
<table border="1">
<tr>
<td>
<iframe name="frame1" src="../cgi-bin/test3.pl" hspace="0" vspace="0" frameborder ="1" marginheight="0" marginwidth="0" width="800" height="600"></iframe>
</td>
<td>
<select name="routers2" size="35">
<option value="r1-bs40k25.lan">r1-bs40k25
<option value="r1-bs40.lan">r1-bs40
</select>
</td>
</tr>
<tr>
<td>4</td>
<td>6</td>
</tr>
</table>
</form>
</body>
</html>
__________________________________________________ ______________
test3.pl
#!/usr/bin/perl
use Net::Telnet::Cisco;
use CGI qw(:standart :cgi);
use CGI::Carp qw(fatalsToBrowser);
print "Content-type: text/html \n\n";
print "<html>";
print "<head>";
print "<title>Support Script</title>";
print "</head>";
print "<body bgcolor=#F0D080 text=#0B615C>";
print "<br>";
$routers1 = param("routers");
$description1 = param("description");
#Estab conn
my $session = Net::Telnet::Cisco->new(Host => $routers1);
$session->login('login', 'pass');
# Execute a command
$shintdes = 'show interface description | i ';
$readyshintdes = "$shintdes\t$description1";
my @output = $session->cmd($readyshintdes);
print (@output, " \n \n");
print "<br>количество элементов в массиве -";
$zapzap = @output;
print $zapzap;
print "<br>";
$zapzap2 = $output[0];
print $zapzap2;
print "<br>";
$zapzap2 = $output[1];
print $zapzap2;
print "<br>";
$zapzap2 = $output[2];
print $zapzap2;
print "<br>";
$zapzap2 = $output[3];
print $zapzap2;
print "<br>";
$zapzap2 = $output[4];
print $zapzap2;
print "<br>";
$zapzap2 = $output[5];
print $zapzap2;
$session->close;
____________________________________--
мне надо каждый элемент массива @output вывести в
<select name="routers2" size="35">
<option value="r1-bs40k25.lan">r1-bs40k25
<option value="r1-bs40.lan">r1-bs40
вместо "r1-bs40k25.lan" ну чтобы в список на html странице попадали значения массива из перлового скрипта
в общем меня интересует как из перлового скрипта передать значения переменных в html страницу и подставить их после value=
ну в общем примерно так
Похожие темы
Древовидный вид