{"prompt":"Пришли ответ на сообщение userMessage от персонажа в данном контексте. Можно использовать смайлики. . Ответ должен учитывать userMessage, inputData и иметь привычний вид ответа нейросети.","userMessage":"У меня есть скрипт, который запускается так:\n\nperl /home/lavan/plarson.ru/bin/bering-service/yandex_turbo.pl --filename /home/lavan/plarson.ru/html/office/626/yandex_feed_all.xml\n\nВот код скрипта:\n\n#!/usr/bin/perl\nuse strict;\nuse warnings;\n\nuse lib '/home/lavan/plarson.ru/lib';\nuse Lib::Db;\nuse DBI;\nuse Date::Format;\nuse Getopt::Long;\n\n# Получаем параметны необходимые для работы\nmy $filename;\nGetOptions(\n  \"filename=s\" => \\$filename,\n) or die();\n\ndie \"Missing parameter <filename>\" unless defined $filename;\n\nmy $current_time = time2str('%Y-%m-%d %H:%M:%S', time);\n\n# Функция для очистки текста\nsub util_escape_xml($) {\n  if (!$_[0]) {\n    return '';\n  }\n\n  $_[0] =~ s/\\n\\r//gs;\n  $_[0] =~ s/<br>/<br\\/>/igs;\n  $_[0] =~ s/&nbsp;/ /gs;\n  $_[0] =~ s/&quot;/\"/gs;\n  $_[0] =~ s/&apos;/'/gs;\n  $_[0] =~ s/&/&amp;/gs;\n  $_[0] =~ s/\"/&quot;/gs;\n  $_[0] =~ s/'/&apos;/gs;\n  $_[0] =~ s/</&lt;/gs;\n  $_[0] =~ s/>/&gt;/gs;\n  $_[0] =~ s/>/&raquo;/gs;\n  $_[0] =~ s/>/&laquo;/gs;\n\n  # trim\n  $_[0] =~ s/^\\s+|\\s+$//g;\n\n  return $_[0];\n}\n\n# Создаем файл\nopen(my $fh, '>', $filename) or die \"Could not open file '$filename' $!\";\n\n# Начанием написание xml файла\nprint($fh qq~<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n    <yml_catalog date=\"$current_time\">\n        <shop>\n            <name>БЕРИНГ-СЕРВИС</name>\n            <url>https://bering-service.ru/</url>\n            <phone><PRESIDIO_ANONYMIZED_PHONE_NUMBER></phone>\n            <categories>\n              <category id=\"1\">Запчасти</category>\n            </categories>\n~\n);\n\n# Подключаемся к БД\nprint(\"Connecting to database...\\n\");\nmy $dbh = \"DBI:mysql:$db_Name:$db_Host:$db_Port\";\n$dbh = DBI->connect($dbh, $db_User, $db_Password);\n\n$dbh->do(\"SET character_set_client = utf8;\");\n$dbh->do(\"SET character_set_results = utf8;\");\n$dbh->do(\"SET character_set_connection = utf8;\");\n$dbh->do(\"SET collation_connection = utf8_general_ci;\");\n\n# Выборка всех товаров\nmy $sql = \"\n    SELECT\n\n      item_uid_id,\n    \titem_chr_link,\n    \titem_chr_name,\n    \titem_set_brand,\n    \titem_chr_article,\n    \titem_set_field1,\n\n      # Картинка\n    \tIF(NULLIF(item_img_image, '') IS NULL, '/i/img/no-image-1200x1200.png', item_img_image) AS item_img_image,\n\n    \t# Стоимость с учетом наценки, тикет 20900\n    \tROUND(IFNULL(item_dec_price1, 0) * ((100 + IFNULL(item_int_discount, 0)) / 100), 2) AS item_dec_price1\n\n    FROM account_item\n\n    WHERE item_cnt_account = 626\n      AND item_hld_holder = 18177 # 2023 Запчасти\n      AND item_mbr_member = 0\n\n      # Показано\n      AND IFNULL(item_enm_active, 'NO') = 'YES'\n\n      # Цена не нулевая\n      AND ROUND(IFNULL(item_dec_price1, 0)) != 0\n    \";\n\nmy $sth = $dbh->prepare($sql);\n$sth->execute();\n\nprint(\"Writing file...\\n\");\n\nprint($fh '<offers>');\n\n# Проходимся по товарам и записываем данные в xml файл\nwhile (my $product = $sth->fetchrow_hashref) {\n\n  # Получаем все данные о товаре\n  $product->{item_img_image} =~ s/office\\/626//;\n  my $link = util_escape_xml($product->{item_chr_link});\n  my $valuta = util_escape_xml($product->{item_set_field1});\n  my $image = util_escape_xml($product->{item_img_image});\n  my $name = util_escape_xml($product->{item_chr_name});\n  my $brand = util_escape_xml($product->{item_set_brand});\n  my $article = util_escape_xml($product->{item_chr_article});\n\n  print($fh qq~<offer id=\"$product->{item_uid_id}\" available=\"true\">\n          <url>https://bering-service.ru/parts/$link.html</url>\n          <price>$product->{item_dec_price1}</price>\n          <currencyId>$valuta</currencyId>\n          <categoryId>1</categoryId>\n          <picture>https://bering-service.ru$image</picture>\n          <name>$name</name>\n          <vendor>$brand</vendor>\n          <vendorCode>$article</vendorCode>\n          <cpa>0</cpa>\n          <description>Запчасть $name</description>\n    ~\n  );\n\n  print($fh '</offer>');\n}\n\n# Завершаем написание xml файла\nprint($fh qq~\n        </offers>\n    </shop>\n</yml_catalog>\n~\n);\n\n# Завершение работы\nclose($fh);\n$dbh->disconnect;\nprint(\"Complete!\\n\");\n\nНо мне нужно сгенерировать второй файл с названием yandex_feed_offers.xml и там должно быть в конце добавлено условие в SQL запрос, что в переменной my $sql:\nAND NULLIF(item_img_image, '') IS NOT NULL\n\nНужно чтобы скрипт остался тот же, нужно каким-то параметром регулировать условие","inputData":{"context":"","language":"en","chatTheme":"dark","nsfw":{"nsfw_mode":false,"nsfw_instruction":""}}}