Добро пожаловать,
Гость
. Пожалуйста,
войдите
или
зарегистрируйтесь
.
Не получили
письмо с кодом активации
?
1 час
1 день
1 неделя
1 месяц
Навсегда
Новости:
Начало
Помощь
Поиск
Календарь
Вход
Регистрация
Forum Webscript.Ru
»
Программирование
»
Perl
»
парсим атачи в письме. Или немного о MIME::Base64
« предыдущая тема
следующая тема »
Печать
Страницы:
1
[
2
]
Вниз
Автор
Тема: парсим атачи в письме. Или немного о MIME::Base64 (Прочитано 9344 раз)
0 Пользователей и 1 Гость просматривают эту тему.
Skif
Фанат форума
Постоялец
Сообщений: 187
+0/-0
0
парсим атачи в письме. Или немного о MIME::Base64
«
Ответ #15 :
25 Июля 2005, 18:03:02 »
В принципе по тому же примеру тоже делал:
next
if
$part
->
head
->
get
(\
'Content-Type\') =~ m/^text/i ;
my $part_headline = $part->head->get(\'Content-disposition\');
next if !$part_headline;
next if ( $part_headline !~ m/filename="(.*)"/ );
$part_headline = $1;
my $io = $part->bodyhandle->open(\'r\');
open( TMP , ">>c:\\\\tmp.zip" );
while (my $line = $io->getline ) {
print ( TMP $line);
}
close( TMP );
эффект тот же - файл битый. Хотя в темповой папке,в которую ложит все MIME::Parser находиться абсолютно нормальный зипованный файл.
Вот и не пойму, как быть?
«
Последнее редактирование: 25 Июля 2005, 18:08:16 от Skif
»
Записан
Всё будет хорошо - я договорился!
ondr
Модератор
Глобальный модератор
Старожил
Сообщений: 440
+0/-0
0
парсим атачи в письме. Или немного о MIME::Base64
«
Ответ #16 :
26 Июля 2005, 02:21:28 »
perldoc -f binmode ?
Записан
0 OK, 0:1
Skif
Фанат форума
Постоялец
Сообщений: 187
+0/-0
0
парсим атачи в письме. Или немного о MIME::Base64
«
Ответ #17 :
26 Июля 2005, 11:10:26 »
Тормоз, кретин, балбес.... Стыдно...
СПАСИБО, оно самое.
Записан
Всё будет хорошо - я договорился!
Skif
Фанат форума
Постоялец
Сообщений: 187
+0/-0
0
парсим атачи в письме. Или немного о MIME::Base64
«
Ответ #18 :
26 Июля 2005, 11:20:54 »
Весь прикол, что если включить binmode, то можно обойтись одним MIME::Base64...
не устаю себе поражаться
Записан
Всё будет хорошо - я договорился!
Печать
Страницы:
1
[
2
]
Вверх
« предыдущая тема
следующая тема »
Forum Webscript.Ru
»
Программирование
»
Perl
»
парсим атачи в письме. Или немного о MIME::Base64
Sitemap
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28