Неа, так тоже не прокатит, во первых надо ^ надо наверное заменить на ^|\n, а во вторых это тока для alphanumeric-символов, т.е. если к примеру встретится слово "++" то регулярка его пропустит ( зы. Только что поигрался с тем что ты предложил, тока немного поправив $data =~ s/\n\w{1,2}\n//gm, всеравно пропускает слова длинною <=2 в случае если они идут друг за другом. Запутался я совсем чегото
Как не то ? , регулярное выражение полностью соответствует критериям выше #739 . модификатор /m - Разрешает ^ и $ устанавливать соответствие рядом со встроенным \n . Вот если бы встретилось , слово "++" в посте #739 , тогда была б другая регулярка =) Экстрасенсов нету , задаём правильные вопросы - получаем правильные ответы
Спасибо, разобрался ) Не знал про модификатор /m. В итоге получил следующие $data=~s/^.{1,2}$//gm; , работает на ура
А не подскажет кто нибудь пример скрипта для преобразования HTML -> PlainText, желательно с каментами
не, это не то. а с преобразованием я кста разобрался, обошлось все одной регуляркой ) $data=~s/<.*?>/ /g;
Подскажите как прочитать удалённый файл? например http://www.google.ru/intl/en_com/images/logo_plain.png или хотя бы скачать его
need your help)) как приконектитса к popСерверу(например, mail.ru) с логином, и паролем, и достать количество писем, потом прочитать каждое письмо.. а?))
Примерно так use Net:OP3; $login = "vasya"; $pwd = "petya"; $pop = Net:OP3->new('pop.mail.ru', Timeout => 60); if ($pop->login($login, $pwd) > 0) { my $msgnums = $pop->list; foreach my $msgnum (keys %$msgnums) { my $msg = $pop->get($msgnum); print $msg; } $pop->quit; }
Kiami, СПАСИБО!!! подключается к pop, авторизуетса, а вот дальше что творит..)) выводит что количество писем: HASH(0x1a8a2e0) и потом каждое письмо выводит вот так: ARRAY(0x1eac944) как преобразовать в нормальный формат?или сделать читабельным?))
Модули где они хранятся и как их добавлять? Tk ??? Perl -e "use Tk" а его нету) Откуда его слить, и как он станица?