Форум программистов, компьютерный форум, киберфорум
Perl: Web
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Perl Работа с датой https://www.cyberforum.ru/ perl-web/ thread1945981.html
Всем привет, в общем запутался я с вычислениями дат, привожу пример: отнять от текущей даты и времени 3 дня. #!/usr/bin/perl use strict; use warnings; use Date::Calc qw(Today_and_Now Add_Delta_Days); use Time::Local;
Perl Taglist
Здравствуйте!. Имеется таглист: --- taglist --- label: oldname: ... Значения для name и old_name - принято считать значением по умолчанию. Остальные конкретизированы для языка страны. Если name и old_name отсутствуют, то скрипт вытягивает первое попавшееся языковое содержимое name:xx, old_name:xx. Как усмирить жадность алгоритма? Как заставить скрипт искать...
Perl MIME::Lite для отправки почты Добрый вечер Использую MIME::Lite для отправки почты MIME::Lite->send('sendmail', "/usr/sbin/sendmail -t -oi -oem"); $subject = sprintf "=?utf-8?B?%s?=", MIME::Base64::encode($ORDER{'TITLE'}, ""); $message = MIME::Lite->new( From => $email_support, To => $email_manager, Cc => $email_director, Subject => $subject, https://www.cyberforum.ru/ perl-web/ thread1931134.html Perl Модуль Lingua::Translit Скачал я с CPAN'а модуль Lingua::Translit, но что то не пойму где брать к нему таблицы для перевода в транслит. Или я что то делаю не так? Пишу код: my $str = 'Новая статья про транслит.'; my $tr = new Lingua::Translit("GOST 7.79 RUS"); my $result; if ($tr->can_reverse()) { $result = $tr->translit($str); } Мне логи сервера говорят: https://www.cyberforum.ru/ perl-web/ thread1920602.html
Браузер и работа CGI скрипта Perl
Есть вот такой кусок кода на Perl'е, все бы хорошо, но он занимает достаточно продолжительное время и браузер завершает работу со скриптом раньше, чем успевает выполниться system($cmd2); в результате чего, весь следующий ниже код не выполнятся. Что с этим можно сделать? #запускаем .bat файл с переданным названием нашего файла, для создания базы и выгрузки файлов my $cmd1 = "conf1c1...
Perl Вывод print Всем привет! Есть вот такой кусок кода в CGI скрипте, все бы хорошо, но вместе с принтами выводится и текст написанный в батниках. Может кто подсказать, как сделать так, чтобы текст из батников не выводился, а выводились только принты? #Выводим сообщение об успешной загрузке print "Content-type: text/html\n\n"; print "Файл $name был успешно загружен!\n"; print "Выполняется обработка!"; ... https://www.cyberforum.ru/ perl-web/ thread1910754.html
Perl Не понимает русские названия при загрузке Есть html-страничка: <!DOCTYPE html> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1251"> <title>Test</title> </head> <body> https://www.cyberforum.ru/ perl-web/ thread1910128.html Perl Регулярное выражение, поиск последнего вхождения
Всем привет. Подскажите, пожалуйста, регулярное выражение для поиска последнего вхождения в многострочном тексте. Пример: my $str = ' 452452345длолдов Warning Text1 jalskdfjadfasdasf f23495823945 Warning Text2 0000000 adf Warning Text3 2352345
Perl Нужно выбрать тему для сайта на диплом https://www.cyberforum.ru/ perl-web/ thread1868979.html
Сайты больниц школ и т д нельзя нужно договоры уже голову сломал что выбрать
Perl Конкатенация переменных https://www.cyberforum.ru/ perl-web/ thread1861351.html
Добрый день! Прошу помощи не могу разобраться с конкатенацией переменных хешей вот так работает: $item3='item3'; ${html{'item1'}{'item2'}{"$item3"}}='ok'; print $html{'item1'}{'item2'}{'item3'}; а так уже нет:
Perl Веб-программирование. AJAX на Perl - это так просто!
здравствуйте, нифига не просто, пробовал пример http://linuxshare.ru/docs/perl/ajax.html там сказано: Поместите скрипт в корневой каталог вашего сайта и откройте его в браузере. Например, если ваш сайт имеет имя mydomain.com, то наберите в браузере http://mydomain.com/test.pl. Вы должны увидеть на странице поле ввода.-у меня почему то этот файл сразу идёт на закачку, что я не так сделал?
Perl Перл ВЭБ и Ворд на сайте залит файл Ворд -.doc иль .docx - ДАВАЙТЕ уж что попроще в нём есть закладки приведу пример текстов и как он обрамляется в Ворде -например закладка q1 -например закладка q2 -например закладка q3 так вот нужно оставить нужные участки-то есть закладки указываемые поштучно то есть через запятую, или промежутком через тире Перл это решает? есть пример кода? спс https://www.cyberforum.ru/ perl-web/ thread1851974.html
352 / 222 / 25
Регистрация: 30.09.2012
Сообщений: 548
31.03.2017, 10:36 0

Вложеное регулярное выражение - Perl - Ответ 10278800

31.03.2017, 10:36. Показов 2247. Ответов 14
Метки (Все метки)

Ответ

Попробуйте так
Perl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
#!perl
 
use strict;
use warnings;
 
my $txt = '<p>привет</p> &p_not& <p>привет1</p> <p>привет2</p> &p_not& <p>привет10</p> &p_not& <p>привет1</p> <p>привет2</p> &p_not& <p>привет11</p>';
 
$txt =~ s/((&p_not&)(.+?)\2)/@{[func($3)]}/mg;
 
print "$txt\n";
 
sub func {
    my $txt = shift;
    $txt =~ s/<\/?p>//mg;
    return $txt;
}
Удачи

Вернуться к обсуждению:
Вложеное регулярное выражение Perl
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.03.2017, 10:36
Готовые ответы и решения:

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

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

Регулярное выражение: содержит ли строка текст, соответствующий шаблону K-00000000
Коллеги, нужен небольшой хелп. нужно проверить, содержит ли строка текст соответствующий шаблону...

Написать регулярное выражение для выделения из строки только одного числа на определённой позиции
Товарищи, подскажите! Как написать рег. выражение для выделения из строки только одного числа на...

14
31.03.2017, 10:36
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
31.03.2017, 10:36
Помогаю со студенческими работами здесь

регулярное выражение
как обрезать строку до символов &quot; |&quot;? спасибо

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

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

Регулярное выражение
есть файл: &lt;body lang=3DRU link=3Dblue = vlink=3Dpurple&gt;&lt;div class=3DWordSection1&gt;&lt;p =...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru