cmd+cgi
и опять всё о том же
нужна помощь
есть две html формы и кнопка
в первую надо вписывать команды(допцстим под видну dir,под линух ls)
надо что бы при вводе команды и нажатии кнопки во вторую форму выводилось содержимое введённой команды(любой, не конкретно ls)
как это организовать на cgi через perl? :'(
нужна помощь
есть две html формы и кнопка
в первую надо вписывать команды(допцстим под видну dir,под линух ls)
надо что бы при вводе команды и нажатии кнопки во вторую форму выводилось содержимое введённой команды(любой, не конкретно ls)
как это организовать на cgi через perl? :'(
Цитата:
Originally posted by enz0
и опять всё о том же
нужна помощь
есть две html формы и кнопка
в первую надо вписывать команды(допцстим под видну dir,под линух ls)
надо что бы при вводе команды и нажатии кнопки во вторую форму выводилось содержимое введённой команды(любой, не конкретно ls)
как это организовать на cgi через perl? :'(
и опять всё о том же
нужна помощь
есть две html формы и кнопка
в первую надо вписывать команды(допцстим под видну dir,под линух ls)
надо что бы при вводе команды и нажатии кнопки во вторую форму выводилось содержимое введённой команды(любой, не конкретно ls)
как это организовать на cgi через perl? :'(
perldoc CGI пробовал читать?
Код:
#!/usr/bin/perl -w
package CGI;
use CGI;
my @array;
my $line;
print header();
print start_html("Hello!"), h1("Текущие подключения");
@array = `who`;
foreach $line (@array)
{
print $line;
print "
";
print "
";
}
package CGI;
use CGI;
my @array;
my $line;
print header();
print start_html("Hello!"), h1("Текущие подключения");
@array = `who`;
foreach $line (@array)
{
print $line;
print "
";
print "
";
}
вот самый примитивный скрипт, выдающий текущие сеансы по команде who
мне надо вводить самому команды
н-р:ls,id,uname,rm...
через system как это осуществить и выводить в форму?
н-р:ls,id,uname,rm...
через system как это осуществить и выводить в форму?
Цитата:
Originally posted by enz0
мне надо вводить самому команды
н-р:ls,id,uname,rm...
через system как это осуществить и выводить в форму?
мне надо вводить самому команды
н-р:ls,id,uname,rm...
через system как это осуществить и выводить в форму?
вот тебе самый примитивный вариант. усложняй сам - вместо домашнего задания.
Код:
#!/usr/bin/perl -w
use strict;
package CGI;
use CGI;
my $command = param("cmd");
print header();
print start_html("Hello, World!"), h1("Hello, World!");
if ($command) {
print `$command`;
}
else {
print hr(), start_form();
print p("enter command: ", textfield("cmd"));
print end_form(), hr();
}
use strict;
package CGI;
use CGI;
my $command = param("cmd");
print header();
print start_html("Hello, World!"), h1("Hello, World!");
if ($command) {
print `$command`;
}
else {
print hr(), start_form();
print p("enter command: ", textfield("cmd"));
print end_form(), hr();
}