The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

NAME

JPEG::JFIF - JFIF/JPEG tags operations.

VERSION

JFIF.pm v. 0.12

CHANGES

0.12 - Closed ticket #40161
0.11 - added function getdata_all to retrieve all data as hash from file and some new fields (by Viljo Marrandi)
0.10 - rewrite code to support older and newest Adobe Photoshop JPEG/JFIF formats, and to have better API.
0.9.3  - another rule to workaround for that stupid 0x00 in APP14 (I couldn't find it in JFIF documentation)
0.9 - fix caption add 0x00 in some situations. I don't know what it is, But have to be.
0.8 - can set comment (Caption) tag correctly (hihi)
0.7 - can read all metatags

SYNOPSIS

This module can read additional info that is set by Adobe Photoshop in jpeg files (JFIF/JPEG format)

DESCRIPTION

This module can read additional info that is set by Adobe Photoshop in jpeg files (JFIF/JPEG format) Available sections name for getdata(name) are :

	object_name
	urgency
	category
	supplemental_categories
        photostation_ident
	keywords
	special_instructions
	byline_title
	created_time
        photostation_orig
	byline
	city
	province_state
	country_name
	original_transmission_reference
	headline
	credit
	source
        copyright_notice
	caption
	caption_writer
        photostation_note
        photostation_info

EXAMPLE

#!/usr/bin/perl

use JPEG::JFIF;
use strict;

my $jfif = new JPEG::JFIF;
# this give you "caption" tag content.
$jfif->read("file.jpg");
print $jfif->getdata("caption"); 

COPYRIGHT AND LICENCE

Copyright 2002-2008 Marcin Krzyzanowski Licence : Lesser General Public License v. 2.0

AUTHOR

Marcin Krzyzanowski <krzak at hakore.com> http://www.hakore.com/