Forum Webscript.Ru

Программирование => Perl => Тема начата: mikhail1111 от 26 Июня 2006, 18:37:35

Название: Как преобразовать массив, считанный из файла?
Отправлено: mikhail1111 от 26 Июня 2006, 18:37:35

Например есть a.txt вида
a1
a2
a3

Требуется чтобы при открытии файла
open(A,"a.txt");
@a=;
close(A);

 его формат соответствовал такому массиву:
@a=qw(a1 a2 a3);

chomp не помогает

Название: Как преобразовать массив, считанный из файла?
Отправлено: arto от 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 от 29 Июня 2006, 13:05:47

push @out,grep s/\\s$//,;

Название: Как преобразовать массив, считанный из файла?
Отправлено: ctax от 29 Июня 2006, 13:09:44

Так немножко точнее
push @out,grep s/\\s*$//,;