 |
|
Модераторы: korob2001, ginnie |
 
|
|
Как преобразовать массив, считанный из файла? 
| mikhail |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 11 Регистрация: 25.6.2006 Репутация: нет Всего: нет |
Например есть a.txt вида
a1 a2 a3 Требуется чтобы при открытии файла open(A,"a.txt"); @a=<A>; close(A); его формат соответствовал такому массиву: @a=qw(a1 a2 a3); chomp не помогает |
|||
|
||||
Загрузка ...
| nitr |
|
|||
 Эксперт  Профиль Группа: Участник Клуба Сообщений: 2543 Регистрация: 10.2.2006 Где: Россия :) Репутация: 37 Всего: 84 |
и в чём проблема?
|
|||
|
||||
| mikhail |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 11 Регистрация: 25.6.2006 Репутация: нет Всего: нет |
Что то не получается, режет все помимо \n, выдается только последний элемент массива.
|
|||
|
||||
| igorold |
|
|||
 Опытный Профиль Группа: Участник Сообщений: 557 Регистрация: 22.12.2005 Где: Россия->Урал-& gt;Миасс Репутация: 3 Всего: 17 |
а вставь:
что выдает? у меня : а1а2а3 что означает, что все работает ... как написал nitr -------------------- ... у семи нянек 14 сисек ... Putin here, Putin there, Putin almost everywhere! |
|||
|
||||
| nitr |
|
|||
|
Эксперт Профиль Группа: Участник Клуба Сообщений: 2543 Регистрация: 10.2.2006 Где: Россия :) Репутация: 37 Всего: 84 |
mikhail, покажи свой результат, и что вообще ты делаешь ? ;)
Приведён верный (для твоего примера) вариант ответа. Напиши только тот кодж что тебе указал. Может чего до этого срабатывает... надо смотреть. а то можно только гадать. Я к примеру негадалка  либо к счастью, либо нет Короче, дело к ночи, конкретней плиз! |
|||
|
||||
| mikhail |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 11 Регистрация: 25.6.2006 Репутация: нет Всего: нет |
Даже не пойму в чем дело,
#!/usr/bin/perl open(A,"a.txt"); while(<A>) {chomp; push @a, $_;} close(A); print @a ; Файл a.txt a1 a2 a3 Скрипт выдает a3 |
|||
|
||||
| korob2001 |
|
|||
 Эксперт Профиль Группа: Комодератор Сообщений: 2871 Регистрация: 29.12.2002 Репутация: 31 Всего: 61 |
Попробуй так считывать файл в массив:
-------------------- "Время проходит", - привыкли говорить вы по неверному пониманию. "Время стоит - проходите вы". |
|||
|
||||
| mikhail |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 11 Регистрация: 25.6.2006 Репутация: нет Всего: нет |
Выдает ", a3"
|
|||
|
||||
| nitr |
|
|||
|
Эксперт Профиль Группа: Участник Клуба Сообщений: 2543 Регистрация: 10.2.2006 Где: Россия :) Репутация: 37 Всего: 84 |
у всех всё работает...
точно в скрипте больше ничего не добавляешь? Какая ОС? и версия перл... я даже не знаю на что тебе грешить з.ы.: korob2001, (привет) даже из моего кода видно, что не в скрипте дело |
|||
|
||||
| mikhail |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 11 Регистрация: 25.6.2006 Репутация: нет Всего: нет |
Вообщем проблема была в кривом перле. Попробовал на перле, установленном в Денвере, все работает нормально.
|
|||
|
||||
| korob2001 |
|
|||
|
Эксперт Профиль Группа: Комодератор Сообщений: 2871 Регистрация: 29.12.2002 Репутация: 31 Всего: 61 |
Привет! Просто не понятно: Зачем пушевать строки в массив, если можно сразу прочесть в него весь файл? Я собственно потому написал этот пост, а не хотел сказать, что с твоим кодом, что-то не так.  Это сообщение отредактировал(а) korob2001 - 14.9.2006, 00:23 -------------------- "Время проходит", - привыкли говорить вы по неверному пониманию. "Время стоит - проходите вы". |
|||
|
||||
|
|
| Правила форума "Perl" | |
|
|
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Perl: Общие вопросы | Следующая тема » |
[ Время генерации скрипта: 0.0519 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |