0°C
завтра: 11°C
Погода в Перми
0°C
вечером5°C
ночью1°C
завтра11°C
Подробно
 92,51
−0.7860
Курс USD ЦБ РФна 25 апреля
92,5058
−0.7860
 98,91
−0.6491
Курс EUR ЦБ РФна 25 апреля
98,9118
−0.6491
PRM.Форум /Компьютеры Интернет Связь / Программирование /

последовательный вывдо на Perl

ПечатьRSSДеревом

  • Очень нужен скрипт на perl выводящий последовательно слово из базы. Именно последовательно, т.е. при перезагрузке должно быть другое слово. Дойдя до конца списка должен возвращаться в начало... поможите, кто чем может:миг:

  • Ответ на сообщение последовательный вывдо на 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);

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

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

PRM.Форум /Компьютеры Интернет Связь / Программирование /
Перейти в форум

Модератор:
Наверх
SHKULEV MEDIA HOLDING

Сетевое издание «59.ру» (18+)
Зарегистрировано Федеральной службой по надзору в сфере связи, информационных технологий и массовых коммуникаций (Роскомнадзор)
Свидетельство о регистрации СМИ ЭЛ № ФС 77–84685 от 06.02.2023 г.
Учредитель: Общество с ограниченной ответственностью «ИНТЕРНЕТ ТЕХНОЛОГИИ»
Главный редактор: Вохмянина Екатерина Владимировна
Адрес редакции: г. Пермь, 614007, ул. 25 Октября д. 101, 6 этаж, БЦ «Авангард», 8 (342) 215-01-21
Электронный адрес редакции: 59@rugion.ru
Контактные данные для Роскомнадзора и государственных органов: juristekat@iportal.ru
Техподдержка: help@sholding.ru
Связаться с отделом продаж: 8 (342) 215-01-21, e.kameneva@iportal.ru
Публикации с пометкой «На правах рекламы», «Партнёрский проект», «Открытая трибуна», «Новости телекома» и «Выборы-2020» оплачены рекламодателем. Редакция сайта не несет ответственности за достоверность информации, содержащейся в рекламных объявлениях.

Информация об ограничениях

Политика использования cookies
Политика конфиденциальности и обработки персональных данных и правила использования сайта