Форум программистов и сисадминов Киберфорум

Темы раздела Perl

Perl. Курс Пожилого Бойца. 1 Сезон. Эпизод 1. Определение переменных, их типы и области видимости
Пара слов об отличии стиля плавания на весёлых скриптовых языках ( "Perl" - по первой дорожке) от суровых компилируемых ("С" - по второй дорожке). На скриптовых можно прыгнуть и сразу начинать...

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

Скрытые настройки BIOS InsydeH20 v3.7 - perl
Ребята помогите разобраться в ошибке понять в чём проблема На ноуте HP G6 в BIOSе совсем нет никаких настроек, полазил по инету наткнулся на статью и видео: 7SkBFkzOW0A сделал всё до cmd...

Скрипт накрутки просмотров на youtube
Доброго дня всем , мне нужна помощь . Нашел скрипт для накрутки просмотров , но видно он немного устарел , так как жалуется на "Couldn't find the swfArgs string!". Я поискал в сети и вроде как нужно...

anyevent-http timeout
Здравствуйте. В процессе изучения anyevent::http столкнулся с проблемой. Суть её опишу на примере. Есть скрипт, который на вход принимает адрес интернет ресурса (ya.ru, например) далее скрипт...

Как запустить скрипт Perl
Perl не входит в стандартную поставку ОС Windows, но его можно бесплатно скачать с нескольких официальных сайтов фирм-поставщиков программных инструментов, свободно использовать и даже...

не вставляется <script type="text/javascript" src="jquery.js"></script> в pl
что делать не могу понять 3ий день мучаюсь.... ничего не помогает... 1) записал все в блок q~ ~; - это не помогает...

Как изменить размер шрифта в IDE Eclipse?
Все перерыл - нету

Переименование хостов в Zabbix по данным из snmwalk
Здравствуйте! Имеется следующие: Сервер на Centos 6 на нем стоит mysql, apache, zabbix. В zabbixe настроено автообнаружение коммутаторов по модели. Автоабноружение работает, но записывает значение...

Что делает этот код?
#!/bin/env perl -w # use Data::Dumper; open(F, "<hexe2"); open(E, ">7zipped"); while(<F>) { foreach $chars(split / /,$_) { my(@all) = $chars =~ m/({2})+?/gi; foreach my...

создание файла
Запускаю такой вот нехитрый код и увы... он не работает - пишет мне что все успешно создано, а файла нету. Я пробовала прописывать путь E:\crash.m3u, но опять никакого результата=((( что я собственно...

Парсинг HTML HTML::Parser
Хочу предложить перевод статьи Ken MacFarlane. Надеюсь у новичков после прочтения, отпадёт много вопросос по этой теме :). http://www.foo.be/docs/tpj/issues/vol5_1/tpj0501-0003.html Перл часто...

Есть ли смысл изучать Perl?
Если знаешь php, есть смысл изучать Perl и JavaScript?

Получение параметров при отправке их Get и POST методами
есть форма по сабмиту вызывается перловый файл который должен получить параметры из формы. не мог бы кто-нибудь привести пример как это делается для post и get методов?

Нужно написать программу SMPP-клиент, который будет слать смс, проверять их доставку, выводить статистику в файл и т.д.
Всем привет! Есть здесь люди, которые знакомы с модулем Net::SMPP для Perl? Есть пара вопросов по этому модулю... Вообщем нужно написать программу SMPP-клиент, который будет слать смс, проверять их...

Разделить строку, используя split
Прошу помощи в регулярном выражении. Надо его использовать в функции split как разделитель. Задача: отделить по четыре символа из строки в каждую "ячейку" массива. То есть: разбить эту строку:...

Чтение из текстового файла
Начал самостоятельно изучать Perl и возникла одна проблема. Не совсем понимаю, как считывать данные из тестового файла. 1) Например, в первой строке записано три числа. Как их правильно занести по...

Автоматическое удаление файлов из директории PERL
Уважаемые Perl`овики и люди понимающие суть вопроса! Дорабатываю по клиентской части код, но тут появилась задачка по серверной (а она написана на Perl`е). Требуется код, который будет автоматически...

Как экранировать все "плохие" символы?
Есть в скрипте такой участок кода, который с помощью ява-скрипта в textarea выводит статью из базы данных: print "<script>document.form1.article.value = '$article';</script>";это конечно первое что...

Количество вхождений подстроки в строке
Как это реализовать с помощью регулярных выражений? Допустим есть текст: тексттекст текст текст 111111 текст тексттексттекст Я сделал следующее: open INPUT, "< 1.txt" or die "Can't read...

Преобразования символов к нижнему и верхнему регистру
Помагите!! Дан текст преобразовать весь нижний регистр на верхний и наоборот. Буду очень признателен за помощь!:) Что смог написать: $res = "РеГиСтрРрР"; $res =~ s/(w+)/\L$1/g; print $res; ...

Вырезать часть строки между заданными элементами
Здравствуйте! У меня в переменной лежит HTML код. Мне нужно получить текст между <div class="body"> и закрывающим его </div>. Подскажите, как это сделать? Конкретный пример: мне, например, отсюда...

Получение IP-адреса в Perl - не CGI
if ($ENV{'HTTP_X_FORWARDED_FOR'}) # если соединение происходит через прокси { $ip=$ENV{'HTTP_X_FORWARDED_FOR'}; # запишем в переменную ip-адрес клиента } else # если же соединение...

Сборка библиотеки OpenSSL ошибка Can't locate Win32/Console.pm
Простая и избитая тема, наверное уже заезженная раз 100500, но пять теже грабли. Скачал исходники - https://www.openssl.org/source/. Скачал и установил ActivePerl -...

Rак определить полное имя файла в perl?
в функцию передается имя файла, которое может быть полным или относительным. надо получить полное имя этого файла. посмотрел документацию по Перлу, не вижу, как это сделать.

Ручная отправка POST запроса
Помогите, пожалуйста, со скриптом ручной отправки POST запроса ($post) на URL ($url).

Генерация штрих-кода Code 128
Здравствуйте! В скрипте провожу генерацию штрих-кода для квитанций. Использую - Barcode::Code128. Сам штрих-код сохраняется в картинке (img.png). Потом эта картинка встраивается в Excel. ...

Ошиба в апаче Forbidden You don't have permission to access /cgi-bin/ on this server.
Народ помогите,блин, чайнику!((( запарил меня этот апач со своими ошибками! Скачал перл начал ставить в конфиге апача прописал некоторые строчки типа: ScriptAlias /cgi-bin/ 'D:/my web...

LWP proxy ошибка Error: 407 Proxy authentication required
Есть скрипт: #!/usr/bin/perl use LWP::UserAgent; $ua = LWP::UserAgent->new; $ua->agent('Mozilla/9.0'); $ua->proxy('http' => 'http://proxyhost:80');

Многомерный массив в Perl'e
Потребовалось создать многомерный массив в Перл но негде не могу найти достаточно простой и понятной документации по этому поводу Умеет ли вобще Перл многомерные массивы ???

Инициализация многомерного массива Perl
Добрый день! Помогите с инициализацией многомерного массива perl: (пример взят отсюда: http://stackoverflow.com/questions/4667533/quivalent-function-like-print-r) #!/usr/bin/perl use...

Как установить CGI.pm и DBI?
Помогите пожалуйста разрешить мою проблему!!! Нужно работать с БД mysql из perl. На локалхосте стоит денвер. Я понимаю, нужно установить cgi.pm и dbi.pm, а как - я не знаю?

Как вывести данные perl в форму html?
Как вывести данные perl в форму html? Скажем в <INPUT> или в <TEXTAREA>!</TEXTAREA>

Ну работает скрипт: Software error: Can't call method "do" on an undefined value at modules/DBfunctions.pm line 19.
Ну connect у тебя не сработал, значит. Сделай так $dbh = DBI->connect( $dbi, $modules::Settings::c{mysql}{user}, $modules::Settings::c{mysql}{pass} ) || print "Connection error: " . $DBI::errstr ....

Установка Perl в Apache на Ubuntu
Здравствуйте! Я установил lamp через tasksel, потом Perl с помощьюsudo apt-get install perl Что ещё нужно сделать, чтоб я мог запускать Perl-скрипты? Добавлено через 10 часов 9 минут Неужели...

chdir, кто-нибудь этим пользуется?
chdir кто-нибудь пользуется? Очень хочется щагнуть из cgi-bin в www. Каковы перспективы? P.S. По всему нету одни и те же фразы и фрагменты кода ничуть не объясняющие как сменить рабочий...

Надо загрузить только фотографии на сервер формата JPG, GIF или PNG размером меньше 3 метров.
Поставь модуль Image::Magick; вот с его помощью можно делать с графическими файлами всё что угодно. в том числе проверку на "графичность" файла.

Как скачать файл по HTTP?
Есть такой вариант...не уверен, правильно ли? Хотя все работает use LWP::UserAgent; use LWP::Simple; $path = '../1/'; $NameFile = '003.zip'; $host = 'http://localhost/001.zip'; $log = ''; ...

Как проверить установлено ли DBI?
Я использую Perl по Windows, тоесть ActionPerl 5.8 :) Запустил: ppm> Прописал: ppm> install DBI установило, далее: ppm> install DBD опять таки установило. Теперь вопрос :) Хочу проверить как...

Поиск гласных в слове, регулярные выражения
Пытаюсь разобраться с регулярными выражениями и возникла проблема...Надо найти слова, в которых не более 4-х гласных и не менее 2-х, задал условия, но почему-то от 2-х работает, а до 4-х - нет. @a =...

Вакансия Perl программист 1700 $
В компании "GeneGo, Inc" на постоянную работу требуется Perl-программист с опытом работы с базами данных. Компания существует на рынке более 5 лет. Сфера деятельности - производство програмного...

иероглифы в окне dos при запуске скрипта из TotalCommandera
Ребят, пытаюсь научиться Perl'у, только уже на первых порах проблемы! Подскажите как сделать при запуске скрипта из TotalCommandera, русский текст отображался не ероглифами? Мне в totale удобней чем...

Как открыть архив Rar или Zip и работать с файлами архива.
Как открыть архив Rar или Zip и работать с файлами архива. Тоесть не распоковывая её, а сразу в Perle и работать с архивов как с дирикеторией?

Объясните пожалуйста про @INC
Всем привет. Не скажу, что совсем не умею писать на Perl но до недавнего времени обходился файлами с процедурами, которые подключались через "do файл". Но вот дёрнул леший меня решить сделать всё по...

Передать массив в функцию
Здравствуйте, не могу понять как передать массив в функцию ... @playList = create_play_list(`/bin/ls -1 /home/radio/Music/*.mp3`); ... sub create_play_list{ my ($music) = @_; my $tag;...

Что лучше использовать use или require?
Вопрос вот какой. В перле существуют две функции: use и require. Первая выполняется во время компиляции, вторая -- во время выполнения. Не могу понять, каковы же типичные случаи предпочтения одной...

Посоветуйте среду разработки
Здравствуйте! Срочно понадобилось изучить Perl. Посоветуйте, пожалуйста, хорошую среду разработки. Мне сказали, что и в блокноте хорошо писать, но не особо хочется сидеть даже без проверки...

Надо из регистрационной формы по нажатию на кнопку записать данные в файл
Было похожее. У формы добавить атрибут: enctype="multipart/form-data"

Вывести на экран список файлов txt из указанной папки, имеющих максимальное количество строк
Здравствуйте! Кто нибудь может помочь реализовать задачу ? Вывести на экран список файлов (.txt) из указанной папки, имеющих максимальное количество строк. Вот так начала реализовывать: ...

Запуск исходника с github
Ребят, всем здрасте. Хотел обратится с такой просьбой или вопросом, как удобней. Есть вот такая вещь на github https://github.com/gitpan/Statistics-FactorAnalysis но я в Perl очень и очень плохо...

Немедленное закрытие окна MS-DOS
Подскажите пожалуйста, как в Windows XP отключить немедленное закрытие досового окна при запуске файлов с расширением .pl, никак не могу от этого избавится. В одной книжке нашел, что можно прописать...

Ошибка DBD::mysql::st execute failed: MySQL server has gone away at /usr/local/...
на старом серваке все работало, переехал на новый и никак не могу понять, что к чему... пишет такое в STDERR DBD::mysql::st execute failed: MySQL server has gone away at...

Требуется установка Interbase+Perl под WIN32
Господа! Прошу знающего человека помочь решить вышеуказанную проблему. У меня есть сайт, написанный под Oracle(там все через DBI-OracleODBCDriver работает), а оказалось, что его необходимо...

Can't locate Text/Iconv.pm
use Text::Iconv; Can't locate Text/Iconv.pm В чем дело?

Как отдать файл клиенту напрямую?
Есть файл. Для него известно имя и где лежит. Сейчас для того чтобы вернуть файл клиенту он читается в переменную, а потом эта переменная печатается в выходной поток. На это для больших файлов...

Как установить Perl на Linux?
Здравствуйте, собственно сабж. На windows использовал Active Perl. Недавно начал работать с Linux, и понадобилось установить Perl туда, знаю что на машине его нет, при запуске какого либо скрипта...

Отправка файлов на e-mail
надо отправить отчеты на определенное мыло напишите пример отправки плиз

Получить текст страницы, если она запрашивается с помощью POST запроса
Здравствуйте! GET запрос страницы я делал помощью my $html = get('www.my.url'). А как мне получить текст страницы, если она запрашивается с помощью POST запроса? И попутный вопрос: а как...

Как работать с SSL соединением в перле?
Скажите, пожалуйтса, как работать с SSL соединением в перле?

Как в консоле набрать символ конца строки?
Изучаю в Perl работу с массивами и чтобы завершить ввод в массив надо ввести сивол конца файлаО_о.

Передача данных из html формы и добавление(запись) их в имеющийся на хостинге xml файл
Доброго времени суток парни! Хотел спросить у знающих совета, как написать рабочий код на Perl для добавления соответственно узлов с данными в готовый xml файл. Просмотрел много примеров, но...

Создание телефонного справочника
Пытаюсь изучить язык perl. Помогите советом и практически. Вообщем поставил задачу создать справочник. В качестве БД обычный текстовый файл, для простоты там содержатся только фамилия и телефон,...

Синтаксис в модулях Perl
Видел, что модули (packages) в Perl заканчиваются единичкой: package MyPkg; ... 1;

Подключение по SSH
Задался идеей управления роутером по SSH. Установил модуль Net::SSH::Perl, написал такой скрипт: #!/usr/bin/perl use warnings; use strict; use Net::SSH::Perl; my $host = " ip_host"; my $user =...

Проблема с отправкой аттача - архив в полученном письме имеет CRC = 00000000
А проблема в том что иногда, подчеркиваю не постоянно, архив в полученном письме имеет CRC = 00000000, вобщем ноль, что распознается как запорченный архив, и файлы извлеч нельзя :(. Привожу код...

Двумерные массивы - выбор элементов массива
Здравствуйте ! Есть двумерный массив - . В цикле нужно распечатывать содержимое из каждого каталога на соответствующий ему принтер: -из DIR1 распечатать на PRINTER_1, -из DIR2 распечатать на...

сокет-сервер на perl - обмен данными в xml
Приветсвую вас! Господа программеры, помогите плиз! Нужен пример или готовый сокет-сервер на перле для обмена сообщениями в xml между серваком и флешками на стороне клиентов. + если знаете,...

В указанном файле, в заданой строке подсчитать количество заданных символов
Нужно в указанном файле, в заданой строке подсчитать количество заданных символов. Нужна помощь, это моё первое знакомство с Perl. По чуть-чуть ковырял учебник и инет, но что-то туго идет. Вот что...

Является ли число целым
Мне нужно определить, является ли число целым. Например, у меня $c=$a/$b. Как узнать, является ли $c целым ($b<>0)?

Разбить число
Всем привет, в программировании я новичек, Perl только начал изучать, поэтому прошу строго не судить, проблема в следующем: есть пятизначное число введенное пользователем, нужно вывести на экран...

Удалить все знаки «+», за которыми следует цифра
Здравствуйте! Помогите,пожалуйста, с программой. Задание: Удалить все знаки «+», за которыми следует цифра. Программа удаляет ВСЕ "+", а мне надо,чтобы она удаляла только те "+", за которыми идет...

ошибка Method Not Allowed, The requested method POST is not allowed for the URL /form.html.
Установил Apache сервер, ActivePerl-5.8.1.807-MSWin32, а в моей пробной страничке при нажатия на кнопку формы <form method=post action'cgi-bin/testform.pl'> появляется ошибка Method Not Allowed, The...

Формирование soap-запроса через SOAP::WSDL
Прошу помочь решить следующую проблему. Необходимо сформировать SOAP-запрос на веб-сервис. Требуемая структура xml-сообщения следующая: <soap:Body> <GetFNVRData xmlns="http://localhost/"> ...

Как проверить, что строка не пустая?
Когда мы хотим проверить строку , мы пишем : if ($str eq '123') ... А как проверить , что строка непустая ?

Чтение файла и присвоение переменных
Здравствуйте! Присваиваю переменной $content содержимое файла. Файл который присваивается переменной содержит также переменные. Когда выводишь на печать $content, содержимое не изменяется, как будто...

Ошибка "Use of uninitialized value in concatenation (.) or string."
У меня есть процедура sub AnswerCall{ my $connectionID = shift; #берём трубку if (defined $connectionID) { my $pdu = $CSTAapdu->encode({svcRequest=>{ ...

Как запустить perl-скрипт в браузере Windows
Почему не запускается скрипт .pl в браузере на Windows? Но стандартный скрипт printenv.pl, установленный вместе с Apache нормально запускается в браузере. Perl установлен правильно, т.е. если его...

Перевод ip адреса из десятичного вида в нормальный
Здравствуйте. Есть ли такая функция, которая переводит ip-адрес из десятичного вида в нормальный (с точками)? Спасибо!

Debian10+Apache2.4+Perl5.28+XSLT проблема фрагментации памяти
Здравствуйте уважаемые. Есть работающий сервер игры. Обслуживаю его как добровольный кодер. Для меня это практика. Обслуживаю и учусь.Но вот зашел в тупик. Прошу помощи сообщества. Потребовалось...

Создание фильтров в Excel (*.xls)
Можно ли как-то создавать файлы xls и использовать фильтры, к примеру, "автофильтр". В модуле Spreadsheet::WriteExcel ничего такого не нашёл :( .

Уствновка модулей perl
Ребят, добрый вечер! Хочу попросить помощи. Я в этом новичек, и столкнулся вот с какой проблемой: не получается установить нужный модуль perl на VDS. На локальной ubuntu все встало без проблем, а...

Замена одних символов - другими в файле
Помогите плиз, надо в файле заменить одну букву на другую, причем прямо в слове. Пример, в hдltst заменить на haltst. Умляуты вставить в текст нужно. Похоже форум их тоже не отображает. Язык BAT...

Объясните новичку в Perl Оператор =>
Оператор => Прошу не отсылать RTFM Объясните на пальцах, как ребенку. Применение, Области применения, синтаксис. И прочее. Я столкнулся с оператором в хешах состоящих из ссылок на подпрограммы....

Где искать символ "пропуск" в рег. выраж. на клавиатуре ноутбука?
Здравствуйте! Извиняюсь, если пишу не в том разделе, но тема связанна с регулярными выражениями, а значит, думается, и с Перл. Дело вот в чем: Читаю книгу Дж.Фридла "Регулярное выражения", пытаюсь...

Я ненавижу Perl & мне нужно на нём писать
У меня на работе частенько возникают задачи, которые имеет смысл упростить автоматизацией. Так уж получилось, что опции у меня только две: шелл и перл. Т.е. использовать меня их никто не заставляет,...

Русские буквы при выводе на консоль
Стоит vista и active perl 5.10.0 use locale; print "абвгд"; не выводит на консоль того что нужно Как правильно вывести русский текст?

Скачивание архива Mail.ru Агента
Доброго времени суток, форумчане-программисты. У меня есть такой код, функция которого скачивание архива Mail.ru агенте. Но, этот код не доработанный. То есть, скачаивается все подряд. Можно ли...

Как узнать кодировку шрифта?
добрейший вечерочек господа ) на работе есть программа которая шлет смс после того как оператор колцентра примет звонок и добавит инфу в базу.Я решил перевести Zabbix на смски но проблема была в том...

Полный путь к исполняемуму файлу
Здравствуйте. Я новичок в языке Perl. И пока что с трудом осознаю многие вещи. Хочу разобраться в получении полного пути к исполняемому файлу. За подробное описание действий буду очень благодарна.

Ошибки "Use of uninitialized value" в скрипте
Use of uninitialized value at /home/www1/duma/cgi-bin/news.pl line 280. Use of uninitialized value at /home/www1/duma/cgi-bin/news.pl line 283. Апачь сыпет такие ошибки работы скрипта при етом...

Смена кодировки
Необходимо переписать файлы с unix кодировкой в кодировку win 1251. Кто подскажет, как это сделать проще, может у кого есть подобный скрипт на perl? заранее благодарен! ;-)

Подключение внешнего файла
Во многих скриптах использую один и тот же код, например, подключение к определенной БД SQLite. Можно вынести эти строки в отдельный файл и подключать этот файл в скриптах, как это делается к примеру...

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

Как сделать чтобы окно автоматом не закрывалось?
Памагите. Когда запускаю какойнибудь код то оч быстро выскакивает и закрывается. Как сделать чтобы окно автоматом не закрывалось?

Конвертор частот в ноты
Turning a frequency into a note import math def freq_to_note(freq): notes = # formula taken from https://en.wikipedia.org/wiki/Piano_key_frequencies note_number = 12 *...

Установка модулей из CPAN
Опыт в перле у меня практически нулевой. Для установки модулей из CPAN я поставил cpanm как написано тут: http://search.cpan.org/~miyagawa/App-cpanminus-1.7014/lib/App/cpanminus.pm Теперь модули...

создание разветвлений через fork в цикле
Привет. Дан список IP адресов. Нужно чтобы родительский процесс считывал по одному айпишнику из файла и раздавал их дочерним процессам ,которые выполняли бы с ним функцию dig и записывали ответ в...

Можно ли в Perl определить константу (неизменяемую переменную)?
Можно ли в Perl определить константу (неизменяемую переменную)? Что-то типа: const $a = 1;

Запись в файл с кодировкой cp1251
Задача Создать csv файл для дальнейшего импорта в БД Проблема Русские символы в файле абракадаброй (см. Снимок1.JPG), если открыть этот файл текстовым редактором, то кодировка UTF-8 без BOM....

Отправка сообщения по электронной почте
Мне необходимо написать скрипт, который отправляет сообщение по электронной почте в виде текстового сообщения и вложенного в него документа. Я сперва попробывал отправить просто текст -...

Сортировка текста по алфавиту
Добрый день. В Перл новичок, а сам язык вызывает большой интерес. Книги читаем, практики пока мало. Читал главу sort , но так и не разобрался. В общем сам вопрос, как реализовать сортировку по...

Сложность алгоритма, использующего поиск по регулярным выражениям
Необходимо найти вычислительную сложность алгоритма, в котором используется поиск по регулярным выражениям. Алгоритм примерно такой: $str=<> while (str =~ /substr/) # линейный по сложности...

Как установить модуль Perl?
Нужно установить модуль http://search.cpan.org/dist/Spreadsheet-ParseExcel/lib/Spreadsheet/ParseExcel.pm Пытаюсь через консольку - пишет c:\Documents and Settings\is4428\Мои документы\Поиск в 3D...

IO::Socket кто знает?
ОС Виндовс. Не смог найти ни одного рабочего примера. Нужно считать страничку любого сайта в интернете. Если возможно, то исходя из того, что IP сервера не знаю. Добавлено через 17 минут Самый...

Программа на PERL для загрузки и сохранения файла на сервер
помогите, нужна программа на PERL для загрузки и сохранения файла на сервер(фото, текстовые данные). Заранее благодарен.

Замена слова в файле
Здравствуйте уважаемые форумчане! В Perl я новичок и думаю, что моя задача решается в два действия. Есть файл temp.txt в котором необходимо заменить слово wall на wall1. Попробовал самостоятельно...

Ошибка Undefined subroutine &main::timelocal called at /1.pl line 16, <> line 1.
хелло алл! в проге подключил: use gmtime; use localtime; спотыкается на строке: my @a=localtime; my $tt=timelocal($a); пишет:

HTML + CSS + Perl
Всем добрый вечер! Изучаю perl, конкретно для web программирования, нахожусь пока на начальной стадии этого джедайского пути. Для начала поставил себе задачу: соединить обычный статичный сайт...

возможно ли поменять пароль на wi-fi роутера скриптом?
Уважаемые гуру, в perl-е я полный 0, гугл и поиск по сайту не помогли. суть вопроса в теме) Возникла необходимость такое реализовать в локальной сети с роутером tp-link TD-W8960N. Вопрос возник...

Вычислить сумму элементов одномерного массива, лежащих в диапазоне чисел от A до B
Вычислить сумму элементов одномерного массива, лежащих в диапазоне чисел от A до B. Количество элементов массива нужно ввести с клавиатуры, а потом этот массив ,чтобы можно было увидеть. И диапазон...

Что делает оператор ~~
Здравствуйте! Мне в руки попался вот такой кодif $s->{tl_links}{tl_start} and ( $s->{tl_force_show_code} or $s->{remote_addr} ~~ @{ $s->{tl_link #...Что делает оператор ~~? Что-то на него ругается...

Посимвольное рассмотрение строки. Не получается
Доброго времени суток. я хочу написать программу, которая рассматривает строку посимвольно, и если данный символ цифра - то надо написать МАХ, а если буква, то надо написать это букву. В общем-то это...

Работа со строками (конкатенация)
есть 2 или 3 строки. Как их быстро и не нудно сложить? Join не нравтся. Нужно что-то типа s1 && s2 && s3 или s1 + s2 + s3

Записать некоторые данные в Excel таблицу а потом сохранить её в файл
Кто знает как Перлом записать некотрые данные в excel, таблицу а потом сохранитиь ёё в файл? выкладывайте статьи(русскоязычные) или исходники

Проблема DBI и Apache (нету связи с БД)
Люди подскажите, плз, как работоспособную в консоле перлу заставить еще работать и на Web-сервере. Ошибок не выдает, но такое чувство, что не хочет коннектиться через DBI

Сравнение двух массивов
Доброго времени суток всем! Пишу программу, которая выводит заданную строку следующим образом: Вывод строки происходит от A до Z. df a d s e r t * * * 3 звезды в право a *

Как можно прочитать и изменить файл doc или rtf или exel на Perl под Linux
Как можно прочитать и изменить файл doc или rtf или exel на Perl под Linux пробувал искать какето модули не могу найти проблема в следуюцем есть файл например doc нужно найти в нем русское...

Проблема с чтением Excel файлов, русский текст выводит каракулями.
Помогите,pls, кто знает. Проблема состоит в следующем: я читаю из Excel файла русский текст, используя модуль Spreadsheet::ParseExcel,но когда пытаюсь увидеть в HTML результаты работы, то выдает...

Запуск другой программы из perl скрипта
Здравствуйте! Так получилось, что приходиться очень быстро и самостоятельно изучать Perl и возникли некоторые проблемы... мне необходимо запустить некую программу, делаю это с помощъю обратных...

Пропарсить код страницы и заменить ссылки на изображения
День добрый есть задача пропарсить код страницы и заменить ссылки на изображения в странице, собственно делается это для того, чтобы сохранить страницу на диске, перенаправив ссылки на картинки на...

Проблемы с кодировкой текста
Всем добрый день. История такая: Делаю пост на сайт, в ответ приходит json который красиво разбирается и все бы было прекрасное если бы вместо слова "Correct" мне не приходило что-то вида...

Смена кодировки
Добрый день! Столкнулся со следующей проблемой: необходимо у строки сменить кодировку с cp1251 на utf8. Если делаю так: #!/usr/bin/perl -w use Encode qw(encode decode is_utf8); $str =...

Запуск скрипта по расписанию
Люди есть вопрос. Кто может сделать скрипт или что-то в этом роде... Короче мне надо, чтобы на моем сайте без моего ведома запускался скрипт на perl там 4 раза в сутки...Буду очень признателен

как подсчитать строки при выборке из таблицы?
Есть табличка, выборка из которой дает такие вот строчки, два столбца: id Время 1 2006-02-08 14:47:20 3 2006-02-08 15:48:30 17 2006-02-09 12:37:01 159 2006-02-09 08:17:30 229 2006-02-09...

Обработка всех файлов находящихся в папке
Подскажите пожайлуста как организовать обработку большого количества файлов в папке. Необходимо укзать только адрес директории чтобы скрипт сам обработал все файлы находящиеся в папке, независимо от...

$ENV{'HTTP_REFERER'} - нужно узнать, откуда пользователь пришел на страницу
Скрипт счетчика выдает на страцу битовое изображение... Вызывается как SRC элемента IMG... Мне нужно узнать, откуда пользователь пришел на страницу... Можно ли это сделать? ...

Поиск слов в тексте.
Дан текст.Найти все слова, начинающиеся с приставки при-. Перепробывал все, что смог. Помагите!

Русская кодировка
use strict; use WWW::Mechanize; use Text::Iconv; use Convert::Cyrillic; use Lingua:etectCharset; my $path = "E:\\input"; opendir FDIR, $path; my @files = readdir(FDIR);

Запуск внешней программы
Доброго времени суток. exec - запускает но не возвращает управление программе system - запускает возвращает но не дает актуального возвращаемого значения "`STRING`" - возвращает но в нем не...

Что за ошибка: Can't locate loadable object for module ?
Помогите юзеру... на что именно ругается? Can't locate loadable object for module DBD::mysql in @INC (@INC contains: D:/Perl/lib D:/Perl/site/lib .) at D:Webpub_RVCcgi-binaccountingshow.pl line 6...

массив строк файла
open(HANDLE,"<sample.txt")||die($!); @arr = <HANDLE>; print $arr; arr - это массив, а к массиву можно обращаться по индексу. Почему код выше ничего не печатает?

Проверка порта коммутатора d'link на up или down
Помогите пожалуйста с реализацией скрипта на проверку доступности порта для управляемых коммутаторов d'link. Впервые сталкнулся с этой задачей нужно подключится к коммутатору по его ip и проверить...

Кодировка вывода в лог при Log::Any::Adapter
при запуске перл скрипта выводится текст со странной кодировкой. Можно ли как-то определить, что это за формат или сразу сделать его нормальным. Используется логирование use Log::Any::Adapter; ...

Не пойму как работать со структурой
Здравствуйте, многоуважаемые. есть примерно такая структура данных: print Dumper $ci; $VAR1 = { 'a1' => 'stop', 'a2' => 1, 'a3' =>

Perl. Вывод в лог
Помогите пожалуйста. Необходимо выводить в лог 1.log Все что происходит при запуске перловского скрипта, с выводом предупреждений и ошибок.

Не пойму в чем ошибка.
Мне дали задачу: Несколько десятков отправителей пишут письма в Яндекс. Их письма попадают в файл в формате Unix mailbox. Это обычный текстовый файл, длина строк не превышает 1000...

Модуль числа
Здравствуйте! Есть у меня массив @p = ('1e10', '-2', '-1e4', '-1e6'). Нужно вывести числа так, чтобы во-первых, они такими и остались, а во-вторых, если число отрицательно, то вывести положительное....

Хочу изучить perl, с чего начать?
Всем привет. Хочу изучить перл, скачал несколько книг, начал читать, но во всех сразу начинают обьяснять про строки, переменные массивы. Я так и не понял как программы создавать? Как компилировать?...

Убрать символы от начала строки до угловой скобки в середине строки
Здравствуйте, подскажите пожалуйста решение, кажется все просто, но нигде ответа не нашел :( следующей выражением $line =~ s/^.*>//; хочу в строке FACE='Times New Roman'...

Удаление лишних пустых строк и пробелов на конце строки
open(FIL,"azaz.txt"); my @s =<FIL>; close FIL; for ($i=0; $i <= 9; $i++) { if ( length( $s ) > 1 ) { $s =~ s/^\s+//; print "$s"; } }

Поэтапный разбор строки на параметры
Привет всем. Есть строка: IF_CHANGED 0.5 L138200A AV L138300A AS L138400A AW ... Как в цикле присвоить $D1 = L138200A $D2 = L138300A $D3 = L138400A ...? параметры распознаются как m/{5,}/g ...

Вхождение подстроки в строку
Здравствуйте какая функция используется для проверки вхождения подстроки в строку?

Как проверить дату изменения файла на сервере?
Как с помощью perl проверить дату изменения файла на сервере? И вообще, опишите способ коим это все делается

Рекурсивный обход дерева каталогов с изменением вложенных файлов
Нет ли у кого-нибудь желания написать скрипт для решения следующей задачи? https://www.cyberforum.ru/post5127207.html (копирование дерева с изменением файлов). Интерес теоретический: посмотреть, как...

Кодировка ISO-8859 вместо UTF-8
Переношу сайт на Perl с одного сервера на другой и возникла странная проблема с кодировкой. На старом хосте все работает без запинки, на новом сразу возникла проблема с кодировкой, которая успешно...

Просто пример вывода с кириллицей(Win)
Может быть у кого ни будь таковой имеется? Гуглить гуглил а ни одного внятного примера не увидел. Это весьма прискорбно, что у такого языка такие мелкие недостатки...

Есть файл с расширением .pm (модуль перла?), чем его открыть и можно ли в нем менять код?
Собственно приятель спрашивает как открыть этот файл в удобочитаемом виде и отредактировать некоторые строки? Говорит что открывает его, а там нечто похоже на код программы, но без переводов строки,...

thread queue shared variable problem, URGENT.
Hi guys, can anyone help me ? #I try to put in queue my record use threads; use Thread::Queue; use Data::Dumper; my $queue = new Thread::Queue; $msg{'1'} = 'Hello

If($user!~/регул.выражение/) - как объясняется это условие?
Сооздал тему для тупых вопросов! потому как начал изучать перл, и многие вещи мне не понятны. Вопрос1: if($user!~/регул.выражение/) - как объясняется это условие? Вопрос2: my $var - как действует...

Telnet
Не понимаю, почему не работает??? Выдает ошибку: timed out waiting for login... #!/usr/bin/perl -w use Net::Telnet (); $username = 'XXXXX'; $passwd = 'XXXXX'; $t = new Net::Telnet...

Найти в первом файле строки после каждого слова DESC и записать построчно во второй
Подскажите пожайлуста как зделать чтобы скрипт находил в первом файле строки после каждого слова DESC и записывал по строчно во второй файл.?

Ввести данные из файла
Нужно чтобы в программу из текстового файла вводились данные. Содержание текстового файла: Football Sasha Basketball Vanya Sveta ...

Трабл с кодировкой в поле Subject
Сейчас есть такой Perl-овый скриптик (знаю, что здесь раздел php) для рассылки писем, но с ним есть мелкие нерешённые косяки, например проблема с кодировкой в поле Subject - у некоторых получателей...

Сравнение 2х файлов построчно
Сравнение 2х файлов построчно. Как реализовать? Если есть различия в строках, то записать в отдельный файл имена сравниваемых файлов и строки в которых были найдены отличия. Добавлено через 11...

WebSocket + Perl server
Никак не могу отладить, не пойму где косяк в сервере или клиенте вот код страницы <!DOCTYPE HTML> <html> <head> <meta charset="utf-8"> <title>WebSocket</title> <script> //var supported =...

Сравнение даты и числа из файла
Здравствуйте, уважаемые программисты. Я новичок в Perl, просьба не бросать камни и табуретки в мою сторону:) Помогите с решением задачи: Есть текстовый файл, в котором находится 1000 строк формата...

Найти файл и записать его путь в переменную
подскажите пожалуйста, средствами перл найти файл 1.jpeg в папке addfiles и записать весь путь в переменную т.е. файл может находиться в любом подкаталоге папки addfiles

Возврат chdir
Подскажите пожалуйста, если chdir($dir); это переход в каталог по пути. указанному в $dir, то как вернуться в изначальный каталог?

Проблеммы с Term::Menus: Undefined subroutine &main:ick called at E: est stmnu.pl line 7.
Хотел для создания менюхи использовать Term::Menus, однако натолкнулся на непонятные мне грабли. Даже если использовать текст примера из дока: #!c:perlinperl.exe -w require Term::menus; my...

Задачки на понимание Perl (Скользкие места Perl)
Задача на понимание списочных литералов что выведет каждая из строк $num = ('один', 'два', 'три'); say $num; $i=0; $n=(++$i, ++$i, ++$i); say $n; $i=0; $n=($i=1, $i=2, $i=3); say $n; ...

Как работать в Perl с датой и временем?
как работать в Perl с датой и временем которые я получаю из MySql, например: как получить сегодняшнюю дату и найти разницу во времени? Пожалуйста покажите на примерах...

Запуск файла со скриптом из другого файла
Всем привет! Можно ли запустить файл pl со скриптом из другого файла или без system здесь не обойтись? У меня получается пока только так system("perl file.pl"); Добавлено через 3 часа 8 минут...

Сортировка хэш-массива
Здравствуйте. У меня такая проблема. Есть хэш-массив. В нём ключ: пара слов, например А-В. Значение - количество повторений пары. В итоге 'A-B'=>5; Мне нужно отсортировать хэш по значениям в...

Чтение строки из файла
Здравствуйте, моя проблема в следующем. Мне нужно открыть файл Temp.txt, в котором есть много текста. Мне же надо найти в нём следующее: "--version 1.2.3.4" и вычитать версию (тобишь сами числа) в...

Не могу установить DBD::Oracle
Здравствуйте. Есть задача: подключиться к удаленной базе orаcle и стянуть оттуда данные. Что тут делать, фигня вопрос, подумала я. Первый шаг - установить DBD::Oracle... Но оказалось не так все...

Как настроить IIS чтобы работали CGI скрипты?
u menia na servere ustanovlena PERL no eto ne pomagaet. V HTML kod vstavlio sviaz s cgi tak: <!--#exec cgi='/counter/counter.cgi'--> no ne nerabotaet, a kagda etot kod vstavliu v SHTML to...

Есть ли в Perl объекты позволяющие отправлять/получать email-ы?
1. Есть ли в Perl объекты позволяющие отправлять имэйлы? 2. Есть ли в Perl объекты позволяющие получать email? 3. есть ли в Perl аналог редиректа? позволяющий передать управление другой...

Перевод секунд в дату
написал програмку, которая переводит секунды в дату. и столкнулся с проблемой что если секунды больше или около значения 2147483648 выдается "прошлая" дата. 2087-06-19-23-59-59...

Логи, логи и еще раз логи
Кто-нибудь может подкинуть информацию, как записать полный curl response в log? Причем не в /var/log/user.log, а к примеру: /home/user1/logs

Передача данных между Perl и PHP
Всем привет! Стоит такая вот задача: Есть файл test.php и test.pl и из одного, скажем из test.php необходимо передать переменную $a на обработку в test.pl. Кроме того, результат должен отобразиться...

Perl. Получение данных методом POST
Привет. Помогите пожалуйста. Не могу понять в чем проблема Я создал два файла: html и pl <!DOCTYPE html> <html> <head> <title> FORMS </title> </head> ...

Скрипт не работает, хотя код выглядит верным
Здравствуйте! Такая ситуация - решил написать скрипт на perl (есть небольшой опыт в php, думал, что будет легче чем с bash), и к моему удивлению скрипт отказался работать в самом начале, почему -...

Проблема с модулем Date::Manip
Добрый день. Возникла проблема со скриптом. Суть её в том, что на одном сервере этот скрипт отрабатывает нормально, а на другом с такой же версией перла и модуля Date::Manip - не работает. Версия...

Как сделать строку в юникоде?
Есть такой участок кода: $a = "фываолдж"; for(my $i=0;$i<8;$i++) { print substr($a,$i,1)." "; }Все просто, выводит через пробел все буквы строки (она будет русской). В заголовке странице...

Как запустить скрипт?
Здравствуйте, заинтересовался перлом) Скачал strawberry perl установил в C:\strawberry Как запустить скрипт Добавлено через 12 минут Все скачал ActivePerl и запускаю дабл кликом)

Перевод строки в маленький регистр
1) есть строка -sql query $s1="...."; в нее мне надо сключить двойные кавычки. внешние должны быть тоже двойными. Каким символом в перл это делается. По аналогии, в .нет двойная кавычка...

обявление двумерного ассоциативного массива и работа с ним
как сделать как написано в subj или посоветуйте доку где про это толково написано

Изменение даты создания файла.
Подскажите плиз, возможно ли поменять дату создания файла, например с сегодняшней на ту которая была неделю назад? Если да, то как это забацать? Заранее благодарен.

Есть ли будущее у Perl?
Доброго времени суток. Я бы хотел узнать, имеет ли Perl будущее. Заранее спасибо за ответ.

video ретранслятор/прокси
Имеется веб сервер на perl который принимает GET запросы и возвращает через редирект 301 ссылку на нужный видео стрим. Но есть проблема что не все плееры (подключаются к серверу только они)...

Изменить порядок букв в слове на обратный
надо в 3 строке найти 4 слово и поменять в нем порядок букв на обратный. я давно уже не программировала на pelr. все забыла .даже не знаю с чего начать, но думаю программа должна быть не очень...

Обработка данных формы
Здравствуйте. Возникает проблема в обработке введенных пользователем данных в форме. В качестве веб-сервера выступает lighttpd + perl + cgi. Perl скрипт вызывается но то что нужно обработать и...

XML в переменной разобрать с помошью XML:Simple
Есть вопрос. Мой скрипт в POST запросе получает XML со списком параметров вида <parameter1>1</parameter1> <parameter2>2</parameter2> <parameter3>3</parameter3> После разборки...

Raku: модуль для работы с Excel / XLSX
достаточно свежий модуль. просто чтоб показать, на что похож язык Raku в конце 2020г Spreadsheet::XLSX ( переводить самому было лень, пропустил через GT, извините, если что ) Модуль...

Поиск по тексту и сопуствующие действия
Помогите пожалуйста с кодом. Нужно, чтобы перловский скрипт находил в текстовом файле 1.txt, если находит в тексте internet, то происходит запуск батника start.bat и ждал его завершения, если...

Интересный ресурс
Что если собрать в одной теме интересные ресурсы perl с возможностью их обсуждения Пишу ресурсы, потому что это могут быть и сайты, и книги или, к примеру, видео. Вообще, на данный момент...

Ошибка с Net::XMPP
Здравствуйте! Пишу клиент к XMPP. Нашел такой код#!/usr/bin/perl use Net::XMPP qw( Client ); use Encode; my $text='HelloWorld'; my $to='abc@jabber.ru'; print qq~ ...

Как можно создать документ с [bold]альбомной[/bold] ориентацией?
Как можно создать документ с альбомной ориентацией?

Как сравнивать 2 текста?
У меня есть 2 текстовых файлов.В етих файлах одиноковые слова, только в одном ети слова начинаютса с большими буквами в другой с маленькими и перед етими словами есть цифры(например Москва -> 8 ,...

anyevent::http и TLS
Здравствуйте. Увы, знаниями английского не блещу, по этому обращаюсь за помощью к сообществу. Может кто-нибудь знает как прикрутить к anyevent::http возможность TLS соединений? В мануале - об...

Как изменить дату создания файла
Как в Perl изменить дату создания файла при этом не модифицируя его содержания?

Неблокирующее чтение с Serial Port Perl
Только начал изучать perl. Требуется написать модуль к проекту. В модуле должны быть реализованы функции start и stop. При запуске модуля вызывается start, который открывает serial port и начинает...

Кодировка в activeperl
Проблема в кодировке кириллицы#! /bin/usr/perl print ("Привет"); $name = <STDIN>; Кодировка стоит UTF-8

Проверить наличие модуля перл из скрипта
use DBI; как проверить есть такой модуль или нет из скрипта установить есть check = 1 нету check = 0

system('cls') иди как очистить экран?
вот такая запара, уже все форумы оббегал и ни один пример не работает :( а этот system('cls') мне рисует квадратики, где я не правильно делаю?

Удаление Текста между скобками
Есть текст. asdasda fdfd <qweqweqwe sdfsdfsdfsd sdfgggg dfgd fdf gfdg >

Sendmail + Русская кодировка = проблема
При отправке сообщений с сервера с помощью Sendmail устанавливаю в скрипте кодировку win-1251 - и сообщения на каких-то компах читаются нормально, а на других приходится вручную менять кодировку. А...

Perl - установка, отладка, запуск
Здравствуйте ! 1. Есть некоторые проблемы с запуском скрипта на perl. ---------------------------------------------------------------------- Я установил среду Strawberry Perl. Для работы с...

Чтение построчно stdin, преобразование строки и запись в stdout
Хотелось бы задать стилистический по сути вопрос. Пусть есть функция - скажем, process - преобразующая строку в строку. Мы хотим написать скрипт my-script.pl, который по умолчанию читал бы...

Очистка экрана в консоли Windows
Здравствуйте! Не могу найти рабочий пример кода, который позволяет очистить экран. Прошу помочь ссылкой или хорошим примером)

Как установить ttl для socket ?
Создается сокет так socket( my $target, PF_INET, SOCK_DGRAM, getprotobyname('udp')) or die( "Error opening udp socket: $!"); Как увеличить ttl ? По умолчанию он равен 1 Вдруг это важно, OS...

не запускаеться (CGI вместе с MySQL) под Apache: Premature end of script headers: c:/www/cgi-bin/catalog.cgi
такая трабла: вот что пишет Apache в Log: Premature end of script headers: c:/www/cgi-bin/catalog.cgi main::ltimestr() called too early to check prototype at c:/www/cgi-bin/catalog.cgi line...

Авторизация и сессии. Помогите подправить код. Что бы авторизация проводилась один раз.
Помогите подправить код. Что бы авторизация проводилась один раз, записывалась в сессию каждый раз при переходи от одного линка к другому не спрашивалась. sub show_student_login { print...

GET и POST запросы - вставка в запрос определенных значений
Я чайник в perle, но стоит задача создать кнопку которая бы передавала параметры POAS или GET запросу У меня есть кнопка которая имеет следующий вид: <form...

Удаление строк регулярным выражением
Привет всем. Вначале записываю в файл такую структуру: #!perl use strict; if (!open FILE, ">>", "../FILE") { die "Error opening file: $!";

Как выполнить JavaScript в perl
Добрый день. Есть железки с управлением через веб-интерфейс. Нужно авторизоваться на железке принять/отправить данные. Проблема в том что html страницы имеют вставки на JavaScript. В том числе...

Количество дней в месяце
Вывести количество дней в текущем месяце можно так: perl -MTime::Piece -E '$t=localtime;say $t->month_last_day' А как то же сделать для всех месяцев разом? В смысле для текущего года? Интересует...

Как узнать размер файла во время загрузки
Скрипт загрузки написанный на CGI.pm сначала создает временный файл, а потом уже осуществляет запись в тот, который я укажу в скрипте. Можно ли узнать размер этого временного файла во время загрузки...

Запустить perl-скрипт из perl-скрипта
Доброго времени суток! Есть главный скрипт и ещё один. Последний нужно запустить из главного, передать в него параметры и результаты его работы получить обратно в главный , не выводя на печать. ...

Исчезает окно при запуске программы в Perl
Совсем недавно (а точнее 10 минут назад) я начал работу с Perl, удачно установил язык на свой компьютер и написал первую программу в блокноте (как было сказано в учебнике по Perl), после запуска...

Через форму добавить запись в базу данных
На перле добавить данные в таблицу mysql! Данные берем из формы на странице! работаем с cgi файлом. база подключена, остался интерфейс. Пожалуйста, помогите! Добавлено через 1 час 45 минут Ребят...

Число повторений слова в тексте
Я новичок в Perl, прошу помочь с решением задачи. Требуется подсчитать сколько раз встречается слово например "user" в файле "file.txt" содержимое файла типо "авраподдвыппррп user влп user овлала".

Поиск текста в многострочной текстовой переменной
Я перла не знаю но нужно написать скрипт в котором производится поиск в строке $ss='ppp' $result=`netstat -rn` теперь надо узнать содержит ли $result текст $ss. Подскажите плиз как это...

Нужен запрос для вычисления разницы между двумя датами.
Привет всем! Нужен запрос для вычисления разницы между двумя датами. есть поля дата1, дата2 и ОстатокСекунд я представляю себе приблизительно так update Table set...

Минимизация кода 2
Всем привет! Как-то на днях появилась задача посчитать число строк в файлах. Такие задачи всегда хочется решить однострочным, простым, или хитроумным, но обязательно коротким скриптом. В...

Алгоритм Диффи-Хеллмана
необходимо реализовать алгоритм Диффи-Хеллмана на перл

Как преобразовать число 123 в 321?
Здравствуйте. Скажите пожалуйста как преобразовать в PERL число 123 в 321???

Хэш двумерных массивов
Добрый день! Использую Perl 5.18 и пытаюсь добавить двумерные массивы в хэш (тип $hash{$key}=@matrix, где @matrix - двумерный массив, или массив массивов, кому как удобней в выражении). Помогите с...

Perl опять 'мёртв' и в 30-ю годовщину собств. смерти вышел с OO реализацией прям в ядре
Случилось это в июльской версии 5.38. И это небезызвестный проект Corinna. По состоянию на текущ. момент реализация полностью не завершена. Из семи частей готовы три. Classes (done)

Существуют ли готовые анти-мат фильтры, написанные на perl?
Добрый день. Подскажите, существуют ли готовые анти-мат фильтры, написанные на perl, и если да, то где можно их скачать? Заранее спасибо.

Вывод строк файла, содержащих заданную подстроку
Привет всем. Недавно начал изучать perl , из хорошо знающий языков только паскаль. Нужна такая программа чтобы она читала файл и искала в нем строки со словом "the", и выводила именно их. ...

Как создать *.exe файл...
Как создать *.exe файл в ActivePerl 5.12.2 Build 1202.

Ответ сервера
Отсылаю серверу запрос,сервер в ответ присылает какие либо данные.Но клиент после того как я пишу что бы принял данные($qwe=<...>)сразу зависает и всё. Клиент socket(SOCKET,PF_UNIX,SOCK_STREAM,0);...

Нужно поправить скрипт-парсер логов
Доброго времени суток, форумчане. В PERL я не шарю, как и в любом другом языке) Но тем не менее есть задача, которую я без вас никак не смогу решить. Задача заключается в следующем: есть сервис,...

Замер выполнения кода (разница времени между контрольными точками)
нагуглил my $start_time = ; # код my $delta = tv_interval($start_time); print $delta; в результате какое-то безумное число

Запуск скрипта из скрипта?
В общем нужно, чтобы браузер пользователя запрашивая authorization.cgi получал результат другого скрипта в зависимости от введенных данных и проверки условий Если, кто знает подскажите! Где можно...

Сайт на PERL
Доброго времени суток! Тут задался таким интересом научиться писать сайты на языке perl. Но если честно не знаю с чего начинать. Подскажите с чего лучше начинать. Хочу написать свои CMS для тематике...

Как пользоваться строкой как массивом?
Здравствуйте! Заранее прошу прощения за тупой вопрос. Подскажите, как пользоваться строкой как массивом, чтоб можно было получить какой-то определенный символ по номеру?

Выполнение shell в perl
Переставил систему на debian 10, и заметил вот такую странность. Вот минимальный пример print time."\n"; `sleep 3 &`; print time."\n"; В старых системах данных код выполнится стразу. В...

Как при чтении директории отделить файлы от поддиректорий ?
подскажите, плз, как при чтении директории opendir(DIR, './$dir') || die 'Can't open dir $dir : $! '; my @items = readdir( DIR ); closedir(DIR); отделить файлы от поддиректорий ?

Ошибка при выполнении скрипта: "Invalid Base58 Character(s)"
Всех приветствую возникла проблема при выполнении скрипта вылезает Cannot decode! Invalid Base58 Character(s)!.Файл base58.txt 14Gb а кодируется только 1000кб в windows. В linux сразу ошибка. ...

Первое слово состоит из первых букв слов, второе - из вторых, и так далее
Здравствуйте, я новичок. Задание: Исходное предложение, состоящее из четырех слов, каждое из которых состоит из четырех букв, например, "Было утро, рано петь." распечатать в виде: Бурп ытае,...

Установка модуля Tk для Perl
Здравствуйте! Подскажите пожалуйста, как установить модуль Tk для Perl на Windows. Заранее спасибо)

Printf и кириллица
print "1234567890" x 4, "\n"; printf "%40s\n", "rigth output"; printf "%40s\n", "непонятный вывод"; 1234567890123456789012345678901234567890 rigth output ...

Как шестнадцатеричный код перевести в код символа
Подскажите пожалуйста. Есть шестнадцатеричный код как его перевести в код символа: ...

Запуск perl скрипта если локаль POSIX?
Вопрос такой. Есть задача которая реализована перловым скриптом. Если вкратце то скрипт подключается к базе данных Cache, дёргает от туда данные, обрабатывает и записывает результат в другую бд...

Использование @EXPORT и @EXPORT_OK
Всем привет. Допустим у меня будет пакетный модуль "My::Func" с функциями, их естественно нужно экспортировать, но у меня возник вопрос: какие из них помещать в массив @EXPORT, а какие в @EXPORT_OK?...

LWP + https + authorization_basic
Коллеги, целый день парюсь, не могу понять где ошибка. Задача: На закрытом "логином-паролём" ssl-сайте (https) лежит zip. Надо его оттуда вытащить. Что сделал: use LWP::UserAgent; my...

Скрипт для применение конфигурации на свитчах
Не знал, какой раздел выбрать. Надеюсь, не ошибся :) Ребят, пните в нужно сторону. Имеется приличное кол-во (>500) однотипных свитчей. Нужно применить однотипную конфигурацию. Соединение по...

Проблемы с встроенной функцией fetchall_arrayref языка Perl
У меня есть форум на языке Perl, СУБД - MS Access, интерфейс для доступа к базе данных - DBI, DBD::ODBC. Как использовать функцию fetchall_arrayref для получения из базы данных Memo-полей...

Динамическое обновление страницы в mojolicious
Всем привет, Есть вполне понятный простейший пример реализации в Mojolicious::Lite общения между агентом пользователя и веб-сервером по протоколу WebSocket. #!perl =pod ...

Модули для работы с БД под Win
Поставил perl под win. теперь для работы с БД (Оракл) мне нужно поставить модули. Как я я понимаю надо поставить BDI и еще некий модуль... вопрос где их взять? может быть у ког то есть ссылка где...

Как запустить интерпретатор под виндой?
Только начал изучать перл , как запустить интерпретатор под виндой?

ImageMagick
Всем доброго утра\дня\вечера\ночи :) Сразу к делу, ибо достал меня этот PerlMagick :wall: Значит так, скачал с оф. сайта ImageMagick-6.8.7-1-Q16-x86-dll.exe и установил его на Windows 7 64 SP1...

Не получается получить HTML код LWP::useragentом
Здравствуйте,пытаюсь разобраться с LWP::UserAgent но не могу даже элементрано вывести HTML-код в STDOUT! Вот такой код на официальном сайте - ничего на печать не выводит: require...

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

Размер многомерного массива
Завис на простой задаче. Есть массив двумерных массивов, у каждого из которых необходимо узнать ширину и высоту. Разве не так должно быть? my @arr = (); $arr = ( , ); print 'width =...

Установка библиотек из CPAN в Denver (ActivePerl)
Здравствуйте! Объясните, пожалуйста, как устанавливать модули из CPAN в Denver (ActivePerl). Устанавливал через PPM, но там многое очень старых версий. Хочется научиться ставить модули из CPAN, но...

Получение значений дочерних тегов XML
Использую я модуль XML::DOM. Файл XML выгладит след. образом: <?xml version='1.0' standalone='yes'?> <NewDataSet> <users> <login>A.Ilinykh</login> <surname>Ильиных</surname> ...

Нужна консультация по Perl
Нужна консультация по Perl. Цены и контактные данные кидайте в личку. Обращайтесь у кого есть большой опыт в программировании на Perl.

Сравнение папок и файлов на ПК и FTP
Появилась такая задача: Есть фтп, куда выкладывают папки с файлами и есть локальная папка. Нужно посмотреть какие папки и файлы есть удаленно и сравнить с локальными (и папки и файлы ,лежащие в...

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

Запись в файл
Подскажите пожалуйста, как можно из одного файла выделив информацию, передать ее в другой файл.

Perl скрипт (Импорт\экспорт данных из csv)
Задача: Есть csv файл. Нужно его прочитать, и часть данных экспортировать в новый csv файл. Суть в том, что из 10 колонок нужно будет только 4. Но так как это база данных номеров, то не должно...

Выборка из БД MySQL
Здравствуйте ув. форумчане. Только сегодня начал учить перл и сразу возник вопрос. Хочу вывести данные из мускула: #!/usr/bin/perl print "Content-type: text/html; charset=utf-8\n\n"; use DBI;...

Поиск ссылок в HTML
Здравствуйте! У меня в переменной есть строковое представление HTML. Подскажите, какой регуляркой получить все ссылки из этой переменной.

При попытке отправить данные формы открывается страница с сообщением: 'The requested method POST is not allowed for the URL /cgi-bin/script.cgi.'
Имеется форма, начальный тег: <form method=post action='cgi-bin/script.cgi'> При попытке отправить данные формы открывается страница с сообщением: 'The requested method POST is not allowed for the...

не устанавливается CGI:Session и Apache::Session
Проблема под Windows XP Pro SP2, версия Perl: C:>perl -v This is perl, v5.8.4 built for MSWin32-x86-multi-thread (with 3 registered patches, see perl -V for more detail) Copyright...

ошибка Can't locate Switch.pm
при попытке запустить скрипт получаю ошибку Can't locate Switch.pm in @INC (you may need to install the Switch module) (@INC contains: C:/Perl/site/lib C:/Perl/lib .) at c:\Perl\script\scan.pl line...

Преобразование TXT в XLS
Привет всем, собственно сам сабж: есть база такого плана: Морской, ул. Красноармейская, 30 кв.м, среднее состояние, развитая инфраструктура района, 3.250.000 руб. Тел. 8-000-100-10-10. ...

Работа с таблицами
Есть 2 файла. они по отдельности хорошо работают. У меня проблема с переменными. Как эти 2 файла соеденить? Что бы в дальнейшем можно было использовать и $octet и $size. для сравнения файл...

Новая книга: Perl New Features от brian d foy
https://leanpub.com/perl_new_features

Графика в Perl, как создать GIF в Perl.
Помогите создать GIF при помощи перла. И где взять модули?

Надо составить паттерн для нахождения в строке одинарных кавычек, НЕ находящихся внутри английских слов
знаю, как осуществить "заглядывание вперёд", знаю, как "смотреть назад", затруднение в том, чтобы это совместить

Обработка Excel файла с помощью Perl
У меня такая проблема, нужно обработать файл excel'eвский, то есть: считать из файла информацию, сделать выборку и создать новый файл excel'eвский с этой информацией? Как это сделать с обычными...

Перекодировка из utf8 в cp1251
Объясните пожалуйста, почему при попытке перевести строку из кодировки UTF-8 в Windows-1251 получаю пустую строку? say "charset: " . Lingua::DetectCharset::Detect($text); say "text: $text";...

Установка Perl+Denwer
Здравствуйте пытаюсь установить денвер для работы с perl по книжке Прохоренко "Разработка web сайтов с помощью perl и MySQL".столкнулась со следующими пробелeмами: 1)установка модулей DBD-mysql....

Клиент-сервер передачи файла по tcp
Написал такое приложение, ну а если честно стащил) а она не работает, файл не пересылает) Грешу на виртуалку. Запускаю сервер на маке, а клиента на виртуалке арча, причем в арче происходит вывод...

Запуск команды c параметрами из perl
пишу в линухе прогу, и хочу выполнить команду например ifconfig eth0 причем параметр eth0 взависимости от нужд проги меняется на eth1 ну и соответственно сохранять вывод команды к себе в...

Не могу установить Perl: 'программа не умещается в памяти'
Здравствуйте! ----------------- Помогите, плиз, кто чем сможет. Я перекачал Active Perl 626 (windows), распаковал, (он занимает 23,301 Мb), дистрибутив = 6 735 877 Теперь бьюсь над его...

Как найти файлы по дате
Только начинаю разбираться с perl и могу не знать каких-то встроенных функций, поэтому прошу помощи. Необходимо получить массив файлов, созданных в определенную дату. Дату файла планирую получить...

локаль: не работает uc
провожу сортировку массива: @temp2 = sort { uc $a cmp uc $b } @temp; Для английских символов все работает: ... Abs active ADVANCE AExpCalcCounter after

Обработка файла txt - программа полагает, что файл пуст
Привет. Мой скриптик при обработке текстового файла, назовем его ххх.txt, выдаёт пустой файл (0Кб)!! Где у меня ошибка?? Подскажите как написать правильно :( #!c:/perl/bin/perl $in = shift;...

Отправка синхронных запросов GET или Post
Доброе утро/день/вечер :) Меня интересует вопрос. Так как я новенький в программировании на perl, прошу подсказать, как сделать синхронное отправление запроса на perl? В ниже приведенном коде...

Как передать параметры через консоль?
Win Vista, 32bit, Strawberry PERL 5.12.0 Файл cnu.pl (3 строки): use strict; print @ARGV; <>; При вызове: "perl cnu.pl 1 2 3" выдаёт

вызов Perl-скрипта из планировщика "cron"
Здравствуйте, в операционной системе FreeBSD 8.2 вызываю пакетный файл, который кроме прочих операций вызывает скрипт Perl, который: вызывает (внешнюю) консольную утилиту (программу) получает...

Ошибка с XML::RSS::Parser
Здравствуйте! Пишу так:my $url = 'http://www.url.to.rss.xml'; my $p = XML::RSS::Parser->new; my $feed = $p->parse_uri($url); my $feed_title = $feed->query('/channel/title'); Всё работает. Но мне...

Работа с POST
Пробую сделать простую программу: #!/usr/bin/perl use CGI::Carp qw(fatalsToBrowser); use strict; use CGI; my $GetPost = new CGI; print "Content-type: text/html; charset=utf-8\n\n"; use...

Какая альтернатива switch быстрее?
что если требуется множественное ветвление алгоритма причём имеется индекс ветви наподобие индекса массива тогда конструкции типа switch оказываются не самыми эффективными given-when, if-elsif...

Заменить строку в файле htaccess
Доброго времени суток, только начал изучать Perl. Для замены строки использую код. open(PASS,'+< '.$file) || die "Файл не найден!"; while(<PASS>){ if(m/$line_o/i){ ...

Проверка каталога на существования файлов с определенным расширением
добрый день! Подскажите кто знает, как правильно сделать скрипт, который будет проверять наличие файлов с расширением tar.gz в каталоге. opendir FDIR, "C:\\ms\\pgsql"; my $fl="*.tar.gz"; my...

Где скачать старые версии Perl?
Нужны версии Perl до того, как defined стал deprecated. Как я понял, это произошло на версии 5.6.1. Где можно скачать версию Perl ниже этой?

Юникод и преобразование регистра
Написал костыли для lc(), но они не работают: #!/usr/bin/perl -w #Процедура преобразования регистра. Работает на уровне символов, что делает её не зависящей от кодировки.Написана в первую очередь...

Как отсортировать по столбцу, где содержатся данные?
подскажите как отсортировать по столбцу, где содержатся данные след. формата: 02:056.71 02:161.85 01:292.7 foreach $hash (sort ??? keys %hash) { printf '%-10s',$keys; }

Передача данных из апплета CGI-скрипту на сервере не работает под NN.
У меня есть апплет на Java, который вызывает CGI-скрипт на Perl с сервера, и, по идее, апплет должен передавать ему данные, чтобы скрипт сохранил их на сервере. Все прекрасно работает в различных...

Заменить первую и последнюю буквы каждого слова на заглавные
Здравствуйте!Помогите пожалуйста решить задачу. Есть строка, состоящая из букв и цифр, разделенных пробелами. В каждом слове первую и последнюю букву необходимо сделать заглавными.

Perl + MySQL = ошибка DBI connect(dbname=mysql; host=localhost',''...) failed: Couldnt connect to
С перлом беда какая-то, третий день мучаюсь и ничего не получается... хелп!!!. use dbi; $dbh = DBI->connect('DBI:mysqlPP:dbname=mysql; host=localhost','','') or die print 'BUG!'; Он мне...

Счетчик посещений на перл .
Надо сделать нетривиальный сабж . Допустим , имеется сайт с главной страницей index.html . Нужно , чтобы счетчик увеличивался для данного посетителя только один раз , при первом заходе на эту...

Нужно изменить кодировку письма на Cyrillic KOI8-R
Вот скрипт отправки письма. Письмо приходит в кодировке Cyrillic Windows-1251. Нужно изменить его кодировку на Cyrillic KOI8-R. #!/usr/bin/perl # $mailprog Определяет местоположение вашей sendmail...

Надо вырезать из html определенный текст
Подскажите при помощи каких регулярных выражений можно сотворить следующее имеем некий html текст в нем имеется строка: ........<div class=type><b>Relib</b><a name='Relib'>..........->...

Вставить строку в определенном месте в текстовый файл (на Perl)
Допустим есть текст в файле input.txt: блаблаблаба блаблаwww.yyy.com блаблабла бла бла бла блабла www.yyy.com блаблабла бла бла Необходимо получить на выходе тот же файл только с изменениями...

Perl regexp: подстановка значения переменной по шаблону
Добрый день, товарищи. Реализую подстановку значения переменной по шаблону {%param}. Код рабочей программы приводить не буду, приведу примеры: Работает как нужно $aa = "asd"; $bb = "qwe";...

Ну как же победить UTF-8?
Ничего не понимаю. Каждый раз одно и тоже, когда пытаюсь работать с UTF-8. В итоге, результат я конечно получаю, но мне уже надоело тыкаться как слепому котёнку, не понимая какие НА ЭТОТ раз...

Как узнать количество записей, вернувшихся в результате запроса к БД?
Подключаюсь к MSSQL через ODBC, посредством DBI. $sth->rows() возвращает -1. Нужно вернуть из базы дерево, для этого, после извлечения очередного узла, нужно узнать запросом количество потомков,...

проверить есть ли уже в файле строка
while (<ResultSEARCH>) { chomp; if (m/$text/i) { }else {print ResultSEARCH $text} } Мне необходимо проверить есть ли уже в файле строка $text?...

Хэш-массивы - некорректная проверка на существование элемента
Всем доброго времени суток! такая проблема: %hash = ( 'start' => 'a', 'a' => 'b', 'b' => 's', 's' => '' ); print "Введите элемент для удаления:\n";

Как "вырезать" куски текста с других сайтов и отправлять их по e-mail?
Для упрощения понимания вопроса: Нужно например брать котировки валют с какого-нить инет-портала и отсылать их по e-mail с периодичностью в n времени. Подкиньте идеи плз., а то я не могу придумать...

Расчёт расстояния между географическими объектами
Доброго времени суток. Усть географические координаты точек в файле. В цикле они считываются, затем происходит обращение к подпрограмме, где расчитывается расстояние между ними в километрах с...

скрипт perl выполняется в оболочке, но выдает ошибку в браузере
Здравствуйте. Решил немного поучить perl, скачал книгу, сделал по ней хеллоуворлд, который в xampp успешно заработал. Немного поигравшись с переменными, решил подключить базу данных. Опять же, все...

Удаление элементов массива по условию
Есть массив, грепом отбираю в нем строки my $Condition = "DBMSSQL(+)(.*?)$key(.*?)"; my @SelectRow = grep(/$Condition/s, @Buffer); как-то использую @SelectRow, мне нужно что бы из @Buffer...

Получение маски сети
Добрый день (вечер, утро)! самому писать лень, ищу модуль который будет брать айпи адрес вида 10.44.230.0/29 и давать мне айпи маски сети в виде 255.255.255.248 уверен такой имеется. но как...

Формат МАС адреса
Добрый день! Помогите пожалуйста с регулярными выражениями, 1. есть переменная в ней содержится mac в формате 11:22:33:44:55:66 а нужно 1111.2222.3333 2. есть переменная ip и в ней находиться ip...

Считывание пути из файла
Помогите пожалуйста написать команду на языке perl Необходимо создать команду, чтобы из одного определенного файла, например, rel.ism в блоке name, строка содержащая слово mac считывал путь из...

Узнать версию ОС на Perl
Задача ниженаписанного скрипта (дла Apache) состоит в том, чтобы считать версию ОС, обрезать выражение для сравнения с образцами в переменных $wnt, $w98, .... и т.д. и выполнить if, elsif или else. ...

Невозможно соединиться с сервером(модуль Net::XMPP и Net::Jabber)
Добрый день! Пишу jabber бота на perl и столкнулся с такой проблемой -- мой скрипт не коннектится к серверу. Привожу пример кода: #!/usr/bin/perl -w use strict; use Net::Jabber qw(Client);...

Реализация параметров командной строки
Добрый день (утро, вечер, кому как)! Написал программу, которая берет xlsx файл, парсит его, и создает 6 скриптов конфигурационных файлов. все работает, но решил привинтить ключи командной...

Пересылка информации между компьютерами через com-порт
Кто-нибудь работал с com-портами на perl? Я соединил два com порта у компьютера и пытаюсь переслать из одного в другой данные. Текст программы-передатчика: #!/usr/bin/perl -w use strict; my...

Как Perl установить модуль AnyEvent::Fork::Pool?
Всем доброго времени суток. Сори что тревожу, вчера день убил на подключение модуля AnyEvent::Fork::Pool в PERL. Безрезультатно! На моей VDS - Debian 3.2.65-1+deb7u2 x86_64! Хотел потестить скрипт...

Perl + OpenGL Как избавиться от повторного подключения библиотеки OpenGL в модулях
Доброго времени суток! Сегодня решил заняться программированием на языке Perl, используя библиотеку OpenGL :D Возникли вопросы: Есть два файла: 1 - main.pl 2 - point.pm

Скачивание файлов из интернета
Здравствуйте! Подскажите пожайлуста, куда копать, мне нужно загрузить файл с интернета, допустим файл http://ubuntu.ru/media/fcm/issue25-ru.pdf У меня есть 2 варианта, которые не совсем подходят:...

QUIZ
а что, хлопцы, вот такой вопрос: our $var = "A"; { my $var = "O"; print ${var}; } Что увидите на экране, A или O ?

perl-xml-parser коряво собирается
день добрый собираю пакет perl-xml-parser для Linux и столкнулся с такой проблемой, perl-xml-parser устанавливается в домашний каталог (/home/$USER/BUILD/perl/perl/usr) ну и сам хомяк стал только для...

Реализация Upload файла на сервер
Привет всем! Помогите с проблемой, необходимо реализовать закачку файла на сервер. Киньте фрагмент кода HTML с необходимой формой и фрагмент скрипта, принимающий и записывающий файл. Спасибо...

Регулярные выражения
Нужно определить, является ли введенная строка корректной записью числа. Корректная запись: -(может отстутствовать)_цифра_._любое количество цифр_e(или E)_+(или -)_число Например: -6.312e+1...

Удаление элемента массива
А есть ли какая-нибудь стандартная функция удаления элемента массива из серидины?

Ссылки на анонимный хеш
Добрый день, помогите пожалуйста разобраться. Имеются хеши вида: dmz==>p2p3 192.168.66.2 dmz==>p2p3 . . необходимо разбить правую часть на 2 и сделать ссылку на анонимный хеш. Что то вроде...

Как сделать правильно Use of uninitialized value in numeric eq
Добрый день, Товарищи. Подскажите пожалуйста как сделать правильно. Есть сценарий, которые читает файл и выделяет пользователя и квоту. Сценарий: #!/usr/bin/perl -w use strict; use...

Модификатор \u работает только с переменными?
Не могу понять как в регулярном выражении работает модификатор \u Вроде бы он должен приводить следующий символ к верхнему регистру. В документации во всех примерах он ставится перед...

Сортировка массива
Добрый день! Мне нужно сделать сортировку по убыванию, как в php krsort()! Подскажите пожалуйста. Мне нужно сделать с привязкой "параметра", например: $a{1} = 5; $a{2} = "Sergey"; $c{1} = 9;...

Создание XML файла
Всем привет. Помогите пожалуйста разобраться. У меня есть программа (допустим такая): #!perl.exe -w use CGI qw/-no_xhtml :standard/; use locale; print header(-charset=>'cp1251'), ...

Шифрование файлов в Perl
Мне нужно чтобы Perl шифровал некоторые файлы. Облазил Гугл, куча ссылок на всякие встроенные модули шифрования, но все через сертификаты, ключи и прочий геморой. Нет ли где кода попроще? ...

Парсинг текста, содержащего ключевое слово
Здравствуйте! Начал учить perl, соответственно коснулись регекспы и всплыла определенная задача, вот смысл: Имеется кириллический текст неизвеcтной длинны. Я знаю что в этом тексте находится имя...

RegEx: В предложении найти слово, состоящее из наибольшего количества гласных букв
В предложении найти слово, состоящее из наибольшего количества гласных букв.

Перекодировка из win1251 в utf8
Как простым методом (функцией) перекодировать выходные строки в utf8? Нашел как это сделать модификатором: tr/*-xFF//CU, но перл кажется не знает таких /C и /U. Всё это нужно для вывода русских...

Разобрать имя файла
Здравствуйте, помоги пожалуйста, как можно решить следующую задачу: необходимо пробежаться по каталогу,(включая подкаталоги - один уровень) разобрать имя файла содержащее дату, время и ряд других...

где скачать perl
Здраствуйте где можно скачать Perl а то немогу найти ссылки

распараллелить задачу выполняемую perl скриптом
у меня есть скрипт, который читает одну строчку из файла и делает запрос по http.. получает результат, обрабатывает его, помещает результат в 2 других файла скрипт работает хорошо.. но медленно.....

Скрипт для redirect_program squid3. Локальный сервер обновления Касперского
Здравствуйте! Имею сервер для раздачи интернета в организации по средствам Squid3. Есть программа которая по расписанию качает обновления касперского в папку. Хочется чтобы клиентские машины при...

Скрипт для telnet
Доброго времени суток! Я новичок перла и пытаюсь написать скрипт для сохранения вывода результата запроса через telnet. Мне порекомендовали использовать метод cmd вместо print для подобной задачи и...

Perl XML SAX. Кодировки. События.
system Linux/perl 5.8.1 1. Кодировки Приходит письмо(rfc822) с атачем(rfc1521) в котором содержится XML(1.0) документ с кирилицей win1251. <?xml version='1.0' encoding='windows-1251' ?> .......

Perl6
Subj широко шагает по стране. за 4 года с момента 1-го выпуска ( ~ 1500 дней ) ни одного вопроса (здесь) не возникло. ( модераторы, поправьте заголовок, pls, буква L отскочила )

нужна помощь по Socket Perl
Написал скрипт который должен конектится к одному серверу по определённому порту, если не удаётся это сделать, то создаётся новый сокет и он пытается это сделать по другому порту к тому же серверу....

Надо прочитать exel файл в котором гдето 4-7 листов
задача такая надо прочитать exel файл в котором гдето 4-7 листов при помощи запроса GET например: "page=1" выводился первый лист. кодировка виндовая если можно код дайте сразу

Преобразовать первую строчную букву на заглавную
Здравствуйте. Нужно заменить первую строчную букву на заглавную с использованием регулярных выражений. (кириллица) use Encode qw(encode decode); $text="Введите строку текста";...

Изменить символы с нижнего на верхний регистр
Как в файле, используя регулярные выражения, изменить все символы с нижнего на верхний регистр?

Работа с SSH
Требуется с помошью скрипта подключиться к удаленному серверу по SSH и выполнить там комманду. Текст скрипта: #!/usr/bin/perl use Net::SSH::Perl; my $host='XXX.XXX.XXX.XXX'; my $user='root'; my...

Работа с COM портом
Всем доброго дня суток! Решил написать скрипт для опроса устройства через COM-порт. Возникла следующая ситуация. При попытке передать устройству байт с содержимым в шестнадцатеричном виде (0x0D),...

Вызов модуля perl из C++
Наверняка это избитый вопрос, но я пока не нашел ответа через гугл. Как можно (и можно ли) вызвать perl-модуль из прогаммы на C++? Т.е. в perl-скрипте модуль описан через "sub" и принимает...

Парсинг логов Xorg.*.log
Короче,нелегкая вынудила писать мне парсер на perl.Вообщем задача такова,даны файлы логов Xorg.*.log в линуксе. Там в начале указаны идентификаторы (по типу -- ++ == и тд). Часть строк начинается с...

Вывод в файл
Ребят подскажите... Дали задачу которую нужно решить (( Сам новичок, но пытаюсь вникать ))) Дана таблица mts$pays. Выбрать все платежи с суммой больше одного рубля и сохранить в файл полученные...

Вычисление контрольной суммы CRC32
Столкнулся с проблемой... Есть процедурка вычисления crc32. Модули использовать не хочу, есть ограничения. Вынужден был найти исходник сам. Но на x64 побитовый сдвиг работает не так, как на...

Почему это скрипт не пишет данные в файл?
Не шарю в Perl. Скрипт достался по наследству, но не работает. Вернее выполняется без ошибок, но в файл rb.txt не записывает. Подскажите, что с ним не так? open(npcdata, "<", "npcdata.txt") or...

Определение строки-палиндрома
open F, ">2.txt"; $/=\0;$_=<>; for(split/\s|\,|\.|\;|\:|\'|\"|\!|\?/,$_){print F$_,' ' if($_ eq reverse$_)} в общем, я считываю весь файл в строку, спличу в массив, бегу по массиву и смотрю :...

Нужны задачи и лабораторные для самотренировки
Доброго времени суток! Я изучаю perl по книгам Learning perl. Не хватает практики в использовании языка. В этих книгах, конечно, есть задания, но они маленькие. Может кто-нибудь учит его в...

Запись результата работы нескольких команд в переменную
При простой записи системной команды в переменную всё хорошо. Проблемы начинаются, когда системная команда передает результат работы другой команде. my $val = `date | awk '{print $2}'`; print...

Как установить Strawberry Perl из ZIP-архива
Я распаковал все файлы из архива ZIP-архива инсталлятора Strawberry Perl в отдельный каталог. Что с ними делать дальше для завершения инсталляции ?

Как в Denwer установить пакет?
Запускаю c:\WebServers\usr\local\perl\bin\ppm.bat, устанавливаю там XML-RSS-Parser, перезапускаю Денвер, загружаю страницу и получаю ошибку. В логах написано Premature end of script headers:...

perlcc перенос на другую машину
просьба помочь с этой интересной утилиткой perlcc. дело вот в чем написана прога на перле которая делает обработку информации на linux машине , вытаскивает информацию об ip адресах и т.д так вот...

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

Получить путь относительно скрипта
Добрый день! Интересует такой вопрос, как получить адрес пути относительно скрипта. Например, получаю путь: use FindBin FindBin::Bin получаем что-то типо: /var/www/server/cgi-bin/box Но...

Вывести 0, если заданное число четное, или 1, если нечетное
Вывести на экран 0, если заданное число четное, или 1, если оно нечетное.

Проблемма с установкой Perl под Веб сервер для IIS под Windows 2000 Professional
Помогите с установкой Perl под Веб сервер для IIS под Windows 2000 Professional Мои действия 1.Установил ActivePerl-5.6.0.623-MSWin32-x86-multi-thread в директорию c:Perl 2.В IIS прописал...

Запуск внешней програмы с командной строки
Нужно запустить програму с командной строки. Со скрипта работает system("E:\\Programs\\toolbin\\du.exe -s C:\\Perl"); при попытке запустить с командной строки perl...

Массивы/хеши
Всем здравствовать. Есть код: #!/usr/bin/perl -w use strict; use warnings; use XML::Simple; use Data::Dumper qw(Dumper); use utf8; use Scalar::Util qw(reftype);

Рекурсивная сортировка каталогов/файлов, время последней модификации каталога
Я хочу написать скрипт, который рекурсивно пробегает все элементы (каталоги и файлы) открытого каталога DIR (C:/programme/dir). И сортирует их по времени последней модификации. Все элементы, у...

Добавление в конец строки
Есть код как добавить слово в конец файла: #!/usr/local/bin/perl open (MYFILE, '>>data.txt'); print MYFILE "Bob"; close (MYFILE); Итог: Hello, Bob

Как передать CGI проге методом POST данные не из HTML-формы
Пожалуйста не подскажите? Как передать CGI проге методом POST данные не из HTML-формы, а например из программы на моей машине? Понятно что методом GET просто с URL передаются данные, но c POST это...

Простые делители, perl
Простые делители. Задано натуральное число М. Найти и напечатать все его простые делители.

Глобальные переменные
Какие глобальные переменные есть в Perl?

Pw32i316.exe и PIISi316.exe где найти эти файлы?
В руководстве на www.citforum.ru прочитал следующее : '.....Итак, залезаем на http://www.activestate.com/, Perl for Win32, скачиваем Pw32i316.exe (примерно 1,5 Мб; 316 - номер версии, в дальнейшем...

Однострочники Perl в среде powershell
Сразу скажу, надежды на то, что можно будет брать однострочники perl для bash, вставлять их в powershell и получать адекватный результат, не оправдались. Хотя, казалось бы, всё...

Как создать файл в кодировке UTF8?
Пытаюсь создать на сервере файл, чтобы он был Utf8 использую open A, :utf8", "text.txt";

Как заменить одно слово на другое?
Как в текстовом файле необходимо заменить слово с Privet на Poka? Код в самом скрипте перл, на windows

работа с COOKIE
Доброго времени суток! Пишу скрипт для работы с куками: #!/usr/bin/perl $r = $ENV{'QUERY_STRING'}; #Получаем параметры (если они есть) @var = split('&',$r); foreach $itm(@var) {

Сортировка файла с русскими именами
Как отсортировать? потому как обычная сортировка допускает ошибки и сортирует не в точности с алфавитом. а,б,в,г,х,д,е,щ... и т.д.

Шифрование
Есть известный бесплатный движок для гостевых книг-MBook. По некоторым причинам мне нужно узнать алгоритм шифрования пасса.не для взлома, просто попросили восстановить утерянный пасс:) Создатель...

Perl: DBD::Oracle откуда скачать
откуда можно скачать откомпелированный модуль DBD::Oracle через PPM неполучается говорит что нету у него модуля

Сортировка данных с построением списка
Всех приветствую. Ранее на форуме я задавался вопросом о выборке данных из файла. Задача была успешно решена. Теперь в продолжении работы над программой, чтобы не создавать путаницы, решил создать...

Вопрос по поводу функции sleep
Очень нужна помощь в следущей ситуации. К примеру есть такая часть скрипта на перле: ... $|=1; print 'Hellow '; sleep(5); print 'World!'; ... При выполнении этого скрипта...

Получение имени файла при потоковой обработке
while (<>) { #тут можно получить имя тек. файла? } вызываю так: cat ... | perl ... В целом задача такая, вытащить из файлов какие-то данные и нужно имя этого файла. Или проще перлом...

Нужно чтобы сайт работал на mod-perl из корневого каталога
проблема такая есть сервер на нем работают несколько сайтов через виртуальные хосты (эта часть работает на ура) www.server.ru и class.server.ru www.server.ru: сайт написан на perl 5,8,7 + Mysql...

пытаюсь вывести все файлы директории
#!/usr/bin/perl use File::Copy qw(move); $dir_path = "D:\\new_temp\\epgu_result\\tests\\online\\U0001"; opendir(DIR, $dir_path);

Извлечь подстроку в слове после определенного слова
Есть файл в котором много строк: dbdfbdbdfbdfbdffg Nubm version (90967096055) fghgjghmkujkik tghkjkfgbjdfn dfgnfgmnhmuj,j,uyyyttrrr Как в файле 1.txt найти строку с version и вывести в...

замена текста из файла значениями в хеше
помогите пожалуйста! задача-дан файл,в нём содержится текст,пример: xxxxxx \какое-то слово\ xxxxxxxx нужно поменять слова,находящиеся в косых чертах на синонимы,хранящиеся в хеше.

Mail::Sender - не работает отправка
Поставил модуль себе этот, наваял скрипт: use Mail::Sender; $sender = new Mail::Sender {smtp=>'smtp.mail.ru', from =>'$ENV{USERNAME}'}; $sender->MailFile({to =>'my@mail.ru', subject => 'TEST',...

Поиск символа в текстовом файле
Всем доброго времени суток. Пытаюсь отсортировать текстовый файл от мусора. Как искать в файле нужный мне смивол вроде бы разобрался, но вот как забрать три строки за этим символом понять не могу....

Как передавать данные с формы скрипту?
Подскажите плиз ... как передавать данные с формы скрипту например ввод login и password в методах get и post?

Проблемы с кириллицей и модулем Spreadsheet::WriteExcel
У нас не получается вставить символы кириллицы в заголовки страниц и листов книги, вместо них появляется псевдографика. Пробовали в ANSI и UTF, пробовали задавать шрифт: my $map =...

Raku Perl 6. ! Новая ! ( вторая ) мажорная версия языка
Появился релиз второй мажорной версии языка Perl 6 ( 6.d 'Diwali' ) ( предыдущая была 6.c 'Christmas' ) Одновременно появилось и новое имя Raku ( произносится Ра-Ку ), которое можно использовать...

Perl - otrs
Всем доброго вечера! Пытаюсь установить "OTRS" платформу, а для этого нужно поставить перл. Делаю все по этой инструкции "https://itnan.ru/post.php?c=1&p=258129" Мой Перл лежит по адресу...

Как узнать часовой пояс или время на компе пользователя ?
Требуется решение в части определения, какой часовой пояс (+ или - по отношению к Гринвичу, а может и в другом виде) или время на компьютере пользователя?

Открытие и парсинг XML файла
Нужно написать скрипт, который будет открывать файл TSTest.xml и заменять значения в <Major>, <Minor>, <Patch>, <Build>. К примеру 1.7.0.1000, на 2.8.10.1035. Все значения в данном файле каждый раз...

как сделать поддержку кириллицы
Задача - посчитать количество вхождений каждого символа в файл. Символы записаны кириллицей. Есть код: #!/usr/bin/perl use strict; use locale; use utf8; my %letter; my $filename = <STDIN>;...

Perl каталоги, подкаталоги
имею каталог /home/sliv/ в нем куча подгаталогов /home/sliv/a1 -------------->a2 -------------->d3 --------------->4 -------------->sd -------------->asd в каждом подкаталоге n файлов,...

Перебор по ASCII
Сейчас пытаюсь сделать перебор комбинаций символов из таблицы ASCII. То есть перебор выглядит примерно так: ! " # $ % & ... !! !"

Разделить файл на несколько
Признак начала письма -- строка, начинающаяся на слово From , сразу за которым следует 1 пробел, сразу за которым следует e-mail отправителя, сразу за которым следует пробел и какая-то...

Инкремент - заменить шаблон во всех строках
Нужен алгоритм замены чего нибудь вроде "NN", например в текстовом файле на нумерацию (1++) как бы. Желательно контролировать ширину, как бы 01, 02, 03, ... 10, 11, 12 итд., более развёрнуто 001,...

Записать названия файлов в указанной папке в массив
Как записать названия файлов в директории в массив?

Удаление повторяющихся символов в строке
Помогите написать регулярку,которая бы из всех повторяющихся символов оставляла один.Повторяющиеся символы находятся друг за другом.Например из строки abbbcdddeefffffggh мне нужно сделать abcdefgh.

Помогите разобраться с Perl-сриптами
Объясните что они делают. И если можно(для себя) что делают операторы. и вообще для чего предназначены скрипты. #!/usr/bin/perl use File::Copy; $main_dir="C:/"; print $main_dir;...

Perl + SSI = ошибка invalid CGI ref 'http://сервер/cgi-bin/view_bag.pl' in ....
Вопрос такой: Скрипт view_bag.pl без ошибок выполняется в папке /cgi-bin/, при этом атрибуты файла rwxr-xr-x. Но есть файл bag.shtml, находящийся в корневом http://сервер/, и в этом файле есть...

Вывести результат xsl-трансформации на экран
Есть perl-овый скрипт, который выводит результат xsl-трансформации на экран. В xsl'е указан метод вывода: <xsl:output method='html' encoding='windows-1251'/> В получающемся html-коде есть...

Как получить результат запроса к базе?
Итак... скрипт выполняется , никаких сообщений об ошибках... но есть маленькая проблема, я не могу получить результат запроса в переменную.... Кто нибудь подскажите как... use DBI; ...

Деревья в Perl
Доброго времени суток. Познакомился с языком Perl. Оченно понравился. А как в Perl сделать дерево? Не обязательно бинарное. Вообще, чтобы была функция, которая какому хошь узлу сделает сколько...

А есть ли Redirect (аналог АСП) на Perl
в АСП есть редирект. А есть ли подобная штука в перл? если да, то можно код примера?

исчезает массив данних при grep
Привет всем. ест такая программа. #!/usr/bin/perl -w print 'content-type: text/html ';

Добавить в начало строки
Подскажите пожалуйста, как с помощью перл в 1.txt, в котором есть текст добавить слово в начало файла Например в тексе написано: Мир Добавить в начало: Привет Итог: Привет Мир

Не работает связка perl + MySQL
ос: redhat 8.0 Установлены : MySQL-4.0.20-0 perl-5.8.0-55 perl-DBI-1.40-5 perl-DBD-MySQL-2.9004-4 Есть скрипт: #!/usr/bin/perl $mysqluser='root'; # MySQL user name

Ошибка скрипта "Unquoted string "myiplist" may clash with future reserved word"
Пишу скрипт, выдает следующие ошибки: Unquoted string "myiplist" may clash with future reserved word at /tmp/addipblock.pl line 10. Unquoted string "myblacklist" may clash with future reserved...

Все значения отлично печатаются, а значение из hidden field не печатается!
Есть некая страница, у которой есть контролы: text, etc а также есть скрытое поле содержащее некое значение. По сабмиту вызывается другая страница которая должна вытащить значения из контролов и...

Копирование (зеркалирование) FTP-сервера на локальный диск компьютера
Копирование (зеркалирование) FTP-сервера на локальный диск компьютера (в какой-то отдельный каталог на диске). Кто может помочь в решении этой задачи ? Есть FTP-сервер, на котором каждый день...

Очень долго устанавливаются модули
Последнее время установка новых модулей из CPAN стала занимать слишком много времени - буквально целый час (!). ЦП грузит на все 100%. Причём ступор всегда происходит на этом месте: Fetching with...

Какой дистрибутив perl выбрать?
Варианты: ActivePerl Strawberry Perl DWIM Perl

Как удалить все после последнего символа в текстовом файле?
Подскажите пожалуйста как с помощью perl удалить все после последнего символа (.) в текстовом файле? Например, есть файл 1.txt В нем: gkjgklgn.jmnmmm.44444.55555.66666\hyjjkjmh итого должно быть:...

Рекурсивный обход деревьев (perl mysql)
Как это реализовывается при наименьшем колличестве запросов?

Perl template toolkit
Делаю сайт. Индекс сайта начинает с index.pl Содержимое в index.pl #use Template; my $tt2 = Template->new({ INCLUDE_PATH => '/usr/local/www/zones/tmpl', INTERPOLATE => 1, }) ||...

Не устанавливается модуль Mysql
Ставлю модуль Mysql через CPAN, выводит кучу ошибок связанных с dbdimp.c: cpan> install Mysql Reading '/home/user/.cpan/Metadata' Database was generated on Sun, 07 Sep 2014 12:41:01 GMT...

После установки Perl -- Error: Access is Denied.
инсталляцией поставил ActivePerl, локально перловые приложения запускаются но через браузер http://.....page.pl не работает - выдает пустую белую страницу с одной строкой Error: Access is Denied....

Запуск одного скрипта perl из другого
Всем привет, почему то перестала работать конструкция вида: my $name = "test"; our $iparam = $name; do "svgforhtml.cgi"; Скрипт svgforhtml.cgi просто не хочет запускаться. Может кто...

Получение списка вхождений regexp в текст
Есть процедура которая должна из файла вытащить имена функций (файл это код 1С) sub ParsFile() { my ($fileName) = @_; die "Ошибка открытия файла $fileName" unless open my $FH, "<",...

Сканирование файлов в веб-проекте
На апаче у меня запущен виртуальный каталог , физически он прикручен к каталогу '/Apache/MyProjects/'. В нем в подкаталоге /Apache/MyProjects/html/ лежат статические html-ки . Из под апача я...

Perl скрипт для анализа готового файла журнала аудита
добрый день господа! прошу вашей помощи по следующему заданию - хочеться его и самому сделать но до этого с перл никогда дело не имел Разработать Perl скрипт для анализа готового файла журнала...

Сделать выборку записей из таблицы MySQL
Приветствую. Не могу вытащить записи из таблицы mysql. следующий код: #!/usr/bin/perl print 'Content-Type: text/html '; use DBI; my $dbh = DBI->connect('DBI:mysql:dbname:host', 'user',...

Запуск скрипта Perl из скрипта Perl
Доброго времени суток! Подскажите/направьте, как собственно запустить скрипт из скрипта и получить его результат? Поспособствуйте где почитать об этом в доступном понимании или примером. Заранее...

Останавливается while
Всем привет. Досталась админка в наследство. Пытаюсь кое-что улучшить. Код: my $sth = $dbh->prepare("SELECT cidc FROM catalog_chains WHERE pidc=?"); my $rvs = $sth->execute($id) or die...

Perl & Web Service, Perl и обработка исключительных ситуаций
Не подскажите, как в перле работать с веб сервисами? И также еще несколько вопросов: 1) есть ли в перле обработка исключений ? например на jsp я могу сделать так: <%@ page...

Установка с DVD TeXlive Perl-скриптом - установка, которая не происходит
Установка с DVD TeXlive с помощью Perl-скрипта - установка, которая не происходит. Я, - пользователь, пытался установить с DVD (ссылка на ISO-образ: ...

CWD в директорию с пробелами в имени
Привет всем! Хочу немного автоматизировать свою работу. Решил написать скрипт, который коннектится к ftp серверу, проверяет на наличие новых файлов и закачивает последнюю версию файла, если такая...

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

ActivePerl - Out of memory при работе с Oracle - как увеличить лимит памяти
Здравствуйте. При запуске скрипта ActivePerl (WinXP 32) - возникает ошибка "Out of memory" Детальное изучение показало, что потребление памяти резко растет после открытия Oracle базы данных. До...

Можно ли в реальном времени обновлять в окне браузера информацию?
Такая проблема: на WEB-сервере по запросу пользователя скрипт на Perl выдает в окно браузера информацию. Нужно, чтобы эта информация обновлялась раз в нес-ко секунд. Можно ли сделать, чтобы...

Perl IDE под Lnux
Всем доброго времени суток! У меня стоит Ubuntu 10.4 и Padre IDE, но там не возможен Debugging. Какой IDE хто посоветует? Нужен дебаггер и установка тоже желательно попроще, я под линухом только 3...

Что мне может дать знание языка Perl и чем он хорош?
Думаю начать изучать язык Perl. Чем то он мне понравился. Но думаю - стоит или нет? Поэтому решил на форуме спросить у знающих людей. В чем хорош язык Perl и что мне может дать его знание?

Не видит модули
Доброго времени суток, У меня возникла проблема: Допустим, у меня имеется скрипт(взятый с wiki): #!/usr/bin/perl -w use Template; my $tt2 = new Template({

Замена букв в тексте используя регулярные выражения
Здравствуйте! Вопрос такой: нужно привести текст из файла к определенному виду. Например: слово Привет должно выглядеть так: (П|п)(Р|р)(И|и)(В|в)(Е|е)(Т|т). Чтение из файла и запись в файл получилось...

Perl Cgi + Javascript "jquery"...
Помогите пожалуйста разобраться в проблеме... Есть CGI скрипт написанный на перле, задачей которого является генерация странички, на которой должны выполняться Javascript'ы из модуля "jquery.js"....

Существуют ли CMS на Perl
Добрый день. Подскажите есть ли на перле cms на подобии wordpress или Joomla? К примеру человеку нужно блог поднять быстро и без заморочек или это не про перл?

Как скопировать все части строк после "@(#)" и до пробела?
Код ниже копирует все что идет после, до конца строки. Как зделать чтоб копировало до первого пробела? $str = quotemeta "@(#)"; while (<macros>) { chomp; if (/$str(.+)$'/is) { ...

Вопрос по xampp и Perl
в состав xampp входят также и неоходимые инструменты для программирования на Perl! Но я что-то догнать не могу как запускать скрипты на Perl ??

Device::GSM + ZTE MF112 Не работает под Win10
Добрый день. Возникла потребность отправлять SMS через USB-модем с Windows 10 машины Покопался в Инете. Народ советует модуль Device::GSM Написал: use Device::GSM;

регэкспы и кириллица
ActivePerl, Винда. Обрабатываю csv файлик, нужно отфильтровать строки, где в одном из полей может попадаться такое: CD4040* HEF4093* 4000* Чего то не могу регэксп составить, или что.. Это...

Создание подстроки из строки
Вот есть у меня переменная : $MyVar='1234567890'; Как можно сделать : 1. Взять первые 3 символа этой строки 2. Взять последние 3 символа этой строки 3. Взять символы с 4-го по 6-й

Как передать массив из одного cgi скрипта в другой в perl
Здравствуйте. Подскажите, пожалуйста как передать массив из одного cgi скрипта в другой в perl. Если подробно то задача следующая. Первый скрипт соединяется с бд, формирует массив хэшей с...

javascript выполнение в perl
В последнее время в качестве защиты от ботов используется javascript шифрование текстовых данных (т.е. выполняется произвольный javascript и через document.write() выводится на страницу ). Вопрос...

Can't use an … ошибка в консоли при отработке скрипта
Здравствуйте уважаемые! Проблема такова: Есть vlc_script.pl — Поднимает/переподнимает VLC_Online/Offline по ssh, получает список камер из базы, настраивает и отслеживает состояние потоков обоих...

Сравнить две строки
Добрый день, писал скрипт, столкнулся с проблемой. my $tempcon1=$serial->read(1); while ($tempcon1 != 'Login authentication'){ sleep(10); $tempcon1=$serial->read(1); } В консоль выпадает...

[Помогите]Чекер яндекса на баланс о.О
вообщем у меня был скрипт Чека яндекса на баланс на Php и скрипт чека 4гейма на перле) я их пытался соединить,т.к мне надо скрипт чека яндекса на перле... и что же у меня вышло.....

Регулярное выражение. Удаление скриптов.
Приветствую. Изломал себе уже всю голову вдоль и поперек... Не могу воткнуться, как сделать... Задача такая... Пишу парсер... Есть некая HTML страница.... В ней, помимо полезных скриптов, есть...

Установка Perl/Tk под Windows XP SP3
Подскажите пожалуйста кто знает, где взять и как установить Perl/Tk под Windows XP SP3. ActivePerl уже установлен.

Сортировка в Perl
только начал программировать на Perl, буквально недели две назад (изучаем по институтской методичке). задали задание: "дан массив имен и рост студентов. необходимо отсортировать и вывести по убыванию...

Perl6 . Для самых маленьких
Увидел случайно в блоге учительницы математики ЛЕГЕНДА О ШАХМАТНОЙ ДОСКЕ Шахматы - одна из самых древних игр. Она существует уже многие века, и неудивительно, что с нею связаны различные...

Perl Net::SIP запутался
Доброго дня! Сразу скажу, что я не программист, но стоит достаточно простая задача. Необходимо используя Net::SIP зарегистрироваться на SIP сервере и в цикле ожидать звонка. Если пришел вызов, то...

ImageMagick: как получить коэффициент прозрачности пиксела
В perl цвет пикселя можно получить: ($r,$g,$b,$a)=split /,/, $image->Get("pixel"); где четвертой цифрой идет прозрачность. Пытаюсь найти метод позволяющий устанавливать прозрачность отдельного ...

Настройка Debug в Aptana(Eclipse)
Подскажите как настраивается отладчик в IDE Aptana. Или хотябы с помощью чего вы лично отлаживает скрипты Perl?

Где прописывать ЧМОД и как запускать скрипты?
Люди вот я купил книгу по Perl там написано типа теперь нужно написать прогу : #!/usr/bin/perl print 'Hello world! '; И дальше написано что типа необходимо сообщить системе что это исполняемый...

есть ли в regexp аналог Replace( Str_where, Str_what, Str_with) ?
есть переменные $str_where = 'select t.*, rownum from dual t where exists (select * from dual where '1'<>'0') '; $str_what = '(select * from dual where '1'<>'0')'; $str_with =...

Слил с сервака DBI, при выполнении любого скрипта с use DBI выскакивает ошибка
Поставил на localhost apache, mysql, php и perl под win2000 все рулит за исключением связки perl+mysql слил с сервака под линухом DBI (так как по умолчанию в наборе под винды его нету) при...

При установке DBI модуля ошибка: no suitable installation target found for package DBI
Ситуация такая: система windows xp, установлен perl v.5.8.2, скачал dbi модуль, пытаюсь установить командой ppm install DBI.ppd Выдаётся ошибка: no suitable installation target found for package DBI...

не выполняется .cgi
проблема с запуском .cgi вроде бы сделал все как надо, а он не запускается. выдержка из faq хоста: HTML файлы, картинки и PHP скрипты, нужно загружать в директорию public_html а CGI скрипты в...

Изменение адреса в строке браузера
Как сделать так, чтобы: Захожу на www.mysite.com, там выполняется скрипт, он пересылает, допустим, на www.anothersite.com через print, а в адресной строке браузера оставался всё тот же...

Запустить perl скрипт в денвере
Здравствуйте, нужно написать скрипт в perl, нашел пример, но при активации ссылки на скрипт, денвер выдает ошибку и пишет, что не может найти pl файл.

ajax в json не работает, если срабатывает LWP::UserAgent
есть код: use WP::UserAgent; ...

Не читает из реестра MachineGuid
Никак не могу понять, почему это код возвращает: Ошибка: Не удается найти указанный раздел или параметр в реестре., а если я вручную вбиваю в консоль reg query...

Скрипт обработчика логов почтаря
Есть небольшой скриптик на perl, который нашел в инете. Он заводит в БД mysql данные из файла логов /va/log/maillog в удобоваримой форме (т.е показывает в какое время, от кого, куда ушло письмо)....

Удалить все до второго символа
1)Необходимо удалить в файле 1.txt все до второго символа / Т.е. есть путь: D:\1\2 Должно остаться в 1.txt только 2 2) В тексте в конце строки удалить три символа 3) В конце строки добавить...

Считать из файла символы до первой запятой в каждой строке
Нужно считать текст из файла,а именно символы до первой запятой в каждой строке... Например текст в файлеMobile JavaScript Application Development, Adrian Kosmaczewski,"$19.99" Web Performance...

откуда скачать сборник модулей ppm не в архиве
подскажите где можно скачать сборник модулей только не в архиве просто у меня есть маленькая сеть и мне хотелосьбы расположить этот сборник у себя каким образом это можно сделать

Переменные с двумя символами доллара ($$)
Всем привет. Задали лабу, вот задание: Разработать программу просмотра дерева каталогов и формирования отчета, в котором находятся имена файлов, содержащих заданную последовательность символов, а...

Запуск php-скрипта перлом по расписанию
Помогите пожалуйста. Вопрос такой: можно ли перлом запускать php -скрипт по рассписанию?

Отправка json Запроса
Всем привет. Нужно отправить запрос на сайт в формате json Пробую следующим образом. use LWP::UserAgent; use HTTP::Request::Common; my $req = POST 'http://site.com/api/add';

Что мощнее язык программирования Perl или язык программирования PHP
Какой из них лучше

Оптимизация скрипта
Доброго времени суток, уважаемые. Всем известно, что grep'овать можно с файлом, содержащим pattern'ы grep -f pattern_file where_to_search_file но, как показала практика, perl делает эту операцию...

Как мне внутри цикла можно узнать имя файла БЕЗ пути к нему?
Помогите, пожалуйста. Есть такая структурка: foreach (<$somepath/*.ext>) { ... } Подскажите, как мне внутри цикла можно узнать имя файла БЕЗ пути к нему? Спасибо.

Реализация клиента pop3
Здравствуйте! Пытаюсь реализовать клиент pop3, но не могу разобраться с логикой работы программы. А именно, как общаться с сервером и какого сорта ответы он присылает на очередной запрос. Помогите,...

Сортировка и вывод таблиц
Тут выводятся 2 таблицы с местными и иногородними студентами итого 2 таблицы. Трабла такова, необходимо вывести таблицу со студентами на каждый город, и тут же сортировать по имени с конца в начало....

Ищу книгу "Практика применения Perl, PHP, Apache, MySQL для активных Web-сайтов"
Доброго времени суток всем. Ищу книгу "Практика применения Perl, PHP, Apache, MySQL для активных Web-сайтов". Возможно у кого то есть или кто то знает де скачать. Заранее благодарен.

Visual Studio Code не показывает переменные
На рисунке видно, что переменные не отображаются, с чем это может быть связано? Поставлен Perl Debug. Файл "launch.json": { "version": "0.0.2", "configurations": , "stopOnEntry":...

Как создать архив ZIP на PErl?
Може кто подскажет как запихнуть в архив ZIP содержимое папки?

DBI, MySQL - как получить ИМЕНА колонок в том же порядке как при создании таблицы?
Всю голову сломал - не понимаю, как! Если просто имена колонок - пожалуйста, не вопрос. А вот если хочу именно по порядку, так как они перечислены в CREATE TABLE

Интересный вопрос про HTTP_REFERER
Я пишу поисковую машину для своей организации. LWP вытравливает странички с вэба, но вот беда - некоторые сайты не позволяют 'hotlinks' - и я не могу скачать их документы. Вопрос: можно ли...

Catalyst + Ajax загрузка файлов
У меня возникла такая проблема, хочу загужать файл на сервер в фоновом режиме, то есть без перезагрузки. для этого сначала пишу форму. <form enctype="multipart/form-data" method="post"...

Передача значения из цикла из одного потока в другой
В одном цикле крутится перменная $preset. В другом потоке тоже в цикле нужно прочитать её значение. Перемення объявлена с префиксом shared, но в другом потоке её значение не меняется. ...

Какой есть самый быстрый и простой способ обработать данные, поступившие из формы
Какой есть самый быстрый и простой способ обработать данные, поступившие из формы (т.е. получить содержимое нужных полей)?

Как в Notepad++ создавать файлы, чтоб они нормально читались из Perl
Здравствуйте! Наверное, тупой вопрос, но я создаю в Notepa++ новый файл, нажимаю Кодировка/Кодировать в UTF-8, записываю туда нужную ссылку, сохраняю. Когда читаю этот файл с помощью Perl'а, и хочу...

Сравнение слова с образцом
Очень нужна помощь. Могу написать скрипт, который просто сравнивает 2 слова, а с квадратными скобками проблема. Вот задание: Часть образца, заключенная в квадратные скобки показывает, что ...

Чтение почты из PERL - при попытке получить заголовок письма, он возвращается БЕЗ первой строки From
есть такая 'проблема' при использовании 'стандартных' модуле, Mail::POP3Client или Net::POP3 при попытке получить заголовок письма, он (т.е. заголовок) возвращается БЕЗ первой строки From !!! В чем...

Как посчитать количество эементов в списке?
1. Как посчитать количество эементов в списке. 2. Как посчитать количество файлов вкаталоге

Скрипт для базы маков и айпи адресов DHCP сервера
Добрый день, с Перлом столкнулся пару дней назад. Нужно написать скрипт, который делает следующее: 1) Получает 3 переменный извне из (mac, ip, x). 2) В зависимости от значение переменной "x" (0/1)...

Perl и SMTP - проверка авторизации
Доброго времени суток! помогите реализацией функции на стандартных библиотеках Perl На данный момент есть тестовый почтовый сервер Courier Mail Server c открытым портом SMTP (25) + 3 учётных записи....

Парсинг фотографий на чужом сайте и размещение на своем
Здравствуйте! Стоит задача: нужен скрипт, который лезет на какой-нибудь сайт, берет фотографию, обрабатывает и выдает на своем сайте. Объясните через какие модули это делать. Я новичок, учусь, прошу...

Парсинг текста на Perl в Windows
Доброго всем утора. имеется большой набор текстовыъ файлов более 100 мб, необходимо их пропарсить. говорят для эьлшл подходит перл. с чего начать? и как это сделать?хотелось бы в виндовс.

При использовании кода в модуле ошибка при открытии файла
есть такой простенький код, которій отлично работает в скрипте *.pl use Cwd; my $cwd = getcwd(); $cwd = $cwd . "changes.txt"; open(F1, $cwd ) or die $!; close(F1); но при использовании...

Perl воспринимает UTF-8 как Latin-1
Есть примерно такая программа: use utf8; use open qw(:std :utf8); use MyModule; # в нём тоже используются прагмы utf8 и open # читаем некий файл с русскими символами в UTF-8, например так: my...

Програма, поиска простых чисел
Програма, поиска простых чисел не эффективна. Например, она анализирует парные числа больше 2, хотя они не могут быть простыми. Модифицируйте алгоритм поиска. #!/usr/bin/perl -w...

Integer overflow in hexadecimal number at
Есть такой код для вычисления адреса. операции с шестнадцатиричными числами(х64) $addr = hex' 000000004001f950'; $baseaddr = hex '000000000012FAE0'; $prefbaseaddr = hex '0000000140000000'; ...

Perl+ ajax
Доброго времени суток, помогите пожалуйста с проблемой я передаю на скрипт пост запрос, а именно переменную myData, как я у себя проверил, передается то, что нужно var myData =...

Подключение к интернету на perl
Добрый вечер, в папке сетевые подключения windows xp есть подключение, каким модулем и командой можно с помощью perl запускать это подключение? Конечно самое простое это кликнуть по нему без всяких...

Проблема соединения DBI c DB2
установил db2 ентерпрайс и перл 5,8,7 скачал dbd::db2 с ibm сервера но немогу соединится или кроме сервера надо еще чтото устанавливать

Получить имена файлов из папки в windows
Есть папка с файлами, названия которых могут содержать не латинские символы: Нужно получить имена файлов в utf8 строку. Скрипт будет работать в Windows. use utf8; use feature 'say'; $dir...

простой счётчик посещений
Столкнулся я со следующей проблемой: разбираю работу скрипта (да, да, это пример из книжки Ломова, самообразовываюсь): счётик посещений страницы. При этом в процесе работы создаются текстовый...

Почему нету файла perl.exe в каталогах с Перлом?
Здравствуйте! --------------- Помогите, пожалуйста, начинающему Перлисту. Вы знаете, скачал ActivePerl626 (6,7 мб) для WIN'98 c http://aspn.activestate.com, распаковал, но не нашел...

Как отсортировать много мерный массив?
есть массив: @mas=(,,); как его элементы отсортировать по 2 толбцу(причем в этом столбце хранятся целые числа)?

Serialport
Есть программа но на этапе компиляции выдает ошибку. для компиляции использую ActiveState Perl Dev Kit 9.1.1 #!/usr/bin/perl # Подключим нужные модули use LWP::Simple; use Encode qw(from_to...

Используя файл Mail.Log, вывести информацию за указанный диапазон времени
Используя файл Mail.log, вывести информацию за указанный диапазон времени (временной период передается скрипту в качестве параметров командной строки). Пример: perl 1.pl 10:11:39 12:21:45

Найти в предложении слово состоящее из наибольшего количества разных букв
Помогите пожалуйста, я в перл мягко говоря не очень найти в предложении слово состоящее из наибольшего количества разных букв

русский язык и локализация в Mojolicious
Здравствуйте! Возникла такая проблема: начал изучать Mojolicious, сгенерировал код небольшого приложения на Mojolicious::Lite с помощью команды $ mojo generate lite_app и запустил следующим...

Perl на Android, кто пишет и где полноценное FAQ?
есть нужна для себя написать очень нужные приложения изучаю Ruby, нашел много FAQ, фреймворков и jRuby на Android и чтобы в итоге можно получить установочный .apk файл для perl, установил...

Помогите запустить готовый Perl скрипт
Имею следующие бесплатные IDE: Mastak Absolute Perl Perllive Collie Perl Shell Perl Express Open Perl IDE Прочитал статью по ссылке Автор статьи привел скриншот кода с советом набирать его...

Помогите ответить на простейшие вопросы по перл
Дал ответы на эти вопросы, сказали неправильно. Был немного удивлен, хотелось бы узнать в чем ошибся. В задачах необходимо было обосновать ответ. I. Что напечатает программа? my $i = ""; if...

Форма отправки почты с сайта.
Делаю сайт в конструкторе. Мне нужно сделать форму отправки с сайта на мое мыло. Просмотрел много материала на тему создания формы отправки. но с моей полный клин. Очень нужна ваша помощь. Думаю,...

Получение информации о User-ах из Active Directory по LDAP
Привет Всем! Подскажите пожалуйста, как из Perl-а обратиться к Active Directory и получить информацию о User-е. Желательно пример.

Perl SOAP Слабые и сильные стороны.
Интересуют линки на примеры исходников реализации SOAP на базе *nix/perl/apache etc и впечатления от людей реализовавших какиенить проекты на базе данного стандарта.. Интересует в частности...

Вывод сообщения
Была написана простенькая програмка #!/usr/bin/perl use strict; my ($first_dir, $copy_file) = ("C:/study/", "C:/OUT/"); opendir(DIR, $first_dir) or die "Can't open dir $!"; my $file; while...

Парсинг json
Хочу спарсить данные на сайте, они не отображаются в исходнике т.е их выводит на страницу js скрипт. Адрес я нашел /json/cabinet/ перехожу по нему получаю те данные на странице...

Скрипт для извлечения данных
Стоит задача подсчета абонентов на сетевом оборудовании и отображения собранных данных в Zabbix. Командой show vpls mac-table count instance PPPoE-хххх получаем таблицу с количеством абонентов (хххх...

Как отослать HTML с помощю Perl-a, так чтобы когда откроется почта, там была страница HTML-a?
Подскажите как отослать HTML с помощю Perl-a, так чтобы когда откроется почта, там была страница HTML-a.

Сделать запрос к БД MySQL и вывести данные в csv
Простая программа, делает запрос к mysql и выводит в csv файл #!/usr/bin/perl use Text::CSV_XS; use DBI; use Time::Local; my $d_s = 'DBI:mysql:база:localhost'; my $dbh = DBI->connect($d_s,...

Не всегда работает вывод из обратных кавычек (qx). Кто-нибудь сталкивался?
Друзья, подскажите, плиз, кто сталкивался... Уже сутки бьюсь с проблемой: $a1 = `dir`; #претензий нет, работает нормально во всей программе; $a2 = `${soxpath}sox fn.wav -n stat`; #а тут в...

кракозябры UTF-8
Хочу получить "правильные" символы, вот такой короткий код даёт совершенно разное визуальное отображение одних и тех же символов, с одним и тем же цифровым значением, стоит лишь поменять...

скрипт в exe
можно ли perl скрипт оформить в exe? В этом есть польза?

Нужен совет в установке Text-Iconv 1.7 под ActivePerl 5.16
Модуль: Text-Iconv 1.7 Perl: ActivePerl 5.16 (x86) Активное гугленье помогло откопать максимум - готовый для установки модуль, но только под Perl 5.10. Попытка подсунуть его в 5.16 приводит к...

Не установленный модуль Crypt::SSLeay
Такая проблемма. Сначала я установил последнюю версию денвера, потом последнюю версию ActivePerl. Теперь не на всех, а на одном сайте при попытке скрипта залогинится у меня выходит ошибка: LWP...

Perl6. Книги
Готовятся к выпуску/появились книги Андрея нашего Шитова, посвящённые Perl6. https://deeptext.media/migrating-to-perl6 https://deeptext.media/perl6-at-a-glance...

Подсчет суммы чисел входной строки
читает с клавиатуры строку чисел раздельных пробелом и подсчитывает и распечатывает сумму для строки; подсчитывает и распечатывает общую сумму со всех строк

Как в нормальном русском виде отобразить данные с таблицы в Oracle?
Подскажите, плз, как в нормальном русском виде отобразить данные с таблицы в Oracle на русском. Ни в консоли, ни в броузере ниче толком не видно, кроме какой-то бяки-маляки :-))))))

Добавление строки в XML файл
Кто подскажет как через Perl добавить в читаемый файл xml строку с css стилем и вывести новый xml. Пример : Было : <?xml version="1.0" encoding="koi-8"?> <stock> <book> <q> ...

Как работать с вложенным хэшем?
Подскажите плиз, как заполучить второй аргумент например, $trafficClassIn{0}{i.ivanov}=100; $trafficClassIn{0}{p.petrov}=110; $trafficClassIn{1}{a.popov}=117; ...... если я напишу: print...

гуру - нужен совет по запуску файлов *.pl
имеется скрипт с расширением pl, который подхватывает файл прошивки adsl-модема и прошивает модем в автоматическом режиме,что очень удобно и быстро.но одно но: таких модемов нужно прошить около 1000...

Нет проверки на ошибку в скрипте
на странице делаю коннект с БД. use CGI::Carp qw(fatalsToBrowser);# вначале указываю это $dbh=DBI -> connect (''dbi:Oracle:host=xxx.xxx.xxx.xxx; sid=SID; port=###'', $login, $pwd,...

Как указать, что модуль находится не в "\lib", а рядом с основным скриптом?
Пока не изучаю сам язык Perl, просто нужно запустить несколько чужих скриптов (AsmTidy) в Windows x64 1. Скачал и установил ActivePerl. 2. С помощью командной строки и PPM установил необходимые...

Сумма между максимальным и минимальным элементами (через запоминание индексов)
можете помочь с одной задачкой Дано n-количество чисел, найти сумму между максимальным и минимальным элементами ( желательно через запоминание индексов...) включая оба этих числа. Через my и...

Работа с каталогами
Учу Перл. Задание скопировать файлы с одной папки в другую, нужно предвидеть ввод каталогов с екрана или как аргументов командной строки . Я написал такой код (работаю под Виндой): if (!$ARGV) { ...

Проблема с mod_perl
недавно инсталировал mod_perl и попробовал перви тест из документации - rock.pl какда визиваю через web, броузер не находит эту страницу, а в логах апача вот такой еррор: ...

Замена цифр в тексте числительными
ребят , задача такая замена цифр в тексте числительными . допустим чтобы я ввел в окно 5234 и при нажатие кнопки выдал как результат - пять два три четыре. помогите в реализации. ни как не...

как написать регулярное выражение, соответствующее предложению с инициалами?
как написать регулярное выражение, соответствующее предложению с инициалами. т.е. например первое предложение.Здесь жил А.С. Пушкин. Третье предложение. тут три предложения, если просто...

Разделение слов с регулярным выражением
Нужно разделить строку на слова, но если есть кавычки, то воспринимать выражение в кавычках как одно слово

HTTP::CookieJar::LWP непонятная ошибка
Такой простой код. Из разных мест perldoc #!perl use strict; use warnings; use feature ':5.10'; # say use Time::HiRes ('gettimeofday', 'tv_interval'); my $TIME0 = ; use FindBin; # use lib...

Записать данные в существующий XLS-файл
Всем привет! Есть задача выгружать данные из БД в EXCEL. Есть куча модулей работы с экселем, но все они создают новый файл и пишут в него данные.. Есть ли модули, позволяющие использовать...

Отправка данных формы на сервер
Приветствую. Есть у меня веб камера dlink dsc-932l. У неё ф-я отправки e-mail при обнаружении движения - работает, но нет нормального расписания... вот хочу сделать включение-выключение на...

Perl6. Для интересующихся
На Хабре неплохая статья - перевод за 2009 год, правда, но хорошая. ...

Перевод результата в двоичную систему
Дело такое, необходимо получившееся результат перевести в двоичную систему. Пробовал стандартной формулой, не получилось, возможно что-то не так сделал #!/usr/bin/perl -w use CGI ":param"; ...

Где можно взять язык Perl для для написания серверных обработок?
Здравствуйте, господа программисты! ----------------------------------- 1) Подскажите пожалуйста, где можно взять язык Perl для для написания серверных обработок (CGI и т.д.) Если можно, то...

Редактирование таблицы базы данных с сайта
Доброго времени суток, возник вопрос. Имеется база данных mysql, которая прикреплена к сайту и нужно сделать возможность редактирования эту базу данных прямо на сайте. Преподаватель говорил, что это...

Как добавить имя пользователя и пароль при подключении к другой машине?
Подскажите, пожалуйста, как добавить имя пользователя и пароль при подключении к другой машине? Пробовал так, не выходит: my $wmi =...

Существует ли возможность скомпилировать Перл?
Существует ли возможность скомпилировать Перл??????

Какой IDE вы пользуетесь?
Добрый день. Подскажите какую среду разработки вы используете при работе с перлом? Лично я начал сразу кодить в visual studio code, в ней есть дебагер, но он (отладка) глючный мама не горюй. Пробовал...

безопасность и распространенные ошибки
Тут наткнулся на очень интересные тексты: http://werad.narod.ru/articles/programm6.html http://werad.narod.ru/articles/programm9.html Там описываются основные ошибки программистов и вопросы...

сайт на html/perl
Народ, есть где-нибудь готовый сайт с меню желательно? очень нужно рассмотреть принцип записи функций меню. Поделитесь пожалуйста, если кто может

SSI - Есть ли возможность в shtml коде сделать редирект?
т.е. аналог перловского Location:http:// или же в SSI технологии подобного не предусмотрено оператора? Печатью метатега <meta refresh .....> не подходит... пробую вставлять даже вызов...

Как послать мессагу на ICQ
пробовал ICQ.pm неработает

Как сделать так, чтобы переводил буквы в верхний регистр после точки, восклиц.знака,вопросительного знака
Есть код на языке Perl. Переводит буквы в верхний регистр. Как сделать так, чтобы переводил буквы в верхний регистр после точки, восклиц.знака,вопросительного знака? Использовал регулярные...

Копирование массива по ссылке
Народ, извините если туплю, наверняка это есть в доках.. алгоритм строит некий массив и на каждом шаге должен модифицировать копию этого массива как я понимаю @b = @a создаёт копию массива. ...

Не могу заставить работать CGI скриптов на IIS
помогите...

Анимация в консоли
Здравствуйте! У меня появилась проблема. Пока программа работает надо как-нибудь развлечь пользователя. Есть идея насчёт анимации в консоли, типа бегущей строки. Но каким образом сделать, чтобы...

Как передать (не принять!) методом POST данные на другой сервер?
Нужно на перле из скрипта передать данные методом пост, т.е. сделать эмуляцию отправки данных формы на чужой сервер. Как это сделать? Заранее спасибо.

Возможен ли $str =~ /некий-REGEX/ , возвращающий 'совпадения' ?
вопрос: возможен ли $str =~ /некий-REGEX/ , возвращающий 'совпадения' при условии: 1. $str может быть одно- или многострочной строкой 2. первый символ $str должен быть не пробельным 3. имеет...

Обход файловой системы рекурсивно
Добрый день. Задача найти файлы по маске рекурсивно во всех подкаталогах. Нагуглил модуль File::Find, функция find, вроде все шло хорошо когда речь шла о небольших объемах, попробовал запустить на...

Alarm отказывается работать
Всем привет. Уже около двух часов бьюсь с проблемой, перерыл весь инет вдоль и поперек, и все равно не могу понять, что же не так я делаю. И так, ближе к делу: мой скрипт слушает сокет, и читает...

Perl, DBI, MySQL и русский язык, под Windows
Стоит Perl 5.8.4, MySQL 4.0.13, Apache 2.0.50 всё под Windows. Ещё используется HTML::Template. Гоняю тестовый скрипт, который получает данные из таблицы: my $q = 'SELECT * FROM region'; $sth...

Ввести 5 число и напечатать строки из соответствующего количества звездочек
Помогите решить задачу: Напишите программу, которая считывает пять чисел (каждое - между 1 и 30) , вводимых пользователем. Для каждого считанного числа ваша программа должна печатать строку,...

При выполнении скрипта у меня процесорная занятость просто взлетает
У меня FreeBSD скрипт вроде ничего особенного, но при его выпослнении процесорная занятость просто взлетает вначале он работает рпосто клево, а потом тухнет и ползет при этом процесорная занятость...

Вопрос по cgi-bin и исполняемость pl
В директории cgi-bin есть pl файл, который работает с dll библиотекой и который отлично выполняется из командной строки. А вот через http т.е http://localhost/cgi-bin/_.pl он почему не выполняется,...

Скрипт глобальной правки устройств
Добрый день, товарищи программисты. С Perl работаю недавно, есть необходимость использования данного языка в качестве средства автоматизации. #!/usr/bin/perl use Net::Telnet; use Net::Ping; use...

Заменить некоторие строки во всех файлах рекурсивным обходом
нужно заменить некоторие строки во всех файлах с рекурсивным обходом. Сделал вот так, но скрипт обрабатывет только одну директорию внутри, а нужно пройти где-то на 3-4 подкаталога внутри. Подскажите...

Использование модуля Expect для имитации действий пользователя
Нужно из-под пользователя apache (то есть через web-интерфейс) зайти с правами другого пользователя и выполнить несколько команд. То есть имитировать следующее: su my_user password: my_pass ...

Распарсить querystring на перле
На апачевский сервак приходит запрос типа : webpage.html?par1=zzz&par2=134&par3=%$#%hggf Как распарсить par1,par2,par3 ? И еще : с клиентского броузера приходят 3 поля из формы типа : <input...

XML Parser - read error Expat.pm at line 469 - Centos
Добрый день! скрипт gарсит xml с Ironport для дальнейшей передачи данных в zabbix (приложен к сообщению). На вин7 скрипт запускается. При запуске скрипта на CentOS 6.6 x64 и Ubuntu 14.04 x64...

Нужна программа, которая меняет местами первый и последний столбцы матрицы
нужна программа, которая меняет местами первый и последний столбцы матрицы. понятия не имею как в этом синтаксисе матрицу создать. буду рад вашей помощи, заранее благодарен)

Как наиболее просто реализовать проверку расширения файла?
Eсть код, который заносит в массив все файлы в каталоге $path @files = grep {-f '$path/$_'} readdir DIR; Как наиболее просто реализовать проверку расширения файла, необходимо чтобы в массив,...

Что означает строка $start - int $start в условие
Всем добрый вечер. Изучаю perl, в примере наткнулась на строку в условии if ($start - int $start){...}. Объяснения строки $start - int $start - нет, но очень хочется понять что это. Судя по примеру,...

Почему не работает use Module?
Сделал свой модуль, в котором хранятся глобальные переменные и наиболее используемые функции, в общем как это обычно и делается. В скриптах, использующих мой модуль прописывал use Pack; ...

Поисковый скрипт на Perl
Ситуация такая : вот допустим у меня есть сайт . На нем куча статических страниц . Надо придумать перловый скрипт , который бы пробежался бы по этим страницам и отыскал слово или набор строк ,...

Как соединить Perl с IBM WebSphere MQ
Я создал очередь в IBM WebSphere MQ, теперь мне нужно написать скрипт на Perl, где я соединюсь с очередь используя IP адрес и получу количество сообщений в очереди.

Не получается поставить значение Null в параметры объекту Command
Использую ActivePerl и через Win32::OLE, ADO объекты коннекчусь к MS SQL. Не могу поставить значение Null в параметры вышеуказанному объекту Command. Код: $cmd->Parameters($i)->{Value} =...

хеш хешей
Два примера, первый работает, во втором помогите понять причину отказа, ведь только меняю ключ на переменную в цикле: for($i=1;$i<10;$i++){ %hash = ( 1 => {100 => 1, 2 => 20},...

Создание двухмерного массива в perl
Добрый день! Скрипт при работе создаёт одномерный массив @fr. Он точно создаётся правильно! Далее нужно проводить расчёты и создавать двухмерные массивы. Одномерный массив создаётся в цикле по k....

Анонимные хеши, ссылки, вынос мозга
У меня в голове пока не устаканилось все что касается ссылок и их использования, будьте так добры рассказать доходчиво. например анонимный хеш my %hash = ( foo => "Тест" ); print $hash{foo}; ...

Подскажите новичку (запуск через терминал)
Доброй ночи Подскажите пожалуйста, есть скрипт на гитхабе (сип программа для звонков и проигрывания аудиофайлов) - https://gist.github.com/maximevalette/802764 #!/usr/bin/perl use strict; use...

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

Error 500 в тестовом скрипте
вот текст скрипта index.pl #!/usr/bin/perl print "Content-type: text/html\n\n" print "<html>\n" print "</html>\n"

Не могу напечатать в броузер XML документ
Вроде в заголовке пишу Content-type: text/xml но ничего открывается как HTML тоесть мой файл xsl не подтягивает просто не подтягивает как смотрел : просто испортил xsl документ но никаких...

Массивы
Собственно сам сабж, есть два файла к примеру data.txt и phone.txt, файл data.txt такого вида: Адлер, Весёлое, дом сдан, 3/5, 33 кв.м, коммуникации городские, детская площадка, тихое спокойное...

Отправить документ на принтер
Хочу вашего совета по поводу печатания на принтере текста с помощью Perl-а.

Заполнение формы методом POST
Здравствуйте. Мне нужно передать значения форме на сайте. но простая отправка по типу POST($url, ) не работает, так как в этой форме есть скрытое поле с неким кодом. я не знаю как...

Работа с файлами и строками
1. Напишите программу, которая переписывает текст до первого пробела из одного файла в другой. 2.Проверьте, является ли заданная строка шестизначным числом, записанным в десятичной системе счисления...

Скрипт для обработки формы даёт сбой!
Друзья, помогите пожалуйста, с такой ситуацией. Я тестирую взаимодействие формы на веб-странице со скриптом perl (для работы с perl используется пакет ActivePerl 5.6 для WinXP). Для этого я создал...

Сокеты без использования socket.pm
Доброго всем времени суток. Возникла необходимость (по учебе) написать клиент-сервер на perl, но с единственным условием - нельзя использовать ни use Socket, ни use Socket:INET и т.д. После...

Как скрипт определит httpS?
Привет, поставил я на сервак SSL Certificate, только вот как мои скрипты будут проверять, что запрос идет по https протоколы - нигде не могу найти... Никто не подскажет, а?

Проблемы с opendir
Всем привет! Начала учить Perl и вот первая проблемка. Вот код: opendir(DIR, 'D:\\abc') || die "Error: $!\n"; my @files = readdir(DIR) || die "Error: $!\n"; closedir(DIR); print @files;в общем в...

ActionPerl + `pause`
Использую Action Perl (Windows). Хочу вызвать команду pause. Пишу так: `pause`; В итоге ожидание нажатия клавиши есть, но ничего на экран не выводится. Почему так и что делать? Добавлено через...

Как осуществить перекодировку текста из windows-1251 в koi8-r на activeperl в виндах?
добрый день подскажите, пожалуйста, как очуществить перекодировку текста из windows-1251 в koi8-r на activeperl в виндах? желательно, не используя никаких дополнительных модулей. заранее...

use Crypt::Blowfish; Входит ли данный модуль по умолчанию в 5-й перл ?
Входит ли данный модуль по умолчанию в 5-й перл ?

ODBC+mySQL, Изучаю модуль ODBC
Здравствуйте. Возник следующий вопрос. Пытаюсь выполнить простой инсерт в таблицу на mySQL сервере, однако код выдает ошибки (цикл работает): DBD::mysql:smileb do failed: Unknown column...

Истолкуйте как правильно написать условие if
Доброго времени суток форумчане. Есть такой код #!perl use 5.016; use strict; sub greet {

Записать несколько переменных в одну
всем привет, подскажите пожалуйста как на Perl'е в переменную записать ($year+1900,"-",$month+1,"-",$day) пробовал так $file=($year+1900,"-",$month+1,"-",$day); open(my $$fh, '>>',...

Алгоритм работы автоинкремента, применительно к строкам
Помогите понять алгоритм работы автоинкремента в perl, в контексте строк. Приведу пример. Допустим, есть код: $a = "A9"; print ++$a, "\n"; $a = "bz"; print ++$a, "\n"; $a = "Zz"; print ++$a,...

Что я делаю не так или как запустить свою первую прогу на Perl?
Отсюда скачал IDE Perl, так её назову http://www.softportal.com/get-70-activeperl.html А вот отсюда...

IDE Padre - работает у кого-нибудь?
Здравствуйте. Запуск скрипта во внешнем окне не реагирует вообще. Alt+Z (перейти в окно командной строки) нажимаю - слетает сходу, вывод трейс: strace -odump.txt padre Can't call method...

Одновременная запись в файл и редирект
Возникла следующая проблема. Пользователь заполняет форму -> запускается скрипт. В скрипте: 1. выполняется upload файла: @parts = split(/\/,$filename); $file=@parts; open...

Modification of a read-only value attempted
Добрый день всем. Столкнулся вот с такой проблемой Вот такой код #!/usr/bin/perl -w print &doit(""); sub doit { $_ = "" unless $_; # 6-а я строка return $_;

Что такое 'нуль байт' в перл?
Что такое 'нуль байт' в перл? Часто натыкался на термин в хакерских высказываниях.

Дубликаты удалить из файла
Есть файл nicks.txt В нем строки vasya petya vasy pety vova pety vova - ну вообщем такие повторы Как удалить дубликаты имен и записать в тот же файл nicks.txt Нужно решение не для cmd или...

Где есть действительно хорошие электронные книги по Perl?
Кто знает место, где есть действительно хорошие электронные книги по Perl?

Регистрация на сайте: не передает данные
Придумал сайт, но не знаю как сделать регистрацию с одним полем <имя> и входом?

Имитация клавиши Enter
Добрый день Товарищи программисты. Пишу скрипт с модулем Device::SerialPort. Простая программа, которая заливает прошивку/конфиг и выполняет ряд команд. Есть проблема. После перезагрузки...

Как отформатировать вывод второго столбца
При написании простой программы, столкнулся с проблемой, а именно, при выводе длинной строки, не могу понять как отформатировать вывод второго столбца. Текст программы #!/usr/bin/perl foreach...

Отправка почты с использованием переменных в получателях
Добрый вечер! Помогите пожалуйста написать более обширный скрипт на перл для отправки почты с использованием переменных в получателях и тех кто в копии стоит, а также шаблоном письма взятого с...

Выполнение скрипта в указанное время
Здравствуйте! у меня такая проблема, подскажите хотя бы в каком направлении искать) итак, в форме вводится некая информация и какое то время выполнения. вся эта информация заносится в базу данных....

передача в форму кириллических параметров
Добрый день! Пробую залогинится на сайт, кнопка/поле субмит содержит кирилическое значение "Вход". Кодировка используемая сайтом - cp1251. Пожалуйста подскажите как лучше передать кириллицу в...

Как правильно создавать экземпляры классов?
#!C:\starwberry\perl\bin\perl.exe use strict; use warnings; { package MyStack; sub new { my $class = shift;

Наследование переменных в Perl
Доброго всем! Не могу понять как организовать наследование переменных в Perl Допустим, есть три класса и каждый класс - это отдельный файл: Class.pm package Class; our $a = 5; 1;

Как вывести 2 раза содержание файла после __DATA__
Друзья! Я где-то прочёл, что после __DATA__ в конце скрипта идёт что-то типа входного потока. А раз так, что его не вывести-то? Вывел раз, вывел, другой... Но ведь нет же (скрипт называется foo.pl):...

Ошибка "EIF - CR char inside unquoted, not part of EOL" при парсинге CSV созданного под виндой
Доброго времени суток! С Perl'ом работаю впервые, подскажите пожалуйста как избавиться от ошибки "EIF - CR char inside unquoted, not part of EOL" при парсинге CSV файла созданного в винде? ...

Прочитать и записать нужную строку в файл
Подскажите пожалуйста, как в perl. Прочитать из файла вторую строку, кот. находится по пути: 1\2\3\4\1.txt и записать в файл: 2.txt

Raku, как писать однострочники похожие на Perl5
Есть ли возможность писать однострочники на языке программирования Raku, как в Perl5? Пробовал, ли кто данный язык для администрирования? Я начал и продолжаю учить язык программирования Perl5, но...

Вещественные числа
Что исправить, чтобы выводил правильно? $x=sprintf("%.6f", 1774017747.050699); print "$x\n"; #правильный ответ: 1774017747,050699 #выводит: 1774017747,050699 + $y= sprintf("%.16f",...

No missing packages to install
Уважаемые профессионалы, Помогите плиз новичку поставить модули DBI и DBD. Система Win 7 Pro 64-bit, установил ActivePerl 5.20.1 Build 2000 (64-bit). Набираю в cmd ppm install DBI, получаю No...

Деобфускация Perl
Помогите пожалуйста с деобфускацией пёрла 0;$_='5)4c3@0s3k0i8n7{5@4k7v5y6u0...

Генерация и загрузка excel-файла с сервера
Добрый день. С перлом работаю недавно, возникла такая проблема. Необходимо сгенерировать excel-отчёт на сервере и отправить клиенту с предложением открыть/сохранить (в виде соответствующего...

Как perl назовет временный файл?
---------- есть такой код ---------------- #!/usr/bin/perl use CGI qw(:standard); #print header; #получаем и определяем переменные $iname=param('iname'); $id=param('id');

Русские буквы в пути к файлу
Мне нужно открыть файл, по пути к которому есть русские буквы. пишу так: $path=Encode::encode('cp866', Encode::decode('cp1251',$path)); но он все равно не может открыть файл на чтение. Как можно...

Поиск и вывод первого совпадения в строке
Всем привет. Есть строка: "sdgcomp/1.jpg kacomcomp/2.jpg uycomcomp/3.jpg". Как с помощью регулярных выражений можно вывести первое совпадение в этой строке до пробела начиная с comp? Т.е нужно...

Есть ли в Perl'е серверные сессии?
Вот уж не думал что придется программировать на Perl. Вобщем задача такая: Я программирую веб-сайт на Perl под Lunux. Значит на этом чайте есть закрытая зона для юзеров, для которых...

Как из MySQL базы данных вытащить названия индексов?
как в PERL-е из MySQL базы данных вытащить названия индексов?

прошу подсказать
Подскажите, пожалуйста, как реализовать сие на перле r = hex(w + '23004ba1c44a21e07c8104c07041a06499d4ed2a'); Пусть w = TyUefvcbvErTY, т.е., набор букв...

Если в матрице есть хотя бы один элемент, больший ста, то элементы обеих диагоналей заменить нулями
Если в заданной матрице A(N,M) есть хотя бы один элемент, больший ста, то элементы обеих диагоналей замените нулями. Вот начало my @arr1; my @arr2; my @arr3; my @matrix = (\@arr1, \@arr2,...

Сложности с компиляцией и установкой Dbi для Perl под Windows
Всем привет. Может быть кто нить знает решение проблемы. Описание: 1. Ставлю Active Perl 5.6.1. Под него необходимо поставить DBI 1.13 Качаю, компилирую nmake-ом. perl makefile.pl - проходит...

Копирование кода страницы
У меня вот такой вопрос: мне нужно сделать так, чтобы программа при запуске записала исходный код нужной страницы (есть url) в какую-нибудь переменную. Как это сделать? Добавлено через 53 минуты...

Автоматическая замена всех спецсимволов
Объясните неразумной! Создан редактор для введения вопросов в базу данных. И в эти вопросы могут содержать любые спец.символы. И что надо все спец.символы заменять на их код. $var =~ s/>/&gt;/g; ...

Правильная работа с utf8 строками
какой самый рассово-верный способ манипулирования строками в utf8. Я пробовал обойтись use utf8; похоже этого не достаточно. В частности, не могу отбросить регуляркой некоторые символы. Например в...

Отправка электронной почты с вложением
Собственно, суть в следующем: мне нужно сделать так чтобы запустив программу он начал отсылать по одному архиву с именами 1.tar, 2.tar и т.д. по электронной почте. Одно письмо - один архив. Размер...

Как проверять введенные пользователем данные?
При заполнении формы юзер вводит данные. Чтобы сервак не взломали, рекомендуется проверять данные на наличие спец символов. Кто как это делает? Есть советы или рекомендации?

Преобразовать введенную сумму в рублях в сумму в фунтах стерлингов
Задание к лабораторной работе 1. Ознакомьтесь с теоретическим материалом по типам данных Perl и понятию контекста для определения типа данных. 2. После того, как вы поймете, какие типы данных...

Как определить путь к папке Windows?
Друзья! Доброго дня. Пытаюсь записать файлы в папку в Windows! Проблема в том, как определить букву диска или путь к папке? В путь записи файлов подставлял системные переменные %SystemRoot%,%WINDIR%...

Что нужно для работы с xml-файлами на perl?
что нужно для работы с xml-файлами на perl? (под виндоус, на апаче и активперле) от xml нужно: 1. парсить xml + xsl файлы (вероятно, нужен какой-то парсер? или msxml? как использовать?) 2....

Как сделать после запятой 3 цифры именно в момент записи в файл?
Всем привет. Есть такая строчка print F_OUT "Значение силы $f2 .\n"; в файл записывается значение f2. Как сделать после запятой 3 цифры именно в момент записи в файл?

Переделать Excel таблицу в какой-нибудь вэб стандарт
Есть список одной лиги в Exel(!), там около 14000 человек, и о каждом даётся информация в виде столбца 'Имя', 'Фамилия', 'Возраст', т.е. 14000 тыс строк и 3 столбца. Передо мной стоит две задачи: эту...

Тег из mp3 файла
Здравствуйте, делаю скрипт для интернет радио на языке перл, хочу сказать сразу в этом языке не селен. Задача, сделать некий рандом песен, но с условием чтоб не играла одна и таже песня два раза...

Разделить предложение на знаки
Привет всем! Начала изучать Perl и никак не справлюсь с одним заданием. Нужно разложить введённое предложение на составляющие и напечатать их так, что бы каждое слово и знак был на новой строке. ...

Расшифруйте команду пожалуйста!
Здравствуйте! В perl АБСОЛЮТНЫЙ профан, но вот возникла настоятельная надобность: Есть вот такая команда: sudo perl -pi -e...

Perl6: Грамматики. Создание парсера на коленке за 2 минуты (Аниме)
Андрей наш Шитов записал видео, посвящённое Perl6 grammars. Оно на английском, но вполне понятном языке rxaB6m_sQKk

Залогиниться через скрипт на сервер
Собственно, вопрос в теме. Можно как-нибудь это сделать, имея пароль и логин?

Экранирование
Подскажите как можно разделять строки если в ней присутствуют квадратные скобки my ($pid, $name) = split(/"><!

HTML table parsing - посоветуйте скрипт
Проблема: имеется скрипт, коториы получает HTML страницы с таблицами (уровень вложенности - 2). В однои из внутренних таблиц 14 колонок. Скрипт должен определить значение во 2-м поле в строке, в...

Помогите с разработкой небольшого модуля на Perl
12.02.08 00:07 вася пукин отдал 2 бутылки водки в магазине напротив ЦУМ и получил от руки Кости в код 232323. 12.02.08 00:07 вася пупкин выпил 2 бутылки водки в магазине напротив ЦУМ за убийство...

Как задать кодировку
Здравствуйте! Пишу так#!/usr/bin/perl -w use strict; use CGI qw(:standard); print header; print "Hello!"."ПРивет!"; С помощью строки "print header;" браузеру отправляется Content-Type:...

Надо GIF файл переконвертировать в другой формат.
Мне надо сделать так, чтобы скрипт брал лежащий в инете GIF файл, переконвертировал его в другой формат (желательно PNG или BMP) и возвращал в качестве ответа тому, кто этот скрипт вызвал. ...

Perl Список БД
Блин. Перерыл весь интернет и не понял. Каким образом можно вывести список баз данных MySQL в массив при помощи Perl??? Т.е. через коммандную строку базы можно посмотреть так: mysql> show...

Создание XML по строке из лога
В результате парсинга определённого лога получаю строку вида: Total memory allocated 4902796398. Естественно, это не единственная строка, но остальные имеют такую же структуру: сперва текст, потом...

Сжатие строки (cgi скрипт)
Сжатие строки Один из простых способов сжатия информации заключается в поиске одинаковых частей, идущих подряд. Вместо нескольких повторений можно записать их количество и всего одну часть....

Заполнить форму Excel
Есть текстовой документ img1.jpg такого формат и шаблон в excel img2.JPG По каждой позиции необходимо создать бланк с заполненными данными. 1. из шаблона shablon.xls создаёться копия...

Перевод переменных формы в utf8
Всем доброго времени суток. Проблема моя заключается в следующем: есть html форма с 4 полями при нажатии на кнопку добавить вызывается скрипт на perl который добовляет данные в базу. И всё бы...

Как с помощью файла .htaccess заставить локальный “Apache 1.3.6” просматривать файлы (*.gif), (*.jpg) из директории “../cgi-bin”?
Подскажите пожалуйста, как с помощью файла .htaccess заставить локальный “Apache 1.3.6” просматривать файлы (*.gif), (*.jpg) из директории “../cgi-bin”. В данный момент загружает только из...

Проблемы с кодировкой, русские буквы заменяются на символы
В скрипт передается предложение, из которого надо извлечь слова и предоставить в виде списка. Вывод скрипта такой: Список слов: ÑÑÐÐ esd Количество слов в тексте: 2 т.е. английские буквы...

Ошибка 501 Required byte offset parameter bad or missing при работе с FTP
Есть небольшой скриптик: #!/usr/bin/perl use strict; use warnings; use Net::FTP; my $ftp_host = "ftp.domain.com"; my $user = "user"; my $password = "passwd";

Распечатать слова, из которых состоит предложение, в порядке возрастания длины слова
помогите реализовать это на перле) из темы "разработка cgi-програм на perl" собственно: Распечатать слова, из которых состоит предложение, в порядке возрастания длины слова

Скрипт для запуска программы в определенное время
Подскажите пожалуйста, содержит ли ошибку этот Perl код? Он предназначен для crontab. Первая часть - расположение софта, вторая - расположение самого скрипта, последнее же время его запуска....

Адрес папки для выполнения программы
Недавно начал изучение Perl, и дабы как-то разнообразить чтение книжки решил выполнить мелкую задачку с помощью данного ЯП. Суть задачи: В папке находится 200+ различных картинок с ужасными...

Календарь
#!/usr/bin/perl -w my ($a, $b, $c, $chislo, $f, $k, $nedelya, $g, $x) = localtime(); my %monts = ( '0' => 'Январь', '1' => 'Февраль', '2' => 'Март', '3' => 'Апрель', '4'...

Бинарное дерево.
Попробовал сделать простенькое бинарное дерево. Вроде бы получилось (как задумано, так и работает), но как-то сомнения гложут, может чего не замечаю... Короче, если кто знает, что лучше изменить,...

Скрипт проверки баланса счета
доброго времени суток, уважаемые форумчане! есть проблема. взял в сети готовый скрипт на perl для проверки баланса счета на usb модеме. все было в принципе ничего, иногда косячило, а именно:...

Работа STDIN быстрее чем перебор файлов
был скрипт который строки получал через STDIN cat '...' | perl ... работал очень быстро, но из-за определенных моментов пришлось переписать на перебор файлов перлом, открытие и чтение, стал на...

Как получить количество сообщений в очереди???
Мне нужно получить количество сообщений в очереди и если это количество больше 100, то отправить админу на почту сообщение о большом количестве сообщений в очереди...спс огромное

Установка GD.pm
Добрый день, всем! Не могли бы вы помочь? У меня возникла проблема с установкой модуля GD.pm Установил все необходимые библиотеки для этого, а именно: libgd, libpng, freetype, zlib. При...

Новый бесплатный курс Perl на степик
На почту пришла новость - решил поделиться https://stepik.org/course/3039

Инсталляция DBI и DBD::MySQL
Привет всем! Помогите начинающему в Perl, скачал на сайте www.mysql.com файлы DBI-1.18.tar.gz (Perl DBI module) и Msql-Mysql-modules-1.2216.tar.gz (Perl DBD module to access mSQL and MySQL...

Image-Magick, как изменить resolution?
скрипт закачивает на сервер картинку, уменьшая, если нужно ее размеры. $image->Resize(.... При этом ИНОГДА, меняется и ее разрешение. Закономерности пока не вижу... Может есть возможность, кроме...

Как в перл скрипте прочитать возвращаемое значение?
У меня в форме используются radiobutton, как в перл скрипте прочитать возвращаемое значение? И еще как с помощью перл отправить письмо с сервера?

Post запрос выполняется только на своей машине, но не c сервера
Подскажите, как сделать чтобы скрипт выполнялся не только на моём компьютере, а и с сервера: #!/usr/bin/perl use LWP; use HTTP::Request::Common; my $zapros= "тут собственно сам запрос"; my $url...

Perl работа с файлами
Добрый день! Подскажите пожалуйста по моему вопросу. Суть вот в чем. Имеется программа. Ее код; #!/usr/bin/perl -w use strict; use FindBin; my $base_dir = "$FindBin::Bin";

Как узнать ID последней записи?
Вобщем есть Perl и PostgreSQL (PGSQL), в скрипте перла делаю INSERT записи в базу данных, и как узнать её ID?

Создание тумбнаилов картинки
К своей радости я загрузил картинку на сервер. Но вот какая задача: может ли скрипт сделать НАСТОЯЩИЙ тумбнаил этой картинки? Короче, возможно ли это в принципе и если да, то где можно узнать об этом...

Возможна ли такая конструкция ?
у меня есть 2 пакета : Первый пакет : file: MyLib/MyPackage1.pl package MyLib::Package1; $MyVar1 = 1; Второй пакет : file: MyLib/MyPackage2.pl package MyLib::Package2; $MyVar2 =...

Компиляция перл -> exe
Уважаемые, ради сабжа пришлось зарегаться :) Сломал уже голову, не получается. I need help ^) Нужно скомпилить скрипт в ехе файл. ActivePerl 5.24.1 Пробую perl2exe. Стоят два модуля: use...

Как правильно выбрать нужные записи?
Работаю на perl. Думаю актульна проблема и с другими средствами... Подключаюсь к СУБД (неважно какой) и хочу выбрать только порцию данных (К примеру первые 3 записи, вторые 3 записи). Так вот - с...

Парс блоков текста от открывающегося символа (строки) до закрывающегося
что бы было понятнее что имеется ввиду см скрины, для примера взял HTML, но это только для примера, вместо div может быть любой символ, скобка например. скрин 1, это как нужно, 2 и 3, это как...

rec+perl (Ubuntu OC)
Здравствуйте, Уважаемые Форумчане. В Perl я новичок, поэтому прошу у Вас помощи. И так, имеется: 1) OC Ubuntu Linux 2) Установленный пакет sox (для записывания с микрофона в файл .wav - команда...

Не удается вызвать метод
Добрый день. Скрипт работает, но по итогу парсинга в Субд выдает ошибку _________$ /usr/bin/perl /var/www/_________/data/www/_________.ru/parser/myyml-parser.pl Can't call method "header" on an...

Скачать Perl
Хай всем ! Народ, дайте плиз ссыль, где можно скачать норм версию Perl под 7-ку... Пару штук скачал, ничего не прет... в т.ч. и ActivePerl 5.12.3 Заранее спасибо !!!

Составить из предложения массив слов
Здравствуйте. Есть проблема. Например, в $a лежит предложение "Мои сборы недолги: чемоданчик со всем необходимым и фотоаппарат всегда наготове, и вот я уже устраиваюсь в капитанской каюте на...

Загрузка файла в textarea
Доброго времени суток, всем! Perl начал изучать позавчера, поэтому просьба не ругать =) Проблема в следующем. Передаю содержимое файла в textarea, тык он зараза не передается весь, а только первая...

Подсчитать количество двухбуквенных слов
1) В строке текста подсчитать количество двухбуквенных слов

Имеется 4 карты, необходимо чтобы они перемещались между собой
Задание было такое. имеется 4 карты, необходимо что бы они перемещались между собой. По сути как я понял делаеться через рандом, с использованием цикла проверяющего повторяються ли цифры. в общем...

TFTP через perl
Всем доброго времени суток. В perle я новичок, потому просьба не посылать... а помочь. Надо перловым скриптом отправить файл прошивки по tftp (сервер на Windows) на устройство. Первая проблема, не...

Pack и unpack
Привет ищу хорошее описание функций. Стандартные маны не добавляют понимания. вот даже при описании функции unpack встречается, что она обратна pack. $string='China'; $digital='543';...

Передача параметра в скрипт + использование <>
Такая петрушка, если передаю параметр top10, все ломается Can't open top10: No such file or directory at D:/GIT/Perl/callDurations.pl line 17. вызов скрипта такой: cat */rphost*/*.log | perl...

Перекодировка из однобайтовой кодировки в UTF-16
Под виндой удобно чтобы кодировка самого perl-скрипта была CP1251. Но в самой винде есть утилита выдающая результат в кодировке UTF-16: wmic /output:user_lst.txt useraccount Ну и вот....

Установка языка Perl В linux
Здравствуйте начал изучать язык программирования Perl. Я работаю в Gnu/linux - Debian/Ubuntu. Системы стоят на virtualbox. Как известно в UNIX подобных OS установлены некоторые скриптовые языки...

Где чаще всего используется Перл?
Подскажите,пожалуйста, где чаще всего используется Перл? И если в CGI-сценариях,то где еще? И как можно протестировать программу на Перле под CGI-сценарий, если не установлен сервер?

Isn't numeric in subtraction (-)
Здравствуйте. Есть скрипт для выгрузки данных с биллинговой системы. При запуске скрипта. Появляется первая ошибка - Argument "aa.datetime" isn't numeric in subtraction (-) после этого часть...

Поиск-Парсинг страницы
Я пытаюсь пропарсить страничку.Нужно получить из списка книг автора название цену и картинку. Ну вот получаю я весь код страницы в массив @data. Как например мне теперь получить от туда автора зная...

Доработать скрипт бронирования
Имеется скрипт #!/usr/bin/perl %Dan_pol = &Chten_dan(); print "Conet-type: text/html\n\n"; open (EMAIL, "I /usr/sbin/senbail -t"); print EMAIL "To: $Dan_polz{ `email`}\n"; print EMAIL "From:...

Perl sendmail
Пишу отправку почты на сайте.Но вылетает ошибка на 26 строке,никак не пойму в чём проблема.На денвере работал нормально,а на хосте не хочет. #!/usr/bin/perl use strict; use warnings; use CGI qw(...

Ошибка при использовании слабых ссылок для создания и удаления объектов
Здравствуйте! Изучаю ООП в Perl, дошел до главы 13. Уничтожение объектов книги "Шварц Р., Фой Б., Феникс Т. - Perl. Изучаем глубже. 2-е издание", но вот почему-то выдает ошибку при использовании...

Получить данные после выполнения хранимой процедуры в Perl.
Есть хранимая процедура (Сервер DB2) которая возвращает набор данных и есть такая необходимость получить результат этого запроса в Perl. Процедура: CREATE PROCEDURE kzk.chk_conf_job (in j_date...

Из составного списка сделать простой список, освобождая исходный список от подсписков
Задание Напишите программу, которая из составного списка делает простой список, освобождая исходный список от подсписков. В prolog получается задать список с подсписками, но функцию...

Image::Magick и вырезание определенной части картинки
Используя модуль GD я использовал метод copy для вставки ЧАСТИ (определенного региона) одного имаджа в другой имадж, в определенное место. Перерыв всю документацию по Image::Magick я не нашел...

памагите
привет незнаю как ета абеснить но папробую пачему кагда я запускаю Perl в good.txt нечиво не паевляетса?:wall:

Необходимо превратить строку в массив строк
Мне нужно чтобы из строки в массив попали числа (в том числе и вещественные), а также знаки *,-,+,/ и (,). Я делал так: my @array = $arg1 =~/(+)| /g; #или my @array = $arg1 =~/(+)| \Q \- \* \/...

Как скачать страничку с редиректом?
С помощью LWP скачиваю страничку www.mysite.com. Но она меня пару раз редиректит, пока наконец не выдает нужную. В браузере это происходит незаметно, а с помощью скрипта не получается - загружается...

Общие переменные, threads shared, и таймауты сокетов
Приветуствую форумчане! Возникла необходимость использование многопоточности, но так как сидел на php, то языком с потоками был выбран перл как похожий по синтаксису и простоте. Есть некий демон...

Удаление из Mysql
Не могу понять почему запрос Select работает и выводит товары, а по нажатию кнопки 'удалить' или 'оформить покупку' запросы delete не работают! Может кто подскажет что не так Все поля в таблице...

скрипт для обработки формы
Данные с формы отправляются с использованием ajax. Формируется url http://pris.ru/cgi-bin/newrow.cgi?fam=11&fio=222 далее эти данные обрабатываются скриптом и выводятся на форму для проверки. Но...

Как проверить есть ли файл с таким именем на сервере?
Господа программисты, подскажите где ошибка в следующем скрипте. Задача такая: нужно проверить, есть ли на сервере файл с именем, например, 127.0.0.1.txt, если да - выдать сообщение, что такой файл...

Удаленные вебсервисы на апаче
По адресу http://www.perl.com/pub/a/2005/02/03/rpc_design.html обсуждается создание удаленных вебсервисов на апаче. Меня интересует следующее : можно ли это сделать стандартными перловыми...

Perl+ODBC: Как вытащить данные из .xls?
Вобщем сабжевая проблема. До этого всегда работал с SQL и горя не знал. Сейчас мне необходим доступ к прайс-листам, которые практически всегда на exel-е. Вобщем создал системный DSN, как обычно, а...

Перечислите все плюсы и минусы языков программирования Perl и PHP
Что может написать программист на Perl и чего не сможет написать программист на PHP

Сравнение слов со словарём
У нас один 1.тхт документ с правильными словами..и еше один 2.тхт файл с неправильными словами в предложениях.. например: на 1.тхт слова в таком ввиде.. саша поставил школа тарелка парта стоп...

Can't locate DBIx/Simple.pm in @INC (@INC contains:
что то случилось. вот такие ошибки как исправить? gu@kat:~$ sudo perl -MCPANPLUS -e shell Can't locate DBIx/Simple.pm in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.14.2...

Массив @SEARCH_FILES обьявляется внутри функции Scan_Files , но виден почему-то за ее пределами
Имеется вот такой код : #!/usr/bin/perl package Search; @SEARCH_FILES_RESULTS=(0,0,0,0); &Scan_Files(); for ($i=0;$i<2;$i++) { if (@SEARCH_FILES_RESULTS ==0) { print '<a href=...

почему my $nginx = `nginx -t` сразу уходит в stdout
Здравствуйте. %cat perl_nginx.pl #!/usr/bin/perl -w use strict; my $ls = `ls -la`; my $nginx = `nginx -t`; %perl perl_nginx.pl nginx: the configuration file...

Не получается написать тест для проверки программы
Доброго времени суток! Perl мой первый язык программирования и я совсем недавно начал его изучать, пока все более или менее получалось по крайней мере до того момента пока не решил научиться писать...

Вывод больших чисел, используя print/printf
Как вывести большое число полностью, а не XXXe+YYY, используя print, и почему printf выводит -1?

Spreadsheet::XLSX::Reader::LibXML
Здравствуйте!! Пример от разработчика не работает. Куда копать? вылетает с ошибкой: # ./parse2.pl Attribute (file_name) does not pass the type constraint because: Could not find / read...

Работа с файлами больших размеров
Приветствую!! Есть файл следующего вида: 1e;Moscow;1122334455 2r;Novosibirsk;12321 3b;Kursk;2131 4v;Moscow;5544 5c;Rostov;699753 Нужно пройтись по файлу, найти совпадения во вторых столбцах и,...

Настроить Perl Express 2.4.5
Подскажите, как настроить Perl 2.4.5 После установки запросил интерпретатор (значит изначально не содержал?) Я установил Active Perl- 5.10.1 Не получилось. Где нужно размещать файлы интерпретатора...

Помогите настроить perl под Apache+Win98
Привет. Не могу настроить ActivePerl. Установил, прописал в httpd.conf ScriptAlias /cgi-bin/ 'D:/Job/cgi-bin/' Addhandler cgi-script .pl в скрипте #!d:/perl/bin/perl При запуске...

Как составить из слова массив букв в perl
Доброго времени суток. У меня вопрос, как составить из слова массив букв? Как лучше составлять в список или хэш? я пытался сделать, но у меня не вышло, не могли бы вы мне указать на мои ошибки...

Как кликнуть на кнопку созданную на ajax'e?
Как кликнуть на кнопку созданную на ajax'e? Добавлено через 3 минуты В интернете прочитал что с помощью mechanize нельзя нажать на такую кнопку как быть?

Как склеить txt файлы?
Как с помощью перл склеить текстовые файлы Файлов много 84 штуки

Работа c MySQL через ODBC - перемещение по записям
Работаю ч/з Win32::ODBC Вобщем проблемка в том что мне нужну перемещатся по выборке(Вначало, конец, предыдущую запись), конект и SQL запрос всё проходит. Как это сделать?

Выбирать в список в алфавитном порядке имена собственные
Добрый день. Нужен скрипт который,будет выбирать в список в алфавитном порядке имена собственные Исследуемый текст в файле file.txt,в той же директории, считываю посимвольно в слово, и если есть...

DBI
Народ,сижу второй день над проблемой,делаю небольшой редактор БД mysql; Работает всё кроме вывода,что не так? Пишет:Can't call method &quot;fetchrow_array&quot; without a package or object...

http status 500
вот такой скриптик вернул 500 /usr/bin/curl -D /tmp/hallo.pl.header.GpWmal -w '%{http_code}' -sS -o /dev/null -F data=@/tmp/hallo.pl.nRhaGL $uri 2>&1 Очень бы хотелось узнать, как можно глубже...

Работа с БД
Здравствуйте. Не могу никак понять, почему скрипт работает на компьютере, но если его запустить через браузер, то не устанавливается соединение с БД. Подскажите почему. use warnings; use strict;...

Использование функций из DLL, написанной на C++ в Perl
Здравствуйте. Как использовать функции из DLL, написанной на C++ в Perl? Заранее спасибо за ответ.

Генерация мета тегов
Всем доброго времени суток) Возникла задача по заполнению тега keyword в интернет-магазине. Так как товаров слишком много и для страницы каждого товара надо заполнять этот тег - было предложено...

Заменить первую встретившуюся строчную букву на заглавную
Помогите заменить первую ВСТРЕТИВШУЮСЯ строчную букву на заглавную Я вроде поняла как заменить буквы из одного класса на другой. Но мне необходимо чтобы это проделывалось лишь один раз use...

Чат - Обновление страницы браузера при приеме сообщения
Доброе время суток уважаемые форумчане. Пишу небольшой простой чат на CGI. Как сделать обновление страницы в браузаре у пользователя №2, если например пользователь №1 нажал кнопку "отправить" у...

Несколько сетевых интерфейсов и multicast
Добрый день, форумчане! Нужна ваша помощь. Есть многопоточное приложение (Perl), генерирует multicast. Есть сервер, на котором приложение работает, на сервере несколько сетевых интерфейсов....

соединение Perl => firebird
Здаствуйте! Обычно работаю с базами данных mySQL либо SQL Server с ними проблем не возникает но недавно пришлось начать изучать firebird. Проблема заключается с подсоединением скрипта Perl к...

Конвертер XML
Нужна помошь в создание конвертера xml файла,т.е на входе xml файл какого либо заявления(допустим) на выходе отредактированый по шаблону xml файл.На входе дан xml файл в котором написано все в одну...

Требуется подмога в патче скрипта
Товарищи, нуждаюсь в помощи спецов! В общем есть следующий скрипт: #/usr/bin/perl while (<STDIN>) { chomp; my $req= "GET ".$_." HTTP/1.1\r\n". "User-Agent: YandexTank/1.1.1\r\n". "Host:...

Как переименовать все файлы в архиве
Люди добрые, подскажите вот что. я архивирую файлы, которые находятся в одной и той же директории. /mnt/hgfs/shara/scr/file_1 /mnt/hgfs/shara/scr/file_2 /mnt/hgfs/shara/scr/file_3...

Чтение информации из файлов
Кто подскажет, как в perl можно считывать информацию из файлов, пропуская при этом пустые строки и строки-комментарии?

Как получить, из запушего мною с скрипте, процесса переменную?
Тоеть хочу в исполняемом скрипте запучтить процес и при завершение процесу вернуть в скрипт значение переменной

скрипт парсинга текстового файла
Добрый день! Есть файл вида: 0|06.11.2016|номер||726.53|10.2016|счет|1|39420|3330000015 0|06.11.2016|номер||954.62|10.2016|счет|1|2774|3330000015 Подскажите регулярное выражение для обработки...

Корзина
Помогите написать простую карзину для HTML сайта, тоесть perl будет вставлен как скрипт. Корзина очень простая, мне нужно что бы под каждым товаром кнопка для добавления в корзину. В корзине...

Регулярное выражение для поиска в файле строк заданного формата
Всем привет! Нужно найти в файле строки со значением aa|aa|aa|aa|aa|aa|aa|aa|cc|00|00|00 это насколько я знаю альтернативный поиск, можно как нибудь обойти это и решить обычным регулярным...

Помогите послать get-запрос с куками.
Нужно послать get-запрос с определенными куками. Делаю так: my $ua = LWP::UserAgent->new; my $req = HTTP::Request->new(GET=>$url, ); my $res = $ua->request($req); my $a2 =...

Вывести текст так, чтобы в каждой строке на выходе было не более, чем W символов
Есть текст в строке, не содержащей символы перевода строки. Текст состоит из слов (будем считать за слово последовательность +), разделенных пробелами. Мне нужно вывести этот текст так, чтобы в...

TNEF. Extract attachments winmail.dat (perl)
Окружение: This is perl 5, version 22, subversion 1 (v5.22.1) built for x86_64-linux-gnu-thread-multi Задача: Вытащить из файла winmail.dat вложения и сохранить их в указанной директории. ...

Дробление текста на куски, куски в переменные
Добрый день, запутался совсем с решением задачи. Имеется текст, структура текста повторяющаяся, напоминает повторяющиеся элементы с разными атрибутами. мне нужно раздробить текст на куски, и...

CGI - скачивание сайтов
Проблема в том , что все кто предлагает бесплатный host и запуск своих программ на Perl не дают работать с Socket т.е. невозможно скачать сайт! Или нет библиотек. Кто подскажет , как решить проблему...

Как узнать код ошибки sendmail, и что он там возвращает?
Интернет-магазин, форма приёма заказов. Надо, чтобы одно письмо шло админстратору, второе - кленту. Администртору - пишу: open (SENDMAIL, "|/usr/sbin/sendmail -t") or die "<p...

Сохранение огромного хеша в файле и его изменение
Доброго времени суток. Задача состоит в сохранении ("глубокого" - более 20 уровней ) хеша. Приложение локальное и нужна возможность простого переноса базы в виде файла. В этом случае решил...

UDP-сервер с двумя службами на нем
Всем привет. Нужно написать UDP-сервер, на котором висят две службы, и соответствеенно слушаются два порта. Он должен работать с несколькими клиентами одновременно, то есть быть...

Неверное отображение юникода
есть такой код use strict; use utf8; use DBI; .... my $dbh = DBI->connect.... $dbh->do("set names utf8"); $sth = $dbh->prepare("select a from b where c=1"); $sth->execute; $a =...

Парсинг XML
Здравствуйте! Подскажите, а чем в Perl'e можно парсить XML (нужно будет разбирать RSS-новости). Только начал изучать данный язык.

"Патч Бармина" и некоторые аспекты языкознания
давече в соседней ветке "Pазработка для WEB" доброжелатель прислал т.н Патч Бармина, при разборе которого в посте https://www.cyberforum.ru/perl-web/thread1146658.html#post6043691 наткнулся на...

перл стажер в Яндексе
Кто-нибудь проходил собеседование? если да, то что нужно знать? вот думаю хватит ли моих знаний:umnik:

Любой скрипт возвращает "The directory name is invalid"
любой скрипт, при попытке доступа из браузера (http://.../test.pl) типа #!/user/bin/perl print 'hello'; возвращает 'The directory name is invalid'. Perl установлен и самое главное скрипты...

Где наити автоматический crawler?
Где наити автоматический crawler?

Проверить в онлайне перловые REGEXP'ы
есть где какой-нибудь сервис, именно для perl, чтобы отладить?

Изменить права доступа на файлы и папки (Windows)
Нужен скрипт, чтобы установить рекурсивно Everyone=Full access, и желательно очистить от прочих прав. Если на Python скрипт, тоже можно. Даже на subinacl.exe было бы неплохо, но у меня не получилось

Блокирующий сокет. Не понимаю
В перле понимаю не очень, но стараюсь. Написал сокет, который постоянно слушает определенный tcp порт. Сейчас к этому порту подключается только 1 клиент 1 раз в 30 секунд, посылает 3-4 строки...

Ищу человека для Реализации метода изучения языка программирования Perl
Доброго времени суток, читатель. Данный пост о запросе помощи от тех, кто сможет помочь, надеюсь таковые найдутся на этом портале. Нужна помощь в Реализации метода изучения языка программирования...

Masterhost и Perl
Возникла необходимость развернуть сайт написанный на Perl на Masterhost. Хорошо знаю php а вот с perl столкнулся в первые. Можете подсказать поэтапно и подробно как развернуть сайт написанный на Perl...

Автоматическая установка модулей с использованием CPAN
Всем здравствуйте! Подскажите, пожалуйста, хочу автоматически установить какой-нить из моделей. Команда такая: # perl -MCPAN -e 'install Нужный::Модуль' Вопрос в том, что нужно сделать,...

ООП
Читаю ООП, классы, объекты, наследование, перечитываю, читаю у другого автора о том же, и вот у меня появился вопрос: а зачем всё это нужно? Что полезного и ценного в ООП в perl? Те же функции,...

На языке Perl выполнить следующие задания
1) Создайте массив из элементов: 23, 9, 5, 15, 11, 10, 7 - и выведите на консоль с помощью цикла for только те элементы массива, значение которых больше и равно десяти. 2) Создайте хэш из элементов:...

Переводчик кода Си в Perl(Convert C to perl)
Нужна такая вещь, а в идеале код такой программы.

Проверка синтаксиса арифметич. выражения
Привет. Как регулярным выражением Perl проверить синтаксис арифметического выражения типа -(+1+2)*(3/(1-2))/((-3)), и возможно ли это? Народ в этом сомневается и использует для этого модуль Perl....

Пытаюсь подключить <!--#include virtual=file.cgi-->
Пытаюсь подключить <!--#include virtual=file.cgi--> в котором сидят куки в индексную shtml, но в директории где они должны появится ничего такого не происходит, что я делаю неправильно?

Getopt::Long
День добрый, имеется у меня скрипт, выполняю в консоле: perl test.pl --test test1 --example test2 test1 test2 но этот скрипт запускает одна программа, при запуске я получаю Unknown option:...

Регулярные выражения (выборка ссылок)
Добро времени суток друзья! Столкнулся с проблемкой выборки ссылок из ответа сервера. Сервер отвечает html тегами, в кот. встречаются ссылки вида: "...

Цикл в цикле
Всем привет!)) У меня такой вопрос, можно ли вписывать цикл в цикл (для цикла for), если мне надо читать строки сначала первую букву каждой строки, потом следующую (2-ю) букву каждой строки, потом...

Таймаут lwp
Я получаю страницу через LWP, как сделать что бы если получение страницы длится больше 10 секунд - соединение прекращалось (но не die, нужно далее следующее соединение) timeout - он вроде...

Getopt::Std & Getop::Long
Доброго времени суток, уважаемые. Столкнулся с задачей написания скрипта, который принимает аргументы из командной строки. далеко ходить не буду. Беру пример прямо из документашки!...

Обработка(парсинг) и сравнение текста
Попалась мне вот такая вот не тривиальная задача, в силу неопытности не знаю даже с какого края подойти к ее решению. Есть 2 массива, им присваивается аутпут двух линуксовых команд: my $listSP...

C# to Perl (нужен переводчик)
Здравствуйте, форумчане! Возникла такая необходимость: перевести программу, написанную на C#, на язык Perl. Я написал код на C#, подробно прокомментировав, и старался использовать базовые...

Удалить из предложения все предлоги. Список предлогов задан во втором предложении
Добрый день, возникла такая задача. Удалить из предложения все предлоги. Список предлогов задан во втором предложении. К сожалению, не даётся пока мне perl. Прошу помочь с решением. Заранее...

Помогите понять что это такое - /wbmp.cgi
Помогите понять что это такое - /wbmp.cgi?http://host.com/image.php Допустим так, это используется в вап сайтах, как я понимаю для избежания кешировани чего либа, в данном случае это картинка на...

Простенький скриптик, который бы информацию из поля логировал
Проблема номер один: Передо мной стоит задача: есть такой ресурс - www.combats.ru, может слышали. Так вот, мне нужно сделать так: когда человек вводит в соответствующие поля логин/пароль - эти...

Обработка текстовых файлов
Доброго времени суток. Сам я perl увы не знаю. Помогите пожалуйста со следующим, если это возможно. Есть каталог с текстовыми файлами на локальном диске винчестера. (например E:\Compile\nsrc -...

Скрипт установки дополнительных модулей
Добрый день. Сразу скажу, что про perl слышал только то, что он умер :). Задача: перенос некоего ПО с одной платформы на на другую. Проблема: нужно установить n дополнительных модулей perl. Все,...

[RAKU] Map как функция и map как метод - в чём разница?
Не вкурю почему разный результат выходит. my $var = (0..10); map(-> $x {$x * 10}, $var).WHAT > (Seq) $var.map(-> $x {$x * 10}).WHAT > (Seq)

Нужно сделать доступ к БД Access через интранет.
Привет, мне нужно сделать доступ к БД Access через интранет. Я решила это сделать при помощи ASP, потом выяснилось, что у нас unix сервера, а ASP это не подходит. Посему наш системный...

Преобразование массива к другой структуре
массив @array = ('1', '2', '3', '4', '5', '6'); как его можно привести к такой структуре: '2', '1', '4', '3', '6', '5' т.е. поменять местами 2-1 4-3 6-5 для довольно большого массива?

Apache::Request (libapreq-1.33 ) на win platform
Кому-то удалось нормально установить сабж на win platform ? Пожалуйста напишите icq 140467855

XML::Simple съедает при каждом вызове по 0,30 CPU
как его очистить а то скоро в космос сервер запушу )) замерял загрузку с помощью Benchmark timediff

Запись массива в Mysql
Пользуюсь скриптом который когда-то нашел в интернете и немного переделал. Суть скрипта считать по SNMP с коммутатора таблицу mac адресов и записать их в столбик в текстовый файл. Но мне на данный...

Неправильно копируется hash
Есть некий код. my (%a,%b); while(1){ print %a->{foo}->{test}."=".%b->{foo}->{test}."\n"; %a->{foo}->{test}=rand(); print...

Как у PERL c ООП? Можно ли создавать классы, наследование и т.д.?
Как у PERL c ООП? Можно ли создавать классы, наследование и т.д.?

Где взять Perl версии 5.004.02 ?
Здравствуйте, господа программисты! ----------------------------------- Подскажите, пожалуйста, где взять Perl версии 5.004.02 ? Я слышал, он занимает всего 0,43 Mb, но несколько сомневаюсь. Я...

perl script - smtp-relay
Здравствуйте Есть следующий скрипт, проверяет список ип адресов на открытые smtp-relay. Как сделать так чтоб скрипт не вырубался если один из хостов не отвечал а переходил к следующему? Unable to...

Что могло оставить подобный след - '18SbJQnhSm7UWn93n0' ?
есть подобная строка '18SbJQnhSm7UWn93n0' есть ли в перле функции или методы криптования оставляющие подобный вывод?

Как инсталировать модуль PERL-а в NT?
Как инсталировать модуль PERL-а в NT?

Удаление нескольких строк из файла
Доброго дня! Вопрос к знатокам Perl, т.к. сам не силён в нём... В интернетах рылся долго - пробовал по-всякому сваять скрипт: или не работает, или работает, но не так (как обычно, в общем :)....

Как запустить код на другой странице
В общем, вот: есть страница, генерируемая с помощью cgi. Могу ли я на ней выполнить код, который будет находиться на другом сервере (www.ru/cgi-bin/1.cgi)? То есть сделать что-то вроде include. Это...

Абсолютные ссылки в html-файле заменить на относительные
как во входном html-файле отличить абсолютные ссылки, которые можно заменить на относительные?

Как работает LWP? Он Всё время выдаёт ошибку.
Я использую LWP::UserAgent для скачивания страниц с HTTP. Но что-то не ладится. Переменная $! выдаёт 'Permission denied'. В чём дело не знаю. Плиз Хелп. Буду очень благодарен.

Нужно что бы несколько строк введенных в таблице, .pl скрипт записал в файл .txt
Люди!!! Помогите написать скрипт. Нужно что бы несколько строк введенных в таблице, .pl скрипт записал в файл .txt, причем что бы при каждой обработке имя файла менялось . 1-й раз 1.txt 2-й раз...

Скрипт не распознаёт директорию как директорию
Здравствуйте уважаемые! Ещё одна проблемка вдогонку к предыдущему посту: Есть ajax.pl — Общается с вебмордой, отдаёт различные данные из БД (в том числе авторизацию), доступ пользователя...

Модифицировать программу Угадай число
Модифицировать программу Угадай число так, что бы игра продолжалась, пока число не будет угаданно. Текс програми Угадай число: #!/usr/bin/perl -w $im_thinking_of=int(rand 10); print "vvedite...

Размер %hash
Подскажите как правильно узнать размер %hash, если делаю так: my $sz=keys %hash получаю уведомление: keys on reference is experimental тут все расписано понятно:...

Работа с таблицами в текстовом файле
Прошу помощь с лабораторной Таблица данных В файле "название_задачи.txt" хранится таблица (минимум 3 записи) в виде: Первая строка - заголовки Каждая строка - запись в таблице(кроме первой)...

Проблема с perl2exe - ошибка unrecognized chracter
Привет всем, Подскажите пожалуйста, если кто сталкивался с такой ситуацией: создаю exeшник из проверенного работающего скрипта, всё проходит без ошибок, а если запускаю созданный exe-файл, то...

FTP put file и ошибка "Unrecognized or unsupported command"
Добрый день. Подскажите пожалуйста, почему не срабатывает put, идет ошибка "Unrecognized or unsupported command". #!/usr/local/bin/perl -w use Net::FTP; use warnings; $dir = "/tftp/"; $file...

perl html win32
Не совсем по программам вопрос, но больше не знаю куда обратится ( Нужно отображение работы perl скрипта на html станице. win 7. Подскажите или пошлите где почитать. Что устанавливать в win 32 ,...

Взять из строки число и построить хеш с агрегацией
Есть строки вида: 3222-произвольный текст 2-произвольный текст2 456-произвольный текст 1-произвольный текст2 4-произвольный текст нужно получить хеш где ключ будет текст с права, а значение...

Скрыть консоль во время выполнения скрипта
Здравствуйте! Подскажите пожалуйста: Есть скрипт на perl (Active Perl 5.20) он висит в планировщике (Windows XP). Время его работы - от одной минуты, стартует каждый час. Скрипт смотрит на БД...

Файл в хеш
Добрый день. Есть текстовый файл конфигурации типа: {Цена}=price {Количество}=quant ... {продавец}=1 {Количество}=10 ... Подскажите, как создать хеш типа:

Управление интерактивной утилитой командной строки Perl- скриптом
Есть такая утилита DISKPART. Она интерактивная. Т.е., чтобы установить при помощи неё какой-нибудь диск в онлайн, нужно вызвать дискпарт, потом ввести в консоли нужную команду, потом еще одну и т.п....

Случайный вывод текста
Здравствуйте! Ребята помогите написать генератор случайного вывода информации... open (DATA, "bd/link.txt") || die "Cant open list.txt, $!"; @data = <DATA>; close (DATA); $line = (int(rand...

Net-FTP получить mtime
Доброго! использую модуль Net::FTP; не получается получить время модификации файла. убрал лишнее оставил только по делу. #!/usr/bin/perl use strict; use warnings;

Не могу запустить скрипт написанный на Perl
Здравствуйте. История такая - Есть такая игра - Europa Universalis 4, которая русский шрифт не хочет видеть совсем, для этого команда людей, которые решили сделать русификатор в том числе написали...

База для работы с perl
вообщем внизу смотрел и пользовлься поиском но так и ничего не нашел путного,прошу модераторов не ругать. У меня линукс убунту 12.04 ноут асус, скачал прогу актив перл для линукса,распаковал,вро...

Как Perl прицепить к Oracle?
КАК Perl прицепить к Oracle Имею Oracle Application Server 4 c базой Oracle8i. К OAS прилагается картридж с Perl. Возникает вопрос как можно связать программу на Perl c базой, через какой драйвер...

Программа пишущая в собственную секцию __DATA__
Есть идея сделать себе что-то типа менеджера паролей на perl, причём, в одном флаконе с самими паролями )) Отправная точка, проверка концепции: open $m, '>>', $0 or die; print "Всё что вы...

Код на базе AnyEvent::Socket работает нестабильно
Здравствуйте! Реализовываю клиент к memcached с помощью AnyEvent (для изучения AnyEvent), реализовал следующий код: #!/usr/bin/perl use strict; use warnings; use feature 'say'; use Carp...