Операторы обработки строк

Если содержимое строки заключить в обратные кавычки, то это позволит за¬пустить внешнюю программу и присвоить переменной результат ее работы:
#!/usr/bin/perl -w
# Выводим все сообщения об ошибках
# в окно Web-браузера
use CGI::Carp qw(fatalsToBrowser); print "Content-type: text/html\n\n";
print "<HTMLXHEAD>\n";
print "<Т1ТЬЕ>Запуск внешних программ</Т1ТЬЕ>\п"; print "</HEADXBODY>\n";
$X = "dir4;
print "<TEXTAREA cols=70 rows=30>"; print $X;
print "</TEXTAREA>"; print "</BODYx/HTML>\n";
Данный код выведет содержимое папки Z:\home\perIbook.ru\cgi-bin. При вы¬воде используется кодировка Dos (кодовая страница 866), поэтому русские буквы будут искажены.



Страница: 1 | 2