Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[44.198.162.35] |
|
Сообщ.
#1
,
|
|
|
Цитата open DATA, "text/news/$year/$mon.news" || die "404"; while (<DATA>) { chomp; ($chislo, $vremya, $id,$link,$author,$title,$text) = split(/::/); print ("$chislo\n"); ++$i; } Вот так вот я вывожу все строчки файла... А как вывести только первые 5 строчек, например? И 2-е - как дописать в файл сверху? То есть строчку дописывать не снизу, а сверху? |
Сообщ.
#2
,
|
|
|
1)
last if ($i>5); 2) считать все в массив, потом UNSHIFT с нужной строчкой, потом запись массива в файл. |
Сообщ.
#3
,
|
|
|
Цитата vot, 30.11.02, 11:57:00 1) last if ($i>5); Что есть такое last? И как оно работает? И куда вставить надо? Цитата Хм. Кстати, с массивом, я так первые пять строчек прочитал \%) Прочитал все в массив, а потом 5 первых элементов вывел \%) Что тут есть UNSHIFT?2) считать все в массив, потом UNSHIFT с нужной строчкой, потом запись массива в файл. |
Сообщ.
#4
,
|
|
|
Всегда поможем тебе в определении направления движения.
Но пересказывать здесь документацию - пожалуй, это перебор Купи себе книжку по перлу. Без обид, ок? |
Сообщ.
#5
,
|
|
|
Цитата vot, 30.11.02, 13:57:14 Дак я купил \%) Только толку... \%) Читаю, не все понимаю. А вот до last я еще, наверное, не дошел. Потому и спросил. Трудно все сразу... А вот задумал же сделать сайт - теперь мучаюсь, всех достаю вопросами Без обид, ОКи? \%)Всегда поможем тебе в определении направления движения. Но пересказывать здесь документацию - пожалуй, это перебор Купи себе книжку по перлу. Без обид, ок? |
Сообщ.
#6
,
|
|
|
last - выйти из цикла (аналог break)
unshift - вставить что-то в начало массива. длина массива увеличивается. |
Сообщ.
#7
,
|
|
|
Цитата vot, 30.11.02, 18:42:31 last - выйти из цикла (аналог break) unshift - вставить что-то в начало массива. длина массива увеличивается. Все понял \%) Спасибо! |