Интерпретатор языка Brainfuck




Принцип обмена данными из 1С с сайтом (на MySQL) и выдачи (публикации) этих данных по запросу.
PHP-Скрипт автоматической загрузки данных из файла данных в формате CSV в базу данных сайта работающего на WordPress.

В продолжение моей темы: 1С:Альфа-Авто Автосалон Автосервис: обмен с сайтом.
С помощью данного скрипта можно загружать в автоматическом режиме, по расписанию, данные сервисных книжек (ремонтов авто) из 1С:Альфа-Авто Автосалон Автосервис.
Также можно загружать данные в ручном режиме: для этого делается скрытая страница, где размещается специальная кнопка.
Комментарии размещенные внутри скрипта разъяснят логику и порядок действия.
Комментарии с "/////    echo" использовались для отладки.
Дополнительно создана таблица для журналирования результатов загрузки данных.
Скрипт включает в себя защиту от SQL инъекций (думаю безопасность соблюдена в полной мере).
В кратце:
1. Пишется скрипт, который запускает этот.
2. Создается регламентное задание в WordPress, по которому запускается скрипт из п.1. 
3. Этот скрипт осуществляет проверку на существование файла обмена в папке.
4. Если данные не новые, загрузка не производится.
5. Если данные новые, очищается таблица сервисных книжек.
6. Загружаются новые данные.

Собственно сам скрипт:

<?php // Полная загрузка сервисных книжек, создан 2026-01-05 12:44:55

global $wpdb2;
global $failure;
global $file_hist;

/////  echo '<H2><b>Старт загрузки</b></H2><br>';

$failure=FALSE;
//подключаемся к базе
$wpdb2 = include_once 'connection.php'; ; // подключаемся к MySQL
// если не удалось подключиться, и нужно оборвать PHP с сообщением об этой ошибке
if (!empty($wpdb2->error))
{
/////   echo '<H2><b>Ошибка подключения к БД, завершение.</b></H2><br>';
$failure=TRUE;
wp_die( $wpdb2->error );
}

$m_size_file=0;
$m_mtime_file=0;
$m_comment='';
/////проверка существования файлов выгрузки из 1С
////файл выгрузки сервисных книжек
$file_hist = ABSPATH.'/_1c_alfa_exchange/AA_hist.csv';
if (!file_exists($file_hist))
{
/////   echo '<H2><b>Файл обмена с сервисными книжками не существует.</b></H2><br>';
$m_comment='Файл обмена с сервисными книжками не существует';
$failure=TRUE;
}

/////инициируем таблицу лога
/////если не существует файла то возврат и ничего не делаем
if ($failure){
///включает защиту от SQL инъекций и данные можно передавать как есть, например: $_GET['foo']
/////   echo '<H2><b>Попытка вставить запись в лог таблицу</b></H2><br>';
$insert_fail_zapros=$wpdb2->insert('vin_logs', array('time_stamp'=>time(),'last_mtime_upload'=>$m_mtime_file,'last_size_upload'=>$m_size_file,'comment'=>$m_comment));
wp_die();
/////    echo '<H2><b>Возврат в начало.</b></H2><br>';
return $failure;
}
/////проверка лога загрузки, что бы не загружать тоже самое
$masiv_data_file=stat($file_hist);   ////передаем в массив свойство файла
$m_size_file=$masiv_data_file[7];    ////получаем размер файла
$m_mtime_file=$masiv_data_file[9];   ////получаем дату модификации файла
////создаем запрос на получение последней удачной загрузки
////выбираем по штампу времени создания (редактирования) файла загрузки AA_hist.csv, $m_mtime_file

/////   echo '<H2><b>Размер файла: '.$m_size_file.'</b></H2><br>';
/////   echo '<H2><b>Штамп времени файла: '.$m_mtime_file.'</b></H2><br>';
/////   echo '<H2><b>Формирование запроса на выборку из лога</b></H2><br>';
////препарируем запрос
$text_zaprosa=$wpdb2->prepare("SELECT * FROM `vin_logs` WHERE `last_mtime_upload` = %s", $m_mtime_file);
$results=$wpdb2->get_results($text_zaprosa);

if ($results)
{   foreach ( $results as $r)
{
////если штамп времени и размер файла совпадают, возврат
if (($r->last_mtime_upload==$m_mtime_file) && ($r->last_size_upload==$m_size_file))
{////echo '<H2><b>Возврат в начало, т.к. найдена запись в логе.</b></H2><br>';
$insert_fail_zapros=$wpdb2->insert('vin_logs', array('time_stamp'=>time(),'last_mtime_upload'=>$m_mtime_file,'last_size_upload'=>$m_size_file,'comment'=>'Загрузка отменена, новых данных нет, т.к. найдена запись в логе.'));
wp_die();
return $failure;
}
}
}
////если данные новые, пишем в лог запись о начале загрузки
/////echo '<H2><b>Попытка вставить запись о начале загрузки в лог таблицу</b></H2><br>';
$insert_fail_zapros=$wpdb2->insert('vin_logs', array('time_stamp'=>time(),'last_mtime_upload'=>0, 'last_size_upload'=>$m_size_file, 'comment'=>'Начало загрузки'));

////очищаем таблицу
$clear_tbl_zap=$wpdb2->prepare("TRUNCATE TABLE %s", 'vin_history');
$clear_tbl_zap_repl=str_replace("'","`",$clear_tbl_zap);
$results=$wpdb2->query($clear_tbl_zap_repl);
/////   echo '<H2><b>Очистка таблицы сервисных книжек</b></H2><br>';
if (empty($results))
{
/////   echo '<H2><b>Ошибка очистки таблицы книжек, завершение.</b></H2><br>';
//// если очистка не удалась, возврат
$failure=TRUE;
wp_die();
return $failure;
}

////загружаем данные
$table='vin_history';         // Имя таблицы для импорта
//$file_hist Имя CSV файла, откуда берется информация     // (путь от корня web-сервера)
$delim=';';          // Разделитель полей в CSV файле
$enclosed='"';      // Кавычки для содержимого полей
$escaped='\

24 Comments

  1. ksvd

    Не понял, публикация в разделе =В центре внимания=, а ни одного комментария.

    Reply
  2. iov

    1000 символов кода и возглас программиста

    лять я в условии ошибся

    Reply
  3. andrewks
    Не спрашивайте зачем это надо, захотелось 🙂

    блин, только захотел спросить, зачем, и прочитал это 🙁

    Reply
  4. нормальный такой

    (1) ksvd, просто кто бы понимал зачем это и что это ))

    ну раз автор говорит — «захотелось»

    против лома не приема))

    можно загадки на собеседовании задавать, мол напишите «preved medved» на брэйфаке

    + будет считаться хоть какая то попытка))

    Reply
  5. tolyan_ekb

    Почему нет комментариев к представленному коду? Это же не есть хорошо.

    Reply
  6. ssn5810

    все может случится в этом МИРЕ

    Reply
  7. serkus

    белиберда….

    Reply
  8. Serj1C

    Хорошо было бы поставить ОбработкуПрервыванияПользователя() для случая бесконечного цикла

    Reply
  9. CagoBHuK

    Плюсик просто за то, что мыслишь нестандартно. http://www.rsdn.ru/article/philosophy/languages.xml — для дальнейшего познания. Еще вот: http://www.xappsoftware.com/wordpress/2011/10/02/brainfuck-for-arduino/

    Reply
  10. Ilyabaykov

    (9) CagoBHuK, Отличные ссылки, спасибо 🙂

    Reply
  11. Ilyabaykov

    (7) serkus, Ну не все-же работать, можно иногда и фигней пострадать.

    Сам язык придумал не я, но как-то наткнулся на его описание скачал интерпретатор и понял что без отладчика не могу и двух строчек написать и вот интерпретатор с возможностью пошагового выполнения перед вами.

    Reply
  12. DmitryKishkin

    Прочитал заголовок статьи — подумал, что это теперь официальное название языка 1С… 😉

    Reply
  13. baton_pk

    <зануда>И за это люди рейтинг получают…</зануда>

    Видал я мастеров брэйнфака, загадочные парни… Даёшь Снегофак с контекстной подсказкой и анализатором кода!

    Reply
  14. AzagTot

    Где язык Brainfuck используется?

    Приведите, пожалуйста, примеры практического применения.

    Reply
  15. Sintson

    Мусье знает толк в извращениях! 😉

    Reply
  16. baton_pk

    (15) Sintson, мусье-то, видимо, только вступил во «взрослую жизнь».

    Толк вот тут: http://habrahabr.ru/search/?q=brainfuck

    (Да простят меня модераторы за ссылку)

    Reply
  17. Ilyabaykov

    (15) Sintson, Brainfuck это цветочки, а вы попробуйте на Malbolge что-нибудь написать 🙂

    Reply
  18. Ilyabaykov

    (14) AzagTot, ну вообще эзотерические языки не предназначены для практического использования.

    Язык brainfuck был вдохновлен языком FALSE, который в свою очередь основан на вполне нормальном языке Forth но спроектирован так, что-бы компилятор занимал не более 1024 байт. Самый маленький компилятор для brainfuck занимает 166 байт. Так-же стоит сказать, что brainfuck при бесконечном количестве ячеек памяти имеет тьюринговскую полноту.

    Reply
  19. Sasha255n

    Да очень любопытная вещь

    Reply
  20. Evil Beaver

    Чем бы дитя ни тешилось, лишь бы доработки типовых не делало на brainfuck

    Reply
  21. adhocprog

    Улыбнуло )

    По-моему, «ничего не делать» полезнее, чем программировать на Brainfuck’е 🙂

    Reply
  22. Ilyabaykov

    (21) adhocprog, лучший отдых — это смена деятельности 🙂

    Reply
  23. adhocprog

    (22) согласен )

    Reply
  24. so-quest

    🙂 осталось только автоматический перевод кода из 1с в брейнфак сделать (а лучше в вайтспейс) — и никаких защит будет не надо 🙂

    открываеь код модуля а там только плюсики 🙂

    Reply

Leave a Comment

Ваш адрес email не будет опубликован. Обязательные поля помечены *