VPF::Глобальный поиск. - Форум программистов

dixoNICH

Дата 23.4.2011, 16:54 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 222
Регистрация: 20.3.2011

Репутация: нет
Всего: нет

Есть сообщение, полученное с помощью pop3.
Хочу выделить название файла и принять его.

Код


$invitation=~/Content-Disposition:\sattachment;\sfilename="(.*)"/g; 
                    $filename=$1;
                    open S, ">$filename";
                    close S;

в общем, выделяет, но только первый файл, если есть ещё, то не выделяет его, и соответственно данный файл не создаётся.

Pfailed

Дата 23.4.2011, 18:22 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 933
Регистрация: 19.7.2009

Репутация: 6
Всего: 39

Цикл забыли

Код


while ($invitation=~/Content-Disposition:\sattachment;\sfilename="(.*)"/g) { 
                    $filename=$1;
                    open S, ">$filename";
                    close S;
}

--------------------

I'm on CPAN
I'm on github

dixoNICH

Дата 24.4.2011, 14:51 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 222
Регистрация: 20.3.2011

Репутация: нет
Всего: нет

спасибо) я как-то не подумал о таком)

dixoNICH

Дата 25.4.2011, 21:47 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 222
Регистрация: 20.3.2011

Репутация: нет
Всего: нет

ещё одна проблема похожего плана

Код


if($invitation=~/From:\s=\?KOI8-R\?B\?(.*)\?=\p{isPrint}+/){
                    $a=$1;
                    $s=decode_base64($a);
                    Encode::from_to($s, "KOI8-R", "cp1251");
                    print F "From : $s $2\n";
                    }
                    elsif($invitation=~/From:\s(.+)/){print F "From : $1\n";}

есть такой код, он выделяет строки в кои8-р и делает из них cp1251, если не подходит, то просто печатает, то, что в "From";
проблема : у меня на почте 8 сообщений с русским текстом в "From", соответственно должно декодироваться 8, но, получается так :

Код


Number : 1
Octets : 79186
From : Max <***@gmail.com>

<--------------------------->
Number : 2
Octets : 2823
From : Max  <***@gmail.com>

<--------------------------->
Number : 3
Octets : 2631
From : Max  <***@gmail.com>

<--------------------------->
Number : 4
Octets : 2568
From : Max  <***@gmail.com>

<--------------------------->
Number : 5
Octets : 2417
From : Max  <***@gmail.com>

<--------------------------->
Number : 6
Octets : 2423
From :  Ярослав  <***@gmail.com>

<--------------------------->
Number : 7
Octets : 2400
From :  Ярослав  <***@gmail.com>

<--------------------------->
Number : 8
Octets : 2396
From :  Ярослав  <***@gmail.com>

<--------------------------->
Number : 9
Octets : 2409
From :  Ярослав  <***@gmail.com>

<--------------------------->

первое сообщение всё ок, так и должно быть, но после него все должны быть ввиде From : Ярослав <***@gmail.com>

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Регулярные выражения \| Следующая тема »