VPF::Pod в текст из переменной - Форум программистов

Logo

Дата 31.12.2012, 04:39 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 694
Регистрация: 22.7.2008

Репутация: 3
Всего: 10

Есть ли способ сгенерировать текст для терминала из строки - perl переменной, содержащей текст в формате pod?
Стандартный модуль Pod::Text предоставляет методы только для парсинга файла или STDIN.

arto

Дата 31.12.2012, 08:41 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40

# perl -e '$data = join "\n", @ARGV; open my $f, "<", \$data or die $!; print while(<$f>)' ONE TWO TREE
ONE
TWO
TREE
#

Logo

Дата 2.1.2013, 04:44 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 694
Регистрация: 22.7.2008

Репутация: 3
Всего: 10

Спасибо, помогло.

Код


#!/usr/bin/perl
use Pod::Text::Termcap;

my $pod = <<EOF;
=head1 NAME

Text
EOF

my $text;
open my($in), '<', \$pod;
open my($out), '>', \$text;
Pod::Text::Termcap->new->parse_from_file($in, $out);
print $text;

Была проблема в том, что пытался использовать двух аргументную форму open.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »