Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > вывод массива с помощью format

Автор: Babich77 12.12.2011, 21:06

Добрый вечер.
Снова понадобилась помощь. На этот раз с функцией format
Есть такой вот код:

Код


open (ZOOOUT, ">zoo.txt");
format ZOOOUT = 
@*
@zooAnimals,         
.
write(ZOOOUT);

Как вывести весь массив @zooAnimals в столбик или в строчку, неважно. Как его полностью вывести?
Заранее спасибо за помощь

Автор: dixoNICH 12.12.2011, 22:40

open (ZOOOUT, "1.txt");

format ZOOOUT =
Test : @*
$a
.
$~ = 'ZOOOUT';
@a = qw/a b c d f e g/;
$a = join '', @a;
write;