Мобильная версия форумов
Открыть
 −14°C
завтра: −15°C
Погода в Перми
−14°C
вечером−14°C
ночью−16°C
завтра−15°C
Подробно
 66,25
−0.4574
Курс USD ЦБ РФна 19 февраля
66,2470
−0.4574
 74,91
−0.3437
Курс EUR ЦБ РФна 19 февраля
74,9055
−0.3437
  • Анонимный пользователь
    Очень нужен скрипт на perl выводящий последовательно слово из базы. Именно последовательно, т.е. при перезагрузке должно быть другое слово. Дойдя до конца списка должен возвращаться в начало... поможите, кто чем может:миг:

  • Анонимный пользователь
    #! /usr/bin/perl

    # считали базу в массив
    open (FL, "ФАЙЛ_БАЗЫ") || die "Error";
    @base=;
    close(FL);

    # считали файл с позицией вывода в массив
    open (FL, "ФАЙЛ_С_ПОЗИЦИЕЙ_ВЫВОДА") || die "Error";
    @position=;
    close(FL);

    $current=$position[0]; # тут позиция вывода
    $current++; # увеличило на единичкк

    if ($current > $#base) $current=0; # если больше чем длина базы, начинаем читать сначала

    $result=$base[$current]; # а вот и результат!!! Делаем с ним че хотим.

    $position[0]=$current;

    # сохраняем новую позицию
    open (FL, ">ФАЙЛ_С_ПОЗИЦИЕЙ_ВЫВОДА") || die "Error";
    print FL @position;
    close(FL);

    Ну и конечно ФАЙЛ_С_ПОЗИЦИЕЙ_ВЫВОДА надо создать и поместить туда нолик.
    короче, учите доки, а?

Записей на странице:

Перейти в форум

Модератор: