Частина тексту файла (без зображень, графіків і формул):
Міністерство освіти і науки України
Національний Університет “Львівська Політехніка”
Кафедра БІТ
/
Звіт
до лабораторної роботи №3
На тему:
«Налаштування веб-сервера і розробка динамічних веб-сторінок на основі технології CGI»
Мета
Метою даної роботи є отримання навичок у розробці динамічних Web-сторінок на основі технології CGI.
Варіант завдання
Написати програму, яка отримує як вхідні параметри імена файлів, номера рядків, набір символів. Порахувати всі входження вказаних символів у вказаних файлах і вивести результат.
Скріншоти результатів роботи створеної Вами програми та її код.
Заданий текстовий файл:asdfghjb
zxcvbnmb
xcvbnmbb
/
/
Текст HTML – сторінки :
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Документ без названия</title>
</head>
<form method=POST action="http://localhost/cgi-bin/Lab3.cgi">
Введіть номер рядка<input type=text name="par1">
Введіть символ<input type=text name="par2">
<input type=submit value="Відправити дані">
</form>
<body>
</body>
</html>
Текст Perl-скрипту :
#!perl.exe
use strict;
use CGI;
my($line,$chr);
my $query = CGI->new();
$line=$query->param('par1'); # здесь присваиваем значения
$chr=$query->param('par2');
open SESAME, "C:\\Files\\Study\\5_sem\\Lab_WEB\\Lab3_CGI\\text.txt";
my @s=<SESAME>;
my $u=()=$s[$line]=~/$chr/g;
print "Content-type: text/html\n\n";
print "Число символів $chr в рядку $line : $u";
Висновки
На цій лабораторній роботі я вивчив основні аспекти і техніку налаштування Apache для сприйняття скриптів на мові Perl. Також я вивчив базові конструкції мови Perl для програмування динамічних веб-сторінок.