Записи. Record., Работа с типом Record. |
Записи. Record., Работа с типом Record. |
klem4 |
6.02.2006 13:45
Сообщение
#1
|
Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Записи, тип Record
Для компактного представления комбинаций разнотипных данных их можно объеденять в специальные структуры - записи. Каждая запись состоит из объявленного числа полей, конструкция записи имеет следующий вид :
Если типы нескольких полей совпадают, то они могут быть перечислены просто через запятую, например : Type Теперь к каждому полю записи, можно обратиться следующим образом : сначала идентификатор переменной - записи, далее через точку имя нужного поля
Независимо от количества объявленных переменных данного типа, поля каждой из них будут называться одинаково, как они были названы в описании типа, поскольку поля записи скрыты внутри типа, они могут дублироваться внешними переменными и полями других типов, например type Тип поля записи может быть практически любым - массив, множество и даже другая запись. Существует еще один способ обращения к полям записи - при помощи оператора with : Type Теперь рассмотрим более сложную конструкцию - массив записей. Напишем небольшую базу данных, которая будет хранить информацию о студентах группы. Операции ввода/вывода будут происходить с файлом. Информация будет добавлена на днях Сообщение отредактировано: klem4 - 30.05.2007 23:19 -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
klem4 |
6.02.2006 14:13
Сообщение
#2
|
Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Как отсортировать массив записей по одному из параметров ?
Имеем массив записей : имя и возраст, отсортируем массив по возрасту и выведем его на экран. Информация будет добавлена на днях Еще один пример, by Romtek Сообщение отредактировано: klem4 - 30.05.2007 23:19 -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
klem4 |
6.02.2006 14:33
Сообщение
#3
|
Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
-------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Текстовая версия | 9.11.2024 19:44 |