выполнение комманд
ввод комманды и вывод результата
имею введу программа спрашивает введите комманду,ввожу допустим ls
и затем на экран выводится содержимое текущей директории
print STDOUT "введите комманду: ";
$command = <STDIN>;
а вот что дальше?
как с помощью STDIN и STDOUT и system на perl можно реализовать такую вещь:
ввод комманды и вывод результата
имею введу программа спрашивает введите комманду,ввожу допустим ls
и затем на экран выводится содержимое текущей директории
print STDOUT "введите комманду: ";
$command = <STDIN>;
а вот что дальше?
print sistem($command)
Это в случае с ls, так как это системная команда.
print sistem($command)
Это в случае с ls, так как это системная команда.
print - не обязательно. достаточно просто system($command);
ладно
а если надо всё это дело загнать в cgi :
use CGI;
$query = new CGI;
print $query->header;
print $query->start_html('test'), "\n",
print $query->start_form, "\n";
print $query->textfield(-name=>'cmd');
print $query->submit, "\n";
print #query->end_form, "\n";
print #query->end_html, "\n";
это вот нужные html формы
вот сам код:
while (print STDOUT "Введите комманду: "){
$command = <STDIN>;
system($command)
}
как мне объединить это что бы вводить комманду в форму и выводить результат при нажатии на кнопку?
так
ладно
а если надо всё это дело загнать в cgi :
use CGI;
$query = new CGI;
print $query->header;
print $query->start_html('test'), "\n",
print $query->start_form, "\n";
print $query->textfield(-name=>'cmd');
print $query->submit, "\n";
print #query->end_form, "\n";
print #query->end_html, "\n";
это вот нужные html формы
вот сам код:
while (print STDOUT "Введите комманду: "){
$command = <STDIN>;
system($command)
}
как мне объединить это что бы вводить комманду в форму и выводить результат при нажатии на кнопку?
Я уже не могу. Вопросы сразу можно задавать?
Я уже не могу. Вопросы сразу можно задавать?
блин
я хочу разобраться что и как работает
блин
я хочу разобраться что и как работает
есть такая штука: perldoc CGI. оч. советую.
есть такая штука: perldoc CGI. оч. советую.
тогда накой этот форум вообще?или мы только пальцы гнуть умеем?
тогда накой этот форум вообще?или мы только пальцы гнуть умеем?
Тебе посоветовали место, где ты можешь узнать, а ты наезжать начинаешь. Не кто тебе не чем не обязан и только за то, что на тебя обратили внимание и указали где ты можешь найти ответ и научится, ты должен быть благодарен.
тогда накой этот форум вообще?или мы только пальцы гнуть умеем?
мы умеем много, а форум уж точно не для того чтобы рассказывать вещи, прямым текстом написанные в документации. я понимаю, если бы ее было трудно найти. а тут я вообще не понимаю в чем вопрос.
форму ты умеешь создать, вывести результат команды тоже... чтобы получить то, что введешь используй функцию param(). param(имя_элемента_формы) т. е. в твоем случае param('cmd') вернет тебе то, что ты ввел в форму. если еще ничего не было введено,
param ничего не вернет. все это есть в perldoc CGI