Версия для печати темы

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

Форум программистов _ Perl программирование _ Файлы и массивы

Автор: Vadik(R) 11:02:2008, 14:47

Люди, гляньте вложение. hangman.rar ( 510 байт ) : 12

В проге yes задается массив и выводится количество элементов в нем, и печатаеться сам массив двумя способами. В проге no я пытался считать этот список из файла, но вот две проблемы:
1. Почему перед словом Internet стоит какой-то квадратик и как от него избавиться?
2. Почему в проге yes первый вывод(print @words;) выводил массив в одну строчку, а впроге no - в 4 строчки?
P.S. Пробовал после считывания массива поэксперементировать с chomp;, но тогда при выводе массива вообще начинало писаться одно слово: printerma (я как понял сложение и замещение:
internet+
otvet+
programma+
printer=
-----------------
printerma
).

Автор: Vadik(R) 11:02:2008, 18:00

А, я кажеться всё понял... тут Perl не виноват, тут скорее виноват тот, кто не умеет им пользоваться.
Видимо я когда-то открыл файл неправильно и перл переделал его в свой формат... и теперь он открывается снова неправильно. А если создать новый файл и вбить туда те же самые слова, то все работает прекрасно. Даже видно что новый файл будет весит 35 б, а hangman.txt - 72 б.

Автор: Vovochka 11:02:2008, 23:46

Цитата(Vadik® @ 12:02:2008, 00:47 )

1. Почему перед словом Internet стоит какой-то квадратик и как от него избавиться?

Скорее всего файл был сохранен в кодировке utf8 с BOM подписью.

Цитата(Vadik® @ 12:02:2008, 00:47 )

2. Почему в проге yes первый вывод(print @words;) выводил массив в одну строчку, а впроге no - в 4 строчки?

Да. Именно потому что каждое слово после считывания из файла содержит еще символ перевода строки.

Цитата(Vadik® @ 12:02:2008, 00:47 )

P.S. Пробовал после считывания массива поэксперементировать с chomp;, но тогда при выводе массива вообще начинало писаться одно слово: printerma

Ничего не понял. Как это надо было извратиться? Если вам мало примера из perlfunc,
то вот удаление перевода строки для вашего массива:

Код

@words = map { chomp; $_ } @words;

Автор: Vadik(R) 12:02:2008, 11:38

Да ничего, всё, я уже сам разобрался. А вот извратиться так всё-таки как-то получилось. Вся проблема была в формате файла. Я поначалу его создал, и первый раз видимо неправильно открыл Perl'ом, из-за этого в блокноте файл всё равно отображался как надо, но структура была уже подпорчена.