Текст:: Относится, может разобрать Unix, "отсылают" файлы.

РЕЗЮМЕ

Переместите в модуле:

используйте Текст:: Относятся;

Разберите отсылать поток от filehandle:

в то время как ($ref = вводят Текст:: Отсылают *FH) {
# ... действительно наполните $ref...
}
определенный ($ref) или умирают "ошибка, разбирая ввод";

То же самое, но использование анализатора возражает для большего количества управления:

# Создайте новый анализатор:
$parser = новый Текст:: Отсылает:: Анализатор, который СОХРАНЯЮТ LeadWhite =>;

# Разбор:
в то время как ($ref = $parser-> ввод (*FH)) {
# ... действительно наполните $ref...
}
определенный ($ref) или умирают "ошибка, разбирая ввод";

Управление объектами справочной информации, используя методы высокого уровня:

# Получите заголовок, автора, и т.д.:
$title = $ref-> заголовок;
@authors = $ref-> автор; контекст списка #
$lastAuthor = $ref-> автор; # скалярный контекст

# Установите заголовок и авторов:
$ref-> заголовок ("Cyberiad");
$ref-> автор (["S. Trurl", "C. Klapaucius"]); # arrayref для> 1 значение!

# Удалите резюме:
$ref-> резюме (undef);

То же самое, используя методы низкого уровня:

# Получите заголовок, автора, и т.д.:
$title = $ref-> добирается (T);
@authors = $ref-> добираются (A); контекст списка #
$lastAuthor = $ref-> добирается (A); # скалярный контекст

# Установите заголовок и авторов:
$ref-> набор (T, "Cyberiad");
$ref-> набор (A, "S. Trurl", "C. Klapaucius");

# Удалите резюме:
$ref-> установил (X); # наборы пустому массиву значений

Вывод:

печатайте $ref-> as_string;