Модераторы: korob2001, ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Динамическое создание файлов 
:(
    Опции темы
Kirolechka
Дата 11.2.2012, 17:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



В программе необходимо создать файлы. Изначально, я не знаю, сколько мне их потребуется. Ну т.е. файлы необходимо создавать динамически. Что делать в данном случае с дескрипторами? Ведь грубо выражаясь, они должны выглядеть следующим образом: DESCRIP_1, DESCRIP_2,...,DESCRIP_N. А как это сделать - не имею понятия.
Помогите пожалуйста, я в Perl новичок. Облазила учебники и инет - ответа не нашла.
Заранее спасибо.
PM MAIL ICQ   Вверх
tzirechnoy
Дата 11.2.2012, 20:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: нет
Всего: 16



В массив положыть, разумеется.

Код

#!/usr/bin/perl

my @fh;


foreach my $i (0..10) {
 open $fh[$i], ">./testfile_$i";
};
foreach my $i (0..10) {
 print {$fh[$i]}  "hello, world $i.\n";
 close $fh[$i];
};


PS И вообще, perldoc perlopentut.

PM MAIL   Вверх
krypt3r
Дата 13.2.2012, 11:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 2
Всего: 16



Если работу с отдельно взятым файлом можно организовать одним циклом (создать, что-то записать, закрыть), то и массив не нужен.

PS. use strict, Luke =)
PM MAIL   Вверх
tzirechnoy
Дата 13.2.2012, 13:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: нет
Всего: 16



Цитата
PS. use strict, Luke =)


В смысле? И со strict, и с -w всё молча прошло (perl 5.10.1), что там не так?
PM MAIL   Вверх
dixoNICH
Дата 13.2.2012, 13:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

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



Цитата(tzirechnoy @ 11.2.2012,  20:35)
В массив положыть, разумеется.

Код

#!/usr/bin/perl

my @fh;


foreach my $i (0..10) {
 open $fh[$i], ">./testfile_$i";
};
foreach my $i (0..10) {
 print {$fh[$i]}  "hello, world $i.\n";
 close $fh[$i];
};


PS И вообще, perldoc perlopentut.

лучше, всё же, так
open $fh[$i], ">", "testfile_$i";
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl"
korob2001
sharq
  • В этом разделе обсуждаются общие вопросы по языку Perl
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

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


 




[ Время генерации скрипта: 0.0458 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.