Padre::File(3) User Contributed Perl Documentation Padre::File(3)NAMEPadre::File - Common API for file functions
DESCRIPTION
"Padre::File" provides a common API for file access within Padre. It
covers all the differences with non-local files by mapping every
function call to the currently used transport stream.
METHODS
"RegisterProtocol"
Padre::File->RegisterProtocol($RegExp, $Module);
Class method, may not be called on an object.
A plug-in could call "Padre::File->RegisterProtocol" to register a new
protocol to "Padre::File" and enable Padre to use URLs handled by this
module.
Example:
Padre::File->RegisterProtocol('^nfs\:\/\/','Padre::Plugin::NFS');
Every file/URL opened through "Padre::File" which starts with "nfs://"
is now handled through "Padre::Plugin::NFS". "Padre::File->new()" will
respect this and call "Padre::Plugin::NFS->new()" to handle such URLs.
Returns true on success or false on error.
Registered protocols may override the internal protocols.
"DropProtocol"
Drops a previously registered protocol handler. First argument must be
the same regular expression (matching a protocol from an URI) that was
used to register the protocol handler in the first place using
"RegisterProtocol". Similarly, the second argument must be the name of
the class (module) that the handler was registered for. That means if
you registered your protocol with
Padre::File->RegisterProtocol(qr/^sftp:\/\//, 'Padre::File::MySFTP');
then you need to drop it with
Padre::File->DropProtocol(qr/^sftp:\/\//, 'Padre::File::MySFTP');
Returns true if a handler was removed and the empty list if no handler
was found for the given regular expression.
"new"
my $file = Padre::File->new($File_or_URL);
The "new" constructor lets you create a new "Padre::File" object.
Only one parameter is accepted at the moment: The name of the file
which should be used. As soon as there are HTTP, FTP, SSH and other
modules, also URLs should be accepted.
If you know the protocol (which should be true every time you build the
URL by source), it's better to call "Padre::File::Protocol->new($URL)"
directly (replacing Protocol by the protocol which should be used, of
course).
The module for the selected protocol should fill "->{filename}"
property. This should be used for all further references to the file as
it will contain the file name in universal correct format (for example
correct the "C:\ eq C:/" problem on Windows).
Returns a new "Padre::File" or dies on error.
"atime"
$file->atime;
Returns the last-access time of the file.
This is usually not possible for non-local files, in these cases, the
empty list is returned.
"basename"
$file->basename;
Returns the plain file name without path if a path/file name structure
exists for this module.
"blksize"
$file->blksize;
Returns the block size of the file system where the file resides.
This is usually not possible for non-local files, in these cases, the
empty list is returned.
"blocks"
$file->blocks;
Returns the number of blocks used by the file.
This is usually not possible for non-local files, in these cases, the
empty list is returned.
"browse_mtime"
$file->browse_mtime($path_and_filename);
Returns the modification time of the given file on the remote server.
Leave out the protocol and server name for remote protocols, for
example
my $file = Padre::File->new('http://perlide.org/current/foo.html');
$file->browse_mtime('/archive/bar.html');
This returns the modification time of
"http://perlide.org/archive/bar.html"
The default uses one "Padre::File" clone per request which is a
reasonable fallback but very inefficient! Please add "browse_X" methods
to the subclass module whenever possible.
"browse_url_join"
$file->browse_url_join($server, $path, $basename);
Merges a server name, path name and a file name to a complete URL.
A "path" in this function is meant to be the local path on the server,
not the Padre path (which includes the server name).
You may think of
/tmp + padre.$$ => /tmp/padre.$$
C:\\temp + padre.$$ => C:\\temp\\padre.$$
...but also remember
http://perlide.org + about.html => http://perlide.org/about.html
Datapoint created a file syntax...
common + program/text => program/text:common
This could happen once someone adds a "Padre::File::DBCFS" for using a
"DB/C FS" file server. "program" is the file name, "text" the extension
and "common" is what we call a directory.
The most common seems to be a "/" as the directory separator character,
so we'll use this as the default.
This method should care about merging double "/" to one if this should
be done on this file system (even if the default doesn't care).
"can_clone"
$file->can_clone;
Returns true if the protocol allows re-using of connections for new
files (usually from the same project).
Local files don't use connections at all, HTTP uses one-request-
connections, cloning has no benefit for them. FTP and SSH use
connections to a remote server and we should work to get no more than
one connection per server.
"can_delete"
$file->can_delete;
Returns true if the protocol allows deletion of files or false if it
doesn't.
"can_run"
$file->can_run;
Returns true if the protocol allows execution of files or the empty
list if it doesn't.
This is usually not possible for non-local files (which return true),
because there is no way to reproduce a save environment for running a
HTTP or FTP based file (they return false).
"clone"
my $clone = $file->clone($File_or_URL);
The "clone" constructor lets you create a new "Padre::File" object
reusing an existing connection.
Takes the same arguments as the "new" method.
If the protocol doesn't know about (server) connections/sessions,
returns a brand new Padre::File object.
NOTICE: If you request a clone which is located on another server,
you'll
get a Padre::File object using the original connection to the
original server and the original authentication data but the
new
path and file name!
Returns a new "Padre::File" or dies on error.
"clone_file"
my $clone = $file->clone_file($filename_with_path);
my $clone = $file->clone_file($path,$filename);
The "clone" constructor lets you create a new "Padre::File" object
reusing an existing connection.
Takes one or two arguments:
either the complete path + file name of an URL
or the path and file name as separate arguments
If the protocol doesn't know about (server) connections/sessions,
returns a brand new "Padre::File" object.
Returns a new "Padre::File" or dies on error.
"ctime"
$file->ctime;
Returns the last-change time of the inode (not the file!).
This is usually not possible for non-local files, in these cases, the
empty list is returned.
"delete"
$file->delete;
Removes the current object's file from disk (or whereever it's stored).
Should clear any caches.
"dev"
$file->dev;
Returns the device number of the file system where the file resides.
This is usually not possible for non-local files, in these cases, the
empty list is returned.
"dirname"
$file->dirname;
Returns the plain path without file name if a path/file name structure
exists for this module.
Returns the empty list on failure or undefined behaviour for the given
protocol.
"error"
$file->error;
Returns the last error message (like $! for system calls).
"exists"
$file->exists;
Returns true if the file exists. Returns false if the file doesn't
exist. Returns the empty list if unsure (network problem, not
implemented).
"filename"
$file->filename;
Returns the the file name including path handled by this object.
Please remember that "Padre::File" is able to open many URL types. This
file name may also be a URL. Please use the "basename" and "dirname"
methods to split it (assuming that a path exists in the current
protocol).
"gid"
$file->gid;
Returns the real group ID of the file group.
This is usually not possible for non-local files, in these cases, the
empty list is returned.
"inode"
$file->inode;
Returns the inode number of the file.
This is usually not possible for non-local files, in these cases, the
empty list is returned.
"mime"
$file->mime;
$file->mime('text/plain');
Returns or sets the MIME type of the file.
"mode"
$file->mode;
Returns the file mode (type and rights). See also: "stat" in perlfunc.
To get the POSIX file permissions as the usual octal number (as opposed
to a string) use:
use Fcntl ':mode';
my $perms_octal = S_IMODE($file->mode);
This is usually not possible for non-local files, in these cases, the
empty list is returned.
"mtime"
$file->mtime;
Returns the last-modification (change) time of the file.
"nlink"
$file->nlink;
Returns the number of hard links to the file.
This is usually not possible for non-local files, in these cases, the
empty list is returned.
"rdev"
$file->rdev;
Returns the device identifier.
This is usually not possible for non-local files, in these cases, the
empty list is returned.
"read"
$file->read;
Reads the file contents and returns them.
Returns the empty list on error. The error message can be retrieved
using the "error" method.
"servername"
$file->servername;
Returns the server name for this module - if the protocol knows about a
server, local files don't.
WARNING: The Padre "path" includes the server name in a protocol
dependent
syntax!
"size"
$file->size;
Returns the file size in bytes or the empty list if the method was not
implemented by the "Padre::File" subclass.
"stat"
$file->stat;
This emulates a stat call and returns the same values:
0 dev device number of file system
1 ino inode number
2 mode file mode (type and permissions)
3 nlink number of (hard) links to the file
4 uid numeric user ID of file's owner
5 gid numeric group ID of file's owner
6 rdev the device identifier (special files only)
7 size total size of file, in bytes
8 atime last access time in seconds since the epoch
9 mtime last modify time in seconds since the epoch
10 ctime inode change time in seconds since the epoch (*)
11 blksize preferred block size for file system I/O
12 blocks actual number of blocks allocated
A module should fill as many items as possible, but if you're thinking
about using this method, always remember
1. Usually, you need only one or two of the items, request them
directly.
2. Besides from local files, most of the values will not be accessible
(resulting in empty lists/false returned).
3. On most protocols these values must be requested one-by-one, which
is very expensive.
Please always consider using the function for the value you really need
instead of using "stat"!
"uid"
$file->uid;
Returns the real user ID of the file owner.
This is usually not possible for non-local files, in these cases, the
empty list is returned.
"write"
$file->write($Content);
$file->write($Content,$Coding);
Writes the given $Content to the file, if a encoding is given and the
protocol allows encoding, it is respected.
Returns 1 on success. Returns 0 on failure. Returns the empty list if
the function is not available on the protocol.
INTERNAL METHODS
"_info"
$file->_info($message);
Shows $message to the user as an information. The output is guaranteed
to be non-blocking and messages shown this way must be safe to be
ignored by the user.
Doesn't return anything.
perl v5.14.1 2011-06-18 Padre::File(3)