На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
! Внимательно изучите правила раздела перед созданием темы
0. ПРИЛАГАЙТЕ СВОИ СКРИПТЫ.
1. Прежде чем создать топик, используйте поиск. Возможно это уже обсуждалось.
2. В топике указывайте ОС, режим работы скрипта (CLI|CGI). Очень желателен вывод лог-файлов и того места, куда у вас назначен вывод данных (STDOUT|STDERR)
3. Помните: вы знаете что вы хотите, а форумчане - нет. Поэтому следуйте простому правилу: грамотный развернутый вопрос - грамотный развернутый ответ.
Модераторы: ANDLL
  
    > Считать n строк из файла в Perl
      Цитата
      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-е - как дописать в файл сверху? То есть строчку дописывать не снизу, а сверху?
        1)
           last if ($i>5);

        2) считать все в массив, потом UNSHIFT с нужной строчкой,
           потом запись массива в файл.
          Цитата vot, 30.11.02, 11:57:00
          1)
             last if ($i>5);

          Что есть такое last? И как оно работает? И куда вставить надо?
          Цитата
          2) считать все в массив, потом UNSHIFT с нужной строчкой,
             потом запись массива в файл.
          Хм. Кстати, с массивом, я так первые пять строчек прочитал \%) Прочитал все в массив, а потом 5 первых элементов вывел \%) Что тут есть UNSHIFT?
            Всегда поможем тебе в определении направления движения.
            Но пересказывать здесь документацию - пожалуй, это перебор :)
            Купи себе книжку по перлу. Без обид, ок?
              Цитата vot, 30.11.02, 13:57:14
              Всегда поможем тебе в определении направления движения.
              Но пересказывать здесь документацию - пожалуй, это перебор :)
              Купи себе книжку по перлу. Без обид, ок?
              Дак я купил \%) Только толку... \%) Читаю, не все понимаю. А вот до last я еще, наверное, не дошел. Потому и спросил. Трудно все сразу... А вот задумал же сделать сайт - теперь мучаюсь, всех достаю вопросами :) Без обид, ОКи? \%)
                last - выйти из цикла (аналог break)
                unshift - вставить что-то в начало массива. длина массива увеличивается.
                  Цитата vot, 30.11.02, 18:42:31
                  last - выйти из цикла (аналог break)
                  unshift - вставить что-то в начало массива. длина массива увеличивается.

                  Все понял \%) Спасибо!
                  0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
                  0 пользователей:


                  Рейтинг@Mail.ru
                  [ Script execution time: 0,0217 ]   [ 16 queries used ]   [ Generated: 29.03.24, 13:59 GMT ]