Добро пожаловать,
Гость
. Пожалуйста,
войдите
или
зарегистрируйтесь
.
Не получили
письмо с кодом активации
?
1 час
1 день
1 неделя
1 месяц
Навсегда
Новости:
Начало
Помощь
Поиск
Календарь
Вход
Регистрация
Forum Webscript.Ru
»
Программирование
»
Perl
»
Как преобразовать массив, считанный из файла?
« предыдущая тема
следующая тема »
Печать
Страницы: [
1
]
Вниз
Автор
Тема: Как преобразовать массив, считанный из файла? (Прочитано 3106 раз)
0 Пользователей и 1 Гость просматривают эту тему.
mikhail1111
Заглянувший
Новичок
Сообщений: 3
+0/-0
0
Как преобразовать массив, считанный из файла?
«
:
26 Июня 2006, 18:37:35 »
Например есть a.txt вида
a1
a2
a3
Требуется чтобы при открытии файла
open(A,"a.txt");
@a=
;
close(A);
его формат соответствовал такому массиву:
@a=qw(a1 a2 a3);
chomp не помогает
Записан
arto
>
Ветеран
Сообщений: 699
+0/-0
2
Как преобразовать массив, считанный из файла?
«
Ответ #1 :
27 Июня 2006, 17:51:30 »
# cat >| test
a1
a2
a3
# perl -de0
DB<1> open F,"test"
DB<2> @a =
DB<3> print join "+",@a
a1
+a2
+a3
DB<4> chomp @a
DB<5> print join "+",@a
a1+a2+a3
DB<6> ^D
#
Записан
ctax
Заглянувший
Новичок
Сообщений: 22
+0/-0
0
Как преобразовать массив, считанный из файла?
«
Ответ #2 :
29 Июня 2006, 13:05:47 »
push @out,grep s/\\s$//,
;
Записан
ctax
Заглянувший
Новичок
Сообщений: 22
+0/-0
0
Как преобразовать массив, считанный из файла?
«
Ответ #3 :
29 Июня 2006, 13:09:44 »
Так немножко точнее
push @out,grep s/\\s*$//,
;
Записан
Печать
Страницы: [
1
]
Вверх
« предыдущая тема
следующая тема »
Forum Webscript.Ru
»
Программирование
»
Perl
»
Как преобразовать массив, считанный из файла?
Sitemap
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28