powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / (PERL)прочитать первые несколько строчек из файла
14 сообщений из 14, страница 1 из 1
(PERL)прочитать первые несколько строчек из файла
    #33779737
mastanik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
подскажите, пожалйуста, как можно прочитать первые несколько строк из файла за меньшее число операций? можно как-нибудь регулярным выражением?
...
Рейтинг: 0 / 0
(PERL)прочитать первые несколько строчек из файла
    #33779758
g613
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
mastanikподскажите, пожалйуста, как можно прочитать первые несколько строк из файла за меньшее число операций? можно как-нибудь регулярным выражением?

меньше чем, ЧТО ? как ты их уже прочитал ?
...
Рейтинг: 0 / 0
(PERL)прочитать первые несколько строчек из файла
    #33779771
Anjey aka PM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
while ($lines .= <INPUT> && $a++ < $maxamount);

так устроит? переменные предварительно заасигнь
...
Рейтинг: 0 / 0
(PERL)прочитать первые несколько строчек из файла
    #33779882
mastanik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
хмм, не работает.
а что за конструкция
.=
?
...
Рейтинг: 0 / 0
(PERL)прочитать первые несколько строчек из файла
    #33779901
g613
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Anjey aka PM
Код: plaintext
while ($lines .= <INPUT> && $a++ < $maxamount);

так устроит? переменные предварительно заасигнь

нет, не устроит:
- во первЫх переменная $a зарезервирована и пользоваться ей не желательно
- во вторых стоит прочитать про приоритет операций и заменить && на and, или воспользоваться скобками
- в третьих while подрузамевает цикл, которого в приведенном куске кода нет....
...
Рейтинг: 0 / 0
(PERL)прочитать первые несколько строчек из файла
    #33780123
Anjey aka PM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
g613 Anjey aka PM
Код: plaintext
while ($lines .= <INPUT> && $a++ < $maxamount);

так устроит? переменные предварительно заасигнь

нет, не устроит:
- во первЫх переменная $a зарезервирована и пользоваться ей не желательно
- во вторых стоит прочитать про приоритет операций и заменить && на and, или воспользоваться скобками
- в третьих while подрузамевает цикл, которого в приведенном куске кода нет....

- во первЫх покажите зарезервированную переменную $a
- во вторых -- ну сижу на сихе последний год... забыл что приоритет op = ниже чем &&
- в третьих -- аналогично... { } в конце которые в сихе необязательны в перле обязательны... кому надо разберется

ЗЫ: че ты злой такой?
...
Рейтинг: 0 / 0
(PERL)прочитать первые несколько строчек из файла
    #33780137
Anjey aka PM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
итого правим:
Код: plaintext
1.
2.
3.
4.
5.
while (($lines .= <INPUT>) && ($a++ < $maxamount)) {};

или

next while (($lines .= <INPUT>) && ($a++ < $maxamount));
...
Рейтинг: 0 / 0
(PERL)прочитать первые несколько строчек из файла
    #33780175
g613
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Anjey aka PM g613 Anjey aka PM
Код: plaintext
while ($lines .= <INPUT> && $a++ < $maxamount);

так устроит? переменные предварительно заасигнь

нет, не устроит:
- во первЫх переменная $a зарезервирована и пользоваться ей не желательно
- во вторых стоит прочитать про приоритет операций и заменить && на and, или воспользоваться скобками
- в третьих while подрузамевает цикл, которого в приведенном куске кода нет....

- во первЫх покажите зарезервированную переменную $a


про глобальные переменные $a и $b упоминание есть в perldoc -f sort, ничего конечно страшного не произойдет, но при использовании use strict, не заасигнивание, как ты выразился, этих переменных не вызовет ошибки, что не есть гуд...


- во вторых -- ну сижу на сихе последний год... забыл что приоритет op = ниже чем &&
- в третьих -- аналогично... { } в конце которые в сихе необязательны в перле обязательны... кому надо разберется

ЗЫ: че ты злой такой?

да не злой я, просто перед тем как советовать, не мешало бы проверить...
...
Рейтинг: 0 / 0
(PERL)прочитать первые несколько строчек из файла
    #33780202
g613
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
..и все таки хочется услышать, что хочет автор короче в синтаксисе перловом или быстрее по производительности, а то ведь вдруг и
Код: plaintext
my @input = (<INPUT>)[ 0 ..$maxamount- 1 ];
устроит...
...
Рейтинг: 0 / 0
(PERL)прочитать первые несколько строчек из файла
    #33780217
Anjey aka PM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
на 2-хгектарнЫх файлах будет весело :)

хотя автора возможно устроит

ЗЫ: насчет проверить... ну нетю у меня перла... нетю... я исправлюсь... уже качаю и буду ставить (пока на винде приходится сидеть (( )
...
Рейтинг: 0 / 0
(PERL)прочитать первые несколько строчек из файла
    #33780250
g613
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Anjey aka PMна 2-хгектарнЫх файлах будет весело :)

думаю, на 2 гектраных файлах, за то время когда они будут обрабатываться этой строчкой, хватит времени чтобы веселье плавно перетекло в тоску... зато `операций' меньше, чем у тебя...
...
Рейтинг: 0 / 0
(PERL)прочитать первые несколько строчек из файла
    #33780282
mastanik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
спасибо,
Код: plaintext
1.
2.
3.
4.
5.
6.
while (($lines .= <INPUT>) && ($a++ < $maxamount)) {};

или

next while (($lines .= <INPUT>) && ($a++ < $maxamount));


это как раз подойдет.
не подскажете тогда еще парочку ссылок по перлу?
...
Рейтинг: 0 / 0
(PERL)прочитать первые несколько строчек из файла
    #33780349
Anjey aka PM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
(PERL)прочитать первые несколько строчек из файла
    #33780373
JAPH
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Код: plaintext
while (<INPUT>) {print; last if $. == $maxamount}
Напечатает первые $maxamount строк
...
Рейтинг: 0 / 0
14 сообщений из 14, страница 1 из 1
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / (PERL)прочитать первые несколько строчек из файла
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]