File::PathInfo::Ext - metadata files, renaming, some other things on top of PathInfo
use File::PathInfo::Ext;
my $f = new File::PathInfo::Ext('/home/myself/thisfile.pdf');
$f->meta_save({ keywords => 'salt, pepper, lemon, ginger' });
printf "keywords are: %s\n", $f->meta->{keywords};
$f->rename('thatfile.pdf');
printf "filename is now %s\n", $f->filename;
printf "keywords are still: %s\n", $f->meta->{keywords};
This extends File::PathInfo. Added is a simple api for YAML metadata files associated to the file the object instance is based on. Also a way to rename the file, and move the file- maintaining the metadata YAML file association.
This software is still under development.
These are added methods to the usual File::PathInfo methods.
takes no argument returns array ref of files (and dirs and everything else). No . and .. returns undef if it's not a dir
lsa() returns absolute paths, not just filename.
returns array ref of files (-f) in dir. returns undef if it's not a dir.
lsfa() returns absolute paths, not just filename.
returns array ref of dirs (-d) in dir. returns undef if it's not a dir.
lsda() returns absolute paths, not just filename.
number of entries in directory, returns undef if not a dir
number of directory entries in directory, returns undef if not a dir
number of file entries in directory, returns undef if not a dir
takes no argument, like get_meta() returns hash ref with metadata for file.
takes no argument, like set_meta returns true. Saves the current metadata to disk.
Takes no argument. Makes sure file does not have a meta file associated with it.
argument is absolute path to a directory to move to or argument is absolute destination of where to move to.
$f->move('/home/myself/newdocs/');
$f->move('/home/myself/newdocs/great.pdf');
If a trailing slash is present, then it is checked if it is a directory, and the file is move there.
If the destination exists, it will not move and carp that it already exists, returns false. (Note that after moving or renaming, the other file info is automatically updated, such as abs_loc() and rel_path() etc.) The meta file is moved also if it exists. That is part why one would consider using this move instead of File::Copy::move.
returns abs path of where the file moved to
Argument is new filename. New filename cannot have /\ characters, etc. This rename makes it so if you have a meta file, it is renamed also.
$f->rename('blah') or die'cant rename';
If the file you are renaming to already exists, a carps and returns false. It will not overrite an existing file. You must first delete the exisitng file or rename to something else.
I adore this little module. I use it a lot. Here are some examples of how to use it, and you'll see why I like it.
use File::PathInfo::Ext;
my $f = new File::PathInfo::Ext('/home/myself/documents/doc1.pdf');
$f->meta_save({ title => 'great title here', keywords => [qw(food spices mice cats)]});
This creates the YAML file '/home/myself/documents/.doc1.pdf.meta':
---
title: 'great title here'
keywords:
- food
- spices
- mice
- cats
So if you call meta(), you get the title. This is really useful if you want to be able to simply add info to a file via vim or notepad.
What if you don't want to have the files hidden, and you want to use another extension?
use File::PathInfo;
File::PathInfo::Ext::META_EXT = 'data';
File::PathInfo::Ext::META_HIDDEN = 0;
my $f = new File::PathInfo('/home/myself/documents/doc1.pdf');
$f->meta_save({ title => 'great title here', keywords => [qw(food spices mice cats)]});
And then..
printf "Title for this file %s\n", $f->meta->{title};
Add some more stuff
$f->meta->{age} = 24;
$f->meta->{state} = 'WY';
And save it
$f->meta_save;
To erase it
$f->meta_delete
Furthermore what if you want to rename the file without losing the metadata (which is associated by filename)
$f->rename('newname.whatever');
A more real world example. If you're a unix minion like me, you swear by the cli. So, I want to be able to edit metadata with vim for anything. Maybe I'm keeping an archive of scanned documents.. and I want to remember that file /home/docs/document1.pdf is authored by Joe, and that it's a replacement for another file. So I simply do 'vim /home/docs/.document1.pdf.meta' and enter:
---
author:joe
description: this is not the original. The other one got eaten by my dog.
You can see how useful this can be if you're maintaining a client website, or a large archive of mundane data.
None of these are exported by default.
argument is absolute path to a file on disk returns metadata hash if found. (YAML).
argument is absolute path and hash ref with metadata if the hash ref is empty, will attempt to delete existing metadata file.
does NOT check to see if the file exists.
set_meta('/home/file',{ name => 'hi', age => 4 });
Above example creates meta file '/home/file.meta' :
---
name: hi
age: 4
If you wish all metadata files to be hidden;
use File::PathInfo;
File::PathInfo::META_HIDDEN = 1;
See also: YAML
argument is absolute path to file the meta is for. will delete hidden as well as non-hidden meta.
delete_meta('/home/myself/document');
Deletes /home/myself/document.meta and /home/myself/.document.meta This is just to assure a file does not have metadata anymore.
returns md5 sum of file contents, cached in object {_data} if getting the md5sum digest does not work, returns undef see Digest::MD5
See also File::PathInfo, YAML, File::Attributes, File::Copy.
Metadata files can be hidden (prepended by period).
File::PathInfo::Ext::META_HIDDEN = 1;
Metadata ext, by default .meta
File::PathInfo::Ext::META_EXT = meta;
Debug
File::PathInfo::Ext::DEBUG = 1;
Yes. No doubt. Please forwards any bug detection to author.
Leo Charre leocharre at cpan dot org
Will not work on non-posix systems.
