Скриптовые языки на примере Perl. Языки программирования Скриптовые Программа (или ее бай-код) интерпретируется Зачастую более высокий уровень абстрагирования. - презентация

1 Скриптовые языки на примере Perl

2 Языки программирования Скриптовые Программа (или ее бай-код) интерпретируется Зачастую более высокий уровень абстрагирования от системы Минимум риска «завалить» всю систему Кроссплатформенность Компилируемые Программа транслируется в машинные коды Быстродействие Более полный доступ к ресурсам системы Perl – предварительно компилируемый ( скриптовый ) язык программирования высокого уровня. Основной особенностью языка считаются его богатые возможности по работе с текстом. #!/usr/bin/perl -w print "Hello, world!";

3 Типы данных Скаляр $index числа, строки и ссылки тип определяется динамически упорядоченный список скаляров обращение к элементу: $array[10] Хэш-таблица %hash Ключ => скаляр обращение к элементу: $hash{ key } keys( %hash ) – массив ключей

4 Операции и выражения Аналогичные используемым в языке С +, -, *, /, % ++, -- ==, !=,, = &&, ||, ! &, |, ^, ~, > =, +=, -=, *=, /=, %=, &=, |=, ^=, >=, &&=, ||=, x ? y : z [] Уникальные **. (конкатенация) x (повторение) eq, ne, lt, gt, le, ge, cmp or, and, not, xor.=, x= \ (ссылка), -> =~, !~, m//, s///, tr/// print `команда` .. => {}

5 Операторы Условные If и unless (модификатор) If {…} else {…} If {…} elsif {…} … else {…} Цикловые while и until foreach for last next redo

6 Ввод-вывод Оператор Оператор print

7 Простейшая работа с файлами Дескриптор – это символическое имя, которое используется для представления файла Открытие файлов: open дескриптор, имя_файла_c_префиксом Префиксы: ( запись), >> ( добавление ) Возвращает 0 в случае успешного выполнения. Закрытие файлов: close дескриптор Чтение из файлов: Запись в файлы: print дескриптор

8 Работа со строками Регулярные выражения По сути это строки-шаблоны, состоящие из символов и метасимволов (символы, имеющие специальное значение) и задающие определенные правила поиска строк. Метасимволы: \ - экранирование или отрицание. - одиночный символ ^ - начало строки $ - конец строки | - выбор [ ] - класс символов ( ) - группировка * - нуль и более повторений + - одно и более повторений ? - нуль или одно повторение { } - явное количество повторений Метапоследовательности: \n – символ новой строки \r – символ возврата каретки \t – символ табуляции \s – класс пробельных символ \d – цифровые символы \w – буквенно-цифровые символы

9 Подпрограммы и функции Определение: sub имя [(параметры)] [{ тело }]; Вызов: имя ( параметры); имя параметры; Определение локальных переменных: функции my и local Возврат значений: функция return Передача параметров:

10 Практическое задание 1.Шаблонный парсинг входной последовательности строк: bad -> good выходим, если встретили слово exit 2. Объединение данных из двух файлов в один Файл1: Anna 17 Pavel 20 Lena 40 Dima 25 Ivan 90 Файл2: Inna Ivan Marina Dima Нужныйрезультат: Name Age Phone Inna Pavel 20 - Marina Dima Ivan Anna 17 - Lena 40 -

11 Решение Задачи 1 while( ) { exit() if /exit/; $_ =~ s/good/bad/; print $_; }

$2, "pho" title="Решение Задачи 2 (часть 1) open FILE1, "f1"; open FILE2, "f2"; @file1 = ; $file1_size = $#file1; @file2 = ; $file2_size = $#file2; for( $i = 0; $i < $file1_size + 1; $i++) { if( $file1[$i] =~ /(\w+)\s+(\d+)/ ) { %{$name_hash{$1}} = ("age" => $2, "pho" class="link_thumb"> 12 Решение Задачи 2 (часть 1) open FILE1, "f1"; open FILE2, = ; $file1_size = = ; $file2_size = $#file2; for( $i = 0; $i < $file1_size + 1; $i++) { if( $file1[$i] =~ /(\w+)\s+(\d+)/ ) { %{$name_hash{$1}} = ("age" => $2, "phone" => "-"); } $2, "pho"> $2, "phone" => "-"); }"> $2, "pho" title="Решение Задачи 2 (часть 1) open FILE1, "f1"; open FILE2, "f2"; @file1 = ; $file1_size = $#file1; @file2 = ; $file2_size = $#file2; for( $i = 0; $i < $file1_size + 1; $i++) { if( $file1[$i] =~ /(\w+)\s+(\d+)/ ) { %{$name_hash{$1}} = ("age" => $2, "pho">

$age, "phone" => $2); " title="Решение Задачи 2 (часть 2) for( $i = 0; $i< $file2_size + 1; $i++) { if( $file2[$i] =~ /(\w+)\s+([0-9-]+)/ ) { if( defined $name_hash{$1} ) { $age = ${$name_hash{$1}}{"age"}; } else { $age = "-"; } %{$name_hash{$1}} = ("age" => $age, "phone" => $2); " class="link_thumb"> 13 Решение Задачи 2 (часть 2) for( $i = 0; $i< $file2_size + 1; $i++) { if( $file2[$i] =~ /(\w+)\s+([0-9-]+)/ ) { if( defined $name_hash{$1} ) { $age = ${$name_hash{$1}}{"age"}; } else { $age = "-"; } %{$name_hash{$1}} = ("age" => $age, "phone" => $2); } $age, "phone" => $2); "> $age, "phone" => $2); }"> $age, "phone" => $2); " title="Решение Задачи 2 (часть 2) for( $i = 0; $i< $file2_size + 1; $i++) { if( $file2[$i] =~ /(\w+)\s+([0-9-]+)/ ) { if( defined $name_hash{$1} ) { $age = ${$name_hash{$1}}{"age"}; } else { $age = "-"; } %{$name_hash{$1}} = ("age" => $age, "phone" => $2); ">

14 Решение Задачи 2 (часть 3) print "Name".(" " x 4)."Age".(" " x 4)."Phone\n"; foreach (keys( %name_hash)) { printf("%-8s", $_); printf("%-7s%s\n", ${$name_hash{$_}}{"age"}, ${$name_hash{$_}}{"phone"}); }

15 Спасибо за внимание. Вопросы?