Logo Море(!) аналитической информации!
IT-консалтинг Software Engineering Программирование СУБД Безопасность Internet Сети Операционные системы Hardware
Архив форумов ЦИТФорума
Море(!) вопросов - Море(!) ответов
 
 FAQFAQ   ПоискПоиск   ПользователиПользователи   ГруппыГруппы   РегистрацияРегистрация 
 ПрофильПрофиль   Войти и проверить личные сообщенияВойти и проверить личные сообщения   ВходВход 
Как правильно задавать вопросы

perl

 
Перейти:  
Этот форум закрыт, вы не можете писать новые сообщения и редактировать старые.   Эта тема закрыта, вы не можете писать ответы и редактировать сообщения.    Список форумов Архив форумов ЦИТФорума -> Unix
Предыдущая тема :: Следующая тема  
Автор Сообщение
omar



Зарегистрирован: 22.01.2004
Сообщения: 99
Откуда: г.К-Чепецк

СообщениеДобавлено: Ср Июн 15 2005 11:16    Заголовок сообщения: perl Ответить с цитатой

Подскажите плиз!!!
Как все строки файла записать в массив
делаю так:
open (FAO2, "</var/log/еemp.bak") || die;
while(<FAO2>)
{
@str=($_);

}
Но почему то записывается только последняя строка Sad
В чем проблемв?
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
squirL



Зарегистрирован: 05.01.2005
Сообщения: 371
Откуда: Одесса

СообщениеДобавлено: Ср Июн 15 2005 11:33    Заголовок сообщения: Ответить с цитатой

:)
представьте, что вы делаете следующее:

Код:

while (<FD>)
{
   $var = $_;
}


как вы догадываетесь, по завершении цикла переменная $var будет содержать последнюю строку. то же самое происходит и в вашем примере, поскольку ($_) - это литеральное представление массива состоящего из одного элемента - $_. таким образом, в каждой новой итерации вы заменяете @str на новый массив, состоящий их очередной строки.
Код:
open (FAO2, "/var/log/еemp.bak") || die;
while(<FAO2>)
{
   push(@str,$_);
}

в этом случае элементы будут вставлятся в массив справа. если вам надо вставлять ээлементы слева - используйте unshift
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
Sol



Зарегистрирован: 05.12.2003
Сообщения: 427
Откуда: Томск

СообщениеДобавлено: Ср Июн 15 2005 11:36    Заголовок сообщения: Ответить с цитатой

Может так?

в цикле
push(@str,$_);
_________________
In My Humble Opinion
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Sol



Зарегистрирован: 05.12.2003
Сообщения: 427
Откуда: Томск

СообщениеДобавлено: Ср Июн 15 2005 11:38    Заголовок сообщения: Ответить с цитатой

да... squirL всё более грамотно написал..
_________________
In My Humble Opinion
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
butcher



Зарегистрирован: 18.04.2003
Сообщения: 467
Откуда: Киров

СообщениеДобавлено: Чт Июн 16 2005 08:46    Заголовок сообщения: Ответить с цитатой

Если проще, то так:

@str = <FAO2>;
_________________
Нет ничего невозможного...
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
omar



Зарегистрирован: 22.01.2004
Сообщения: 99
Откуда: г.К-Чепецк

СообщениеДобавлено: Чт Июн 16 2005 10:27    Заголовок сообщения: perl Ответить с цитатой

Спасибо люди!
Подскажите тогда плиз исчо как сделать таку вещь ...
Вот создали этот массив в котором есть куча цифр, нужно посчитать сколько раз каждая из них повторяется как это сделать?
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
squirL



Зарегистрирован: 05.01.2005
Сообщения: 371
Откуда: Одесса

СообщениеДобавлено: Чт Июн 16 2005 10:32    Заголовок сообщения: Ответить с цитатой

учимся делать код самостоятельно ;)
подсказка - юзаем хэш.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
Показать сообщения:   
Этот форум закрыт, вы не можете писать новые сообщения и редактировать старые.   Эта тема закрыта, вы не можете писать ответы и редактировать сообщения.    Список форумов Архив форумов ЦИТФорума -> Unix Часовой пояс: GMT + 3
Страница 1 из 1

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах


Powered by phpBB © 2001, 2002 phpBB Group
Русская поддержка phpBB

 

IT-консалтинг Software Engineering Программирование СУБД Безопасность Internet Сети Операционные системы Hardware

Информация для рекламодателей PR-акции, размещение рекламы — adv@citforum.ru,
тел. +7 495 6608306, ICQ 232284597
Пресс-релизы — pr@citforum.ru
Послать комментарий
Информация для авторов
This Web server launched on February 24, 1997
Copyright © 1997-2000 CIT, © 2001-2006 CIT Forum
Внимание! Любой из материалов, опубликованных на этом сервере, не может быть воспроизведен в какой бы то ни было форме и какими бы то ни было средствами без письменного разрешения владельцев авторских прав. Подробнее...