Badger::Filesystem::File

NAME

Top Close Open

Badger::Filesystem::File - file object

SYNOPSIS

Top Close Open
# using Badger::Filesytem constructor subroutine
use Badger::Filesystem 'File';

# use native OS-specific paths:
$file = File('/path/to/file');

# or generic OS-independent paths
$file = File('path', 'to', 'file');

# manual object construction
use Badger::Filesystem::File;

# positional arguments
$file = Badger::Filesystem::File->new('/path/to/file');
$file = Badger::Filesystem::File->new(['path', 'to', 'file']);

# named parameters
$file = Badger::Filesystem::File->new(
    path => '/path/to/file'             # native
);
$file = Badger::Filesystem::File->new(
    path => ['path', 'to', 'file']      # portable
);

# path inspection methods
$file->path;                    # full path
$file->name;                    # file name
$file->directory;               # parent directory
$file->dir;                     # alias to directory()
$file->base;                    # same thing as directory()
$file->volume;                  # path volume (e.g. C:)
$file->is_absolute;             # path is absolute
$file->is_relative;             # path is relative
$file->exists;                  # returns true/false
$file->must_exist;              # throws error if not
@stats = $file->stat;           # returns list
$stats = $file->stat;           # returns list ref

# path translation methods
$file->relative;                # relative to cwd
$file->relative($base);         # relative to $base
$file->absolute;                # relative to filesystem root
$file->definitive;              # physical file location
$file->collapse;                # resolve '.' and '..' in $file path

# path comparison methods
$file->above($another_path);    # $file is ancestor of $another_path
$file->below($another_path);    # $file is descendant of $another_path

# file manipulation methods
$file->create;                  # create file
$file->touch;                   # create file or update timestamp
$file->delete;                  # delete file
$fh = $file->open($mode);       # open file (for read by default)
$fh = $file->write;             # open for write
$fh = $file->append;            # open for append;

# all-in-one read/write methods
@data = $file->read;            # return list of lines
$data = $file->read;            # slurp whole content
$text = $file->text;            # same as read();
$file->write(@content);         # write @content to file
$file->append(@content);        # append @content to file

DESCRIPTION

Top Close Open

The Badger::Filesystem::File module is a subclass of Badger::Filesystem::Path for representing files in a file system.

You can create a file object File constructor function in Badger::Filesystem.

use Badger::Filesystem 'File';

File paths can be specified as a single string using your native filesystem format or as a list or reference to a list of items in the path for platform-independent paths.

my $file = File('/path/to/file');

If you're concerned about portability to other operating systems and/or file systems, then you can specify the file path as a list or reference to a list of component names.

my $file = File('path', 'to', 'file');
my $file = File(['path', 'to', 'file']);

You can specify a reference to a hash array of additional configuration items as the final argument. At present, there is are two configuration options. The first, encoding, can be use to specify the encoding of the file. This is applied through Perl's IO layer encodings. See perldoc binmode for further information.

my $file = File('path' , 'to', 'file', { encoding => 'utf8' });

The other option is codec. This allows you to define the name of a Badger::Codec which will be used to serialise data to and from the file via the data() method.

my $file = File('path' , 'to', 'file', { codec => 'storable' });

# save some data, automatically serialised via Storable (freeze)
$file->data({
    message => 'Hello World',
    numbers => [1.618, 2.718, 3.142],
});

# later... load data again and automatically de-serialise (thaw)
$data = $file->data;
print $data->{ message }, "\n";             # Hello World
print join(', ', @{ $data->{ numbers } });  # 1.618, 2.718, 3.142

METHODS

Top Close Open

In addition to the methods inherited from Badger::Filesystem::Path, the following methods are defined or re-defined.

init(\%config)

Top Close Open

Customised initialisation method specific to files.

volume() / vol()

Top Close Open

Returns any volume defined as part of the path. This is most commonly used on MS Windows platforms to indicate drive letters, e.g. C:.

directory() / dir() / base()

Top Close Open

Returns the directory portion of the file path. This can also be used with an argument to locate another directory relative to this file.

my $file = File('/path/to/file');
print $file->dir;                   # /path/to
print $file->dir('subdir');         # /path/to/subdir

name()

Top Close Open

Returns the file name portion of the path.

file()

Top Close Open

When called without arguments, this method simply returns the file object itself. It can also be called with an argument to locate another file relative to the directory in which the current file is located.

my $file = File('/path/to/file1');
print $file->file;                   # /path/to/file1
print $file->file('file2');          # /path/to/file2

exists

Top Close Open

Returns true if the file exists in the filesystem. Returns false if the file does not exists or if it is not a file (e.g. a directory).

is_file()

Top Close Open

This method returns true for all Badger::Filesystem::File instances.

create()

Top Close Open

This method can be used to create the file if it doesn't already exist.

touch()

Top Close Open

This method can be used to create the file if it doesn't already exist or update the timestamp if it does.

open($mode,$perms)

Top Close Open

This method opens the file and returns an IO::File handle to it. The default is to open the file for read-only access. The optional arguments can be used to specify a different mode and default permissions for the file (these arguments are forwarded to IO::File).

my $fh = $file->open;       # read
my $fh = $file->open('w');  # write

read()

Top Close Open

This method read the content of the file. It is returned as a single string in scalar context and a list of each line in list context.

my $text  = $file->read;
my @lines = $file->read;

write(@content)

Top Close Open

When called without arguments this method opens the file for writing and returns an IO::File handle.

my $fh = $file->write;
$fh->print("Hello World!\n");
$fh->close;

When called with arguments, the method opens the file, writes the argument to it, and then closes the file again.

$file->write("Hello World!\n");

copy($to, %params) / copy_to($to, %params)

Top Close Open

This method copies the file to the new location specified by the first argument. It delegates to the copy_file() method in Badger::Filesystem.

$file->copy('/some/where/else');

The destination can be specified as a file name, file object or file handle. An optional list of reference to a hash array of named parameters can follow.

$file->copy(
    '/some/where/else' => {
        mkdir     => 1,         # create intermediate directories
        dir_mode  => 0775,      # permissions for created directories
        file_mode => 0664,      # permissions for created file
    }
);

copy_from($from, %params)

Top Close Open

Like copy_to() but working in reverse.

$target_file->copy_from( $source_file );

move($to, %params) / move_to($to, %params)

Top Close Open

This method moves the file to the new location specified by the first argument. It delegates to the copy_file() method in Badger::Filesystem.

$file->move('/some/where/else');

Arguments are as per copy().

move_from($from, %params)

Top Close Open

Like move_to() but working in reverse.

$target_file->move_from( $source_file );

print(@content)

Top Close Open

This method concatentates all arguments into a single string which it then forwards to the write() method. This effectively forces the write() method to always write something to the file, even if it's an empty string.

$file->print("hello");      
$file->print(@stuff);       # works OK if @stuff is empty

append(@content)

Top Close Open

This method is similar to write(), but opens the file for appending (when called with no arguments), or appends any arguments to the end of the file.

# manual open, append, close
my $fh = $file->append;
$fh->print("Hello World!\n");
$fh->close;

# all-in-one
$file->append("Hello World\n");

delete()

Top Close Open

This method deletes the file permanently. Use it wisely.

text()

Top Close Open

This method is a wrapper around the read() method which forces scalar context. The content of the file is always returned as a single string. NOTE: future versions will probably return this as a text object.

accept($visitor)

Top Close Open

This method is called to dispatch a visitor to the correct method for a filesystem object. In the Badger::Filesystem::File class, it calls the visitor visit_file() method, passing the $self object reference as an argument.

encoding($enc)

Top Close Open

This method can be used to get or set the encoding for the file.

$file->encoding(':utf8');

The encoding will affect all operations that read data from, or write data to the file.

TODO: note that you can call encoding() on a directory or filesystem to make that the default for all files contained therein

utf()

Top Close Open

A method of convenience to set the file's encoding to UTF-8.

$file->utf8;

It has the same affect as calling the encoding() method with an argument of :utf8. See perldoc -f binmode for further information.

# same
$file->encoding(':utf8');

The method returns the file object itself, so can be used in a chain.

$file->utf8->must_exist.

bytes()

Top Close Open

Like utf8(), this is a method of convenience to set the file encoding to :bytes.

crlf()

Top Close Open

Like utf8(), this is a method of convenience to set the file encoding to :crlf.

raw()

Top Close Open

Like utf8(), this is a method of convenience to set the file encoding to :raw.

codec()

Top Close Open

This method can be used to get or set the codec used to serialise data to and from the file via the data() method. The codec should be specified by name, using any of the names that Badger::Codecs recognises or can load.

$file->codec('storable');

# first save the data to file
$file->data($some_data_to_save);

# later... load the data back out
my $data = $file->data;

You can use chained codec specifications if you want to pass the data through more than one codec.

$file->code('storable+base64');

See Badger::Codecs for further information on codecs.

TODO: note that you can call codec() on a directory or filesystem to make that the default for all files contained therein

data(@data)

Top Close Open

This method is used to read or write serialised data to and from the file. When called with arguments, the method serialises the data through any codec() defined and writes it to the file. A single argument should be a reference to an array or hash array.

$file->data({               # either: HASH reference
    e   => 2.718,
    pi  => 3.142,
    phi => 1.618,
});

$file->data([               # or: ARRAY reference
    2.718,
    3.142,
    1.618
]);

If multiple arguments are specified then they are implicitly converted to a list reference.

$file->data(                # same as ARRAY reference above
    2.718,
    3.142,
    1.618
);

When called without any arguments the method will read the data from the file and de-serialise it using any codec() that is defined.

my $data = $file->data;     # HASH or ARRAY reference

If no codec() is defined then the method behaves the same as a direct call to either read() (called without arguments) or write() (called with arguments).

AUTHOR

Top Close Open

Andy Wardley http://wardley.org/

COPYRIGHT

Top Close Open

Copyright (C) 2005-2009 Andy Wardley. All rights reserved.

ACKNOWLEDGEMENTS

Top Close Open

The Badger::Filesystem modules are built around a number of existing Perl modules, including File::Spec, File::Path, Cwd, IO::File, IO::Dir and draw heavily on ideas in Path::Class.

Please see the ACKNOWLEDGEMENTS in Badger::Filesystem for further information.

Fork Me on Github