TikTik, в логе же написано - модуль не установлен, потому что не прошел make test. Что неудивительно, поскольку он уже не поддерживается два года. Если очень хочется установить, надо написать force install ... На твоём месте я бы использовал Tk(x), Gtk2 или Qt. К тому же они кроссплатформенные. Если ты не видишь для себя преимуществ перла перед питоном - пиши на последнем, никто же не заставляет.
Здравствуйте,у меня такой вопрос возможно ли средствами perl узнать включен ли javascript у пользователя в браузере?
такая проблема: есть текст в кодировке windows-1251, к нему не получается применить регулярные выражения, содержащие русские буквы. перекодировал текст в utf8, но всё равно не получается.
Flood Люди стал писать скрипт флуда в ирке..Но получилось только что бот флудить в самом канале,а мне надо чтобы он(и) заходили на канал и флудили командой /notice как это сделать?
Учу Perl вопрос как оформить текст картинки чтоб на mail приходила картинка пробуя перед кавычками ставить \слешь все ровно не получается Большое колчество текста и много картинок
Не очень понятен вопрос, но значение переменной (текст) надо в кавычки брать: $msg .= '<img src="http://Картинка/images/1271510214_3.jpg" alt="image">';
просто приходит не картинка а текст Иммею ввиду какие теги нужно сделать чтоб в письме отображалась картинка а не куча тегов с адресом картинки
TikTik, видимо письмо отправляется в текстовом формате а не в формате html... А каким образом идёт отправка письма, через какую-то функцию типа php-шной mail() или как..?! Если ты сам задаёшь в скрипте заголовки письма, попробуй указать Content-type: text/html, то есть формат html... или выложи скрипт, посмотрим...
как произвести поиск в файле отдельного предложения вот такой вот код первые мои потуги в Perl Code: #!/usr/bin/perl use CGI::Carp qw(fatalsToBrowser); use LWP::Simple; $doc = get("cайт.ру"); open(FILE, '+>file.txt') or die ("Ошибка $!"); print FILE "$doc"; дальше мне надо наити предлоджение к примеру: вы получили 1 очко какую функцию использовать для поиска этого предложения
Регулярные выражения понятно но меня интересует как мне зайти в этот файл должна же быть какаято функция ??? Я не понимаю как мне начать поиск шаблон я поиска я составить думаю смогу а вот как мне начать искать именно в этом файле ?? Или в моем случае можно начать искать прям в переменной ??
Code: #!/usr/bin/perl use LWP::UserAgent; my $u = new LWP::UserAgent; open (FILE, '<', 'site.txt') or die $!; - тут урл сайта while(<FILE>) { chomp; my $page = $u->get($_)->content; open F, '>>', 'parsing.txt'; if ($page =~ /регулярка/) { print F $1.$/; } close F; } close FILE; Так по идее должно работать
да не осилю я вот сейчас опять перечитаваю книгу раздел регулярные выражения примерно всё понял не могли бы вы помочь мне составить шаблон для поиска, для примера если можно объяснениями чтоб я мог разобраться на конкретном примере буду очень благодарен просто башка не варит не фига как это все примерно понимаю но сделать не сомгу Code: #!/usr/bin/perl use CGI::Carp qw(fatalsToBrowser); use LWP::Simple; $doc = get("Сайт.py"); мне нужно вытащить вот это предложение на конкретном примере я пойму думаю быстрей А то сижу смотрю как баран на новые ворота вроде и понятно и в тоже время нечего не понятно
TikTik Code: #!/usr/bin/perl use warnings; use strict; use utf8; use CGI::Carp qw(fatalsToBrowser); use LWP::Simple; my $pattern = qr{User <em>(?<login>[^<]++)</em> <em>получено</em> <em>(?<score>\d++)</em> очко Total now is <em>(?<total>\d++)</em> всего очков</div>}; my $content = get('http://example.com'); if ($content =~ $pattern) { local $, = '::'; local $\ = "\n"; print @+{qw(login score total)}; } Только при выводе в браузер заголовки не забывать.
