Section: User Contributed Perl Documentation (3pm)
my $mc = new Mail::Cap; $desc = $mc->description('image/gif'); print "GIF desc: $desc\n"; $cmd = $mc->viewCmd('text/plain; charset=iso-8859-1', 'file.txt');
$typerefers to the MIME type as specified in the
"Content-Type"header of mail or HTTP messages. Examples of types are:
image/gif text/html text/plain; charset=iso-8859-1
You could also take a look at the File::MimeInfo distribution, which are accessing tables which are used by many applications on a system, and therefore have succeeded the mail-cap specifications on modern (UNIX) systems.
-Option --Default filename undef take 'FIRST'
$mcap = new Mail::Cap; $mcap = new Mail::Cap "/mydir/mailcap"; $mcap = new Mail::Cap filename => "/mydir/mailcap"; $mcap = new Mail::Cap take => 'ALL'; $mcap = Mail::Cap->new(take => 'ALL');:
1if a command was found, and
0otherwise. You might test
$?for the outcome of the command.
"undef"if no suitable specification exists.
Methods return the corresponding mailcap field for the type.
This module is part of the MailTools distribution, http://perl.overmeer.net/mailtools/.
The MailTools bundle was developed by Graham Barr. Later, Mark Overmeer took over maintenance without commitment to further development.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See http://www.perl.com/perl/misc/Artistic.html
Tutoriais de Tecnologia Web