Perl для IP-Телефонии (26 – MIМЕ::Tools, часть 20)

$path = $body->path( [$newpath])

Если данные тела объекта хранятся в файле, как при использовании модуля MIME::Body::File, метод path() возвращает путь к этому файлу или устанавливает его, если предусмотрен необязательный параметр $newpath. Если данные хранятся в памяти, метод возвращает значение undef.

$body->print([FILEHANDLE])

Метод print() выводит раскодированное тело сообщения в указанный дескриптор файла или, если он не указан, — в дескриптор файла, выбранный в настоящее время с помощью функции select(). Данный метод не следует путать с методом print(), предусмотренным для псевдодескрипторов, возвращаемых методом open(), который применяется для записи данных в объект тела сообщения.

$body- >purge

Метод purge() уничтожает файл, связанный с объектом тела сообщения, если для временного хранения данных применялся файл. Этот метод не вызывается автоматически при уничтожении объекта.

MIME::Parser. Последним важным компонентом пакета MIME::Tools является класс К MIME::Parser, который интерпретирует текстовое представление сообщения MIME, преобразовывая его в различные компоненты. Этот класс достаточно прост в использовании, но имеет большое число опций, которые управляют различными настройками его работы. Общее представление о том, как используется этот класс, можно получить, рассмотрев небольшой пример, представленный далее.#!/usr/local/bin/perl -w

# Файл:simple_parse.pl
use strict;
use MIME::Parser;
my $file = shift;
open F,$file or die "can’t open $file: $!n";
# Создать и настроить синтаксический анализатор
my $parser - MIME::Parser->new;
$parser->output_dir("/tmp");
# Интерпретировать, файл
my $entity = $parser->parse (*F) ;
print "From = ",$entity->head->get('From') ;
print "Subject = ",$entity->head->get('Subject') ;
print "MIME type = ", $entity->mime_type,. "n";
print "Parts = ", scalar $entity->parts,"n";
for my $part ($entity->parts) {
print "t",$part->mime_type,"t",:
$part->bodyhandle->path,"n";
}
$entity->purge;

2014-01-26 14:49:56

предыдущая часть ««

»» следующая часть