
pgetfinfo -- GetFileInfo, implemented as perl script

pgetfinfo [-a[<attrib-letter>] | -t | -c | -d | -m] <path>

When no switch is set, all avaible information on the path specified is printed to STDOUT.
Prints attributes only. When no attrib-letter is specified, it prints all attributes. If spefifed, it prints "1" if any one the attribute is set or "0" otherwise.
Attrib-letters are as follows;
A Alias file V Invisible* B Bundle S System (name locked) T Stationary C Custom icon* L Locked I Inited* N No INIT resources M Shared (can run multiple times) E Hidden extension* D Desktop*
Note: Options/attributes marked with an asterisk (*) are allowed with folders
prints file type only
prints file creator only.
prints creation date only
prints modification date only

Dan Kogai <dankogai@dan.co.jp>

File::Copy "Developer/Tools/GetFileInfo" "Developer/Tools/SetFile"

Copyright 2002-2005 Dan Kogai <dankogai@dan.co.jp>
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.