File::Properties - Perl module representing properties of a disk file
use File::Properties; my $fpc = File::Properties->cache('cache.db'); my $fp = File::Properties->new('/path/to/file', $fpc); print "File properties:\n" . $fp->string . "\n"; An alternative approach is to use the File::Properties::PropsCache module for construction of the cache and File::Properties objects: use File::Properties::PropsCache; my $fpc = File::Properties::PropsCache->new('cache.db'); my $fp = $fpc->properties('/path/to/file'); print "File properties:\n" . $fp->string . "\n";
File::Properties is a Perl module representing properties of a disk file, with emphasis on media files.
This module provides a class representing properties of a disk file, with particular emphasis on media (image, video, and audio) files. The mime type and a SHA-2 digest can be computed for any regular file, and these properties are also available for the content of bzip2 and gzip compressed files. Media file properties consist of mime type and file type as extracted by Image::Exiftool, the media type ('image', 'video', or 'audio'), the modification date, and a hash representing the full EXIF data. For image files, a digest of the image pixel data is also available. If a reference to a File::Properties::Cache object is specified in the constructor, access to the properties is via the cache. Most of the methods are inherited from File::Properties::Media, from which it is derived.
my $fp = File::Properties->new($path, $fpc);
Constructs a new File::Properties object.
print "Canonical path: " . $fp->path . "\n";
Determine the canonical path of the represented file. This method is inherited from the File::Properties::Generic base class.
print "Device number: " . $fp->device . "\n";
Determine the device number of the represented file. This method is inherited from the File::Properties::Generic base class.
print "Inode number: " . $fp->inode . "\n";
Determine the inode number of the represented file. This method is inherited from the File::Properties::Generic base class.
print "File size: " . $fp->size . "\n";
Determine the size of the represented file. This method is inherited from the File::Properties::Generic base class.
print "Modification time: " . $fp->mtime . "\n";
Determine the modification time of the represented file. This method is inherited from the File::Properties::Generic base class.
print "File mode: " . $fp->mode . "\n";
Determine the file mode integer (representing permissions and type) for the represented file. This method is inherited from the File::Properties::Generic base class.
my $chsh = $fpg->children;
If the represented file is a directory, return a hash mapping file names within that directory to corresponding File::Properties object references. This method is inherited from the File::Properties::Generic base class.
print (($fp->isreg)?"Is regular file\n":"Not regular file\n");
Determine if the represented file is a regular file. This method is inherited from the File::Properties::Generic base class.
print (($fp->isdir)?"Is directory\n":"Not directory\n");
Determine if the represented file is a directory. This method is inherited from the File::Properties::Generic base class.
print "Media mime type: " . $fp->mmimetype . "\n";
Determine the media mime type of the represented file. This is the mime type determined by Image::Exiftool if the file is a media file, otherwise it is the same as the value returned by the cmimetype method. This method is inherited from the File::Properties::Media base class.
print "Content mime type: " . $fp->cmimetype . "\n";
Determine the content mime type of the represented file. This is the mime type of the compressed content for a gzip or bzip2 compressed file, otherwise it is the same as the value returned by the mimetype method. This method is inherited from the File::Properties::Compressed base class.
print "Mime type: " . $fp->mimetype . "\n";
Determine the mime type of the represented file. This method is inherited from the File::Properties::Regular base class.
print "Media file type: " . $fp->mfiletype . "\n";
Determine the media file type, determined by Image::Exiftool, of the represented file. This method is inherited from the File::Properties::Media base class.
print "Media type: " . $fp->mediatype . "\n";
Determine the media type (the initial part of mime type, e.g. 'image') of the represented file. This method is inherited from the File::Properties::Media base class.
print "Image digest: " . $fp->idigest . "\n";
Determine a SHA-2 digest of the pixel data in an image file.
print "Content digest: " . $fp->cdigest . "\n";
Determine the file content digest for the represented file. This is a SHA-2 digest of the compressed content for a gzip or bzip2 compressed file, otherwise it is the same as the value returned by the digest method. This method is inherited from the File::Properties::Compressed base class.
print "File digest: " . $fp->digest . "\n";
Determine a SHA-2 digest of the represented file. This method is inherited from the File::Properties::Regular base class.
print "Modification date: " . $fp->datemod . "\n";
Determine the EXIF modification date. This method is inherited from the File::Properties::Media base class.
my $exh = $fpm->exifhash;
Return a hash mapping EXIF tags names to their values. This method is inherited from the File::Properties::Media base class.
print "Is a compressed file\n" if ($fp->iscompressed);
Determine whether the file is a gzip or bzip2 compressed file. This method is inherited from the File::Properties::Compressed base class.
print "Is a media file\n" if ($fp->ismedia);
Determine whether the file is a media file. This method is inherited from the File::Properties::Media base class.
print "Is an image file\n" if ($fp->isimage);
Determine whether the file is an image file.
print $fp->string . "\n";
Construct a string representing the object data.
if ($fp->cachestatus) { printf("All properties were retrieved from cache\n"); } elsif ($fp->cachestatus( $File::Properties::Regular::CacheTableName) { printf("Regular file properties were retrieved from cache\n"); }
Determine whether properties were retrieved from the cache
$fp->_cacheinit($fpc, $options_hash);
Initialise the regular file properties cache table in the cache referred to by the File::Properties::Cache reference argument.
$fp->_cacheexpire($fpc, 365);
Remove all cache data older (based on insertion date) than the specified number of days.
$fp->_cacheclean($fpc);
Remove all cache data for which the corresponding files can no longer be found on disk.
This initial release of the module has not been extensively tested, but is released in its current state in the hope that others may find it useful. While they will be avoided as far as possible, incompatible interface changes may become necessary in a later release.
File::Properties::Cache, File::Properties::Media, File::Properties::Image
Brendt Wohlberg <wohl@cpan.org>
Copyright (C) 2010,2011 by Brendt Wohlberg
This library is available under the terms of the GNU General Public License (GPL), described in the LICENSE file included in this distribution.
To install File::Properties, copy and paste the appropriate command in to your terminal.
cpanm
cpanm File::Properties
CPAN shell
perl -MCPAN -e shell install File::Properties
For more information on module installation, please visit the detailed CPAN module installation guide.