Основы Perl — строки, числа, массивы, хэши
15 февраля 2010
Так сложилось, что я знаю как минимум двух человек, которые хотели бы выучить Perl. Специально для них я решил написать этот пост.
Оглавление:
- Часть 1: Типы переменных (вы читаете эту часть)
- Часть 2: Условные операторы и циклы
- Часть 3: Директива use strict, ссылки и функции
- Часть 4: Ввод/вывод, файлы, каталоги и глобы
Учиться будем на простых примерах из серии «вывести числа от 1 до 5» и тому подобное. Мне всегда нравилось учиться на примерах — это интереснее и быстрее, чем по книжкам или на семинарах. Также можете посмотреть посты этого блога, имеющие метку «Perl» — велика вероятность, что в них вы найдете еще примеры.
Я предполагаю, что в школе/институте вы изучали Pascal/Delphi, C или хотя бы Basic, и объяснять, что такое функция и циклы не требуется. Если это не так — ничего страшного, просто для того, чтобы во всем разобраться, вам придется потратить лишнее время на чтение Википедии. Если вы не знаете, как запустить bash-скрипт, или для чего в первой строке скрипта писать что-то вроде #!/bin/sh, придется немного погуглить, чтобы это выяснить.
Специально для тех, кого интересуют вопросы, «а правда ли, что Perl очень сложен», «а какие книжки по Perl можете посоветовать» и даже «а что, на нем еще пишут?», я написал Mini-FAQ по Perl, которое вы можете прочитать на HabraHabr. Здесь я приведу краткое его содержание:
- Perl — современный язык программирования, на котором пишут и будут писать еще очень долго.
- Perl, как и любой другой язык программирования, имеет свои достоинства, недостатки и области применения. Существует действительно большой класс задач, которые Perl решает на 5+.
- Синтаксис Perl не сложнее синтаксиса C++ или Java. В этом вы сможете убедиться, дочитав данный пост до конца.
- Существуют хорошие и при этом недорогие учебники по Perl. Также в сети вы без труда найдете сообщество perl-программистов, говорящих на вашем родном языке.
- Perl хорошо работает как под операционными системами семейства UNIX, так и под Windows.
Привет, %username%!
Итак, давайте уже напишем наш первый скрипт на Perl!
$name = shift();
print("Hello, $name!\n");
Запускаем скрипт:
$ ./1.pl afiskon
Hello, afiskon!
Тут все очень просто:
- Имена скалярных переменных (то есть не массивов и не хэшей, что это такое — см ниже) начинаются со знака доллара.
- Функция shift возвращает очередной аргумент скрипта. Другими словами первый вызов shift() возвращает первый аргумент, второй вызов — второй аргумент и так далее.
- Функция print() выводит строку, переданную в качестве аргумента.
- В строку можно подставлять значения переменных (см строку 4). Подробнее о строках — см далее.
Если пока не очень понятно — ничего страшного. Возможно, немного теории внесет чуть больше ясности.
Типы переменных
В Perl существует три основных типа переменных: скаляры (числа и строки), массивы — подобно тем, что используются в Pascal или C (иногда массивы еще называют векторами), и хэши (ассоциативные массивы).
Скаляры мы уже использовали в предыдущем примере. Вот еще несколько примеров задания скаляров.
$a = 123;
$b = -7.496;
$c = 0xABC; # равно 2748, да, это комментарий :)
$d = ($a + $b) / $c;
$d *= $a; # тоже самое, что $d = $d * $a;
$str1 = "hello";
$str2 = "$str1, world"; # в $str2 записано 'hello, world'
$str3 = $a."\n".$str2;
$str4 = '$str1'; # в $str4 записано '$str1', а не 'hello'
Тут мы задаем положительные и отрицательные, целые и дробные числа, задаем число в шестнадцатеричной кодировке, складываем, умножаем и делим — все как в Си или Java. Кроме перечисленных операций Perl также поддерживает операцию возведения в степень:
Со строками все примерно так же, как в каком-нибудь PHP. Точка означает операцию конкатенации (то есть «склеивания» строк), если в строке содержатся имена переменных, на их место подставляются значения, с помощью обратного слэша можно вставлять символы новой строки (\n), табуляции (\t), кавычки (\"), сам обратный слэш (\\) знак доллара безо всякой подстановки переменных (\$) и многое другое. Если строка в одинарных кавычках, символы в ней трактуются «как есть», без подстановки переменных и тд.
Как и PHP, Perl интерпретирует скаляры, как числа или как строки в зависимости от операции. Все просто:
# ^ строка "11" преобразуется в число,
# после чего выполняется сложение, результат: 33.
$str1 = "11" . 22;
# ^ число 22 преобразуется в строку,
# после чего выполняется конкатенация, результат: "1122".
Правила преобразования из строки в число и наоборот тут те же, что и в PHP:
# ^ результат - "abc", число ноль преобразуется в пустую строку
$int1 = "aaa" + 1;
# ^ результат - 1, в строке "aaa" нет цифр
$int2 = "12aaa" + 1;
# ^ результат - 13, учитываются только первые цифры строки
Кстати, для объявления длинных строк существуют специальные операторы — q и qq:
$text = q {
Do you have $15 ?
};
# аналогично двойным кавычкам
$message = qq {
Hello, $username!
How are you?
};
Работа с массивами происходит следующим образом:
$scalar = "bebebebe";
($a, $b) = (1, 2); # тоже самое, что $a = 1; $b = 2;
@arr = ("aaa", 123, $scalar, $a+$b);
print $arr[1]."\n";
push @arr, $a;
print pop(@arr)."\n";
Здесь мы создаем массив @arr, состоящий из 4-х элементов (строка 5). Затем выводим второй элемент (строка 6). Нумерация элементов начинается с нуля, поэтому для вывода второго по счету элемента используется индекс 1. Затем кладем в конец массива значение переменной $a (функция push, строка 7), и тут же извлекаем и выводим его (функция pop, строка 8).
Обратите внимание, имена массивов начинаются с «собаки», а не доллара (запомнить не сложно — соответствующие символы похожи на первые буквы английских названий типов: $ — scalar, @ — array). При обращении ко второму элементу массива (строка 6) использовался знак доллара, потому что элемент массива является скаляром. По началу это вызывает много путаницы, но вообще все логично.
Еще в этом скрипте мы вызываем функции print и push без скобок. В Perl при вызове функции, везде, где это не вызывает неопределенности, скобки можно опустить.
Для объявления массива, элементами которого являются строки без пробелов, существует специальный оператор — qw:
# аналогично ("aaa", "bbb", "ccc"), только короче
Хэши похожи на массивы, но элементы в хэше не упорядочены. При этом в качестве ключа, по которому производится доступ к элементу, могут использоваться строки.
%hash = ( # при объявлении хэшей и массивов можно
"x" => 12, # использовать перенос строк
y => 53, # если в ключе нет спец-символов, кавычки не нужны
"z" => -10.5, # запятую на конце можно оставлять
);
$hash{"x"}++; # координата по x теперь равна 13
$hash{y}--; # координата по y теперь равна 52
# выводим координаты
print "x = $hash{x}, y = $hash{y}, z = $hash{z}\n";
Имена хэшей начинаются со знака процента, для обращения к элементу используются фигурные скобки (а не квадратные, как в случае с массивами). Если имя ключа заранее известно, можно указывать его без кавычек (строка 10).
Кстати, переменные $test, @test и %test — это совершенно независимые друг от друга переменные разного типа.
В этом месте я хотел перейти к условным операторам и циклам for/while, но понял, что для одного поста текста и так уже многовато. Между тем за кадром остались многие вопросы:
- Условные операторы;
- Циклы for и while;
- Объявление функций;
- Работа с потоками и файлами;
- Строгий синтаксис;
- Использование готовых модулей и классов.
Об этом я напишу в одной из следующих заметок. Хотелось бы получить хотя бы парочку комментариев на этот пост — интересно/неинтересно, понятно/непонятно и так далее. Кстати, если у вас есть вопросы, связанные с Perl (не обязательно с этим постом) — смело задавайте их в комментариях!
Надеюсь, серия постов о программировании на Perl поможет вам написать ваши первые простенькие скрипты. Со временем скрипты будут становится сложнее, в них станут использоваться новые технологии (ООП, регулярные выражения) и через какое-то время вы обнаружите, что знаете о Perl достаточно, чтобы делиться опытом с другими.
Далее: Условные операторы и циклы.
Метки: Perl, Языки программирования.
Вы можете прислать свой комментарий мне на почту, или воспользоваться комментариями в Telegram-группе.