Иван Бахчеев > IO-Easy > IO::Easy::Dir

Download:
IO-Easy-0.16.tar.gz

Dependencies

Annotate this POD

Website

CPAN RT

New  1
Open  0
View/Report Bugs
Source  

NAME ^

IO::Easy::Dir - IO::Easy child class for operations with directories.

SYNOPSIS ^

        use IO::Easy;

        my $dir = IO::Easy->new ('.')->as_dir;

        $dir->scan_tree (sub {
                my $file = shift;

                return 0 if $file->type eq 'dir' and $file->name eq 'CVS';
        });

        $dir->create (qw(t IO-Easy)); # creates ./t/IO-Easy

        my $source = $dir->append('data')->as_dir;
        my $destination = $dir->append('backup')->as_dir;
        $source->copy_children($destination, $handler);

METHODS ^

scan_tree

Scans directory tree.

There's a standard module File::Find exists. But it's monstrous and is used because of historical reasons. For the same functionality IO::Easy has a method scan_tree and this method can replace File::Find in the most cases.

        my $io = IO::Easy->new ('.');
        my $dir = $io->as_dir;
        $dir->scan_tree ($handler);

$handler is a code ref which is called during scan for each found object and retrieves the found object as a parameter.

Symlinks processing during directory scanning must be handled by user of this module himself at the moment.

As an example with help of $handler you can recursively scan directory and get the number of files with defined extension, in this case function will look like the following:

        my $counter = 0;
        my $handler = sub {
                my $file = shift;
                $counter++ if $file->extension eq 'pl';
        }                                                        

        $dir->scan_tree ($handler);

        print "The number of files/directories with 'pl' extension:", $counter;

BEWARE: If $handler returns 0 for the directory, then scan_tree doesn't scan its contents, this can be useful in e.g. ignoring CVS or any other unwanted directories.

This method can be called with any of two optional flags: 'for_files_only' and 'ignoring_return'

For example:

        my $counter = 0;
        my $handler = sub {
                my $file = shift;
                $counter++ if $file->extension eq 'pl';
        }

        $dir->scan_tree (for_files_only => $handler);

        print "The number of files with 'pl' extension:", $counter;

Flag 'for_files_only' tell method to call handler only with objects with file (-f) check

Flag 'ignoring_return' tell method to ignore return value from handler and process any found directory

copy_children, copy_node

recursive copying of directory contents

        my $io = IO::Easy->new ('.');
        my $source = $io->append('data')->as_dir;
        my $destination = $io->append('backup')->as_dir;
        $source->copy_children($destination, $handler);

In this example $handler code ref, which is performed for every file during copying. With help of the $handler you can easily control the spice which files will be copied.

        my $handler = sub {
                my $file = shift;
                return 1 if $file->extension eq 'txt';
                return 0;
        };

In this case $handler function copies only files with 'txt' extension to the new directory.

create

creates new directory

        my $io = IO::Easy->new ('.');
        my $dir = $io->append('data')->as_dir;  # appends 'data' to $io and returns 
                                                                                        #the new object; blesses into directory object.
        $dir->create;                                                   # creates directory './data/'

or

        $io->as_dir->create ('data');

items

directory contents in array. you can provide filter for file extension, plain or regexp

        $dir->items ('txt'); # plain
        $dir->items ('txt|doc', 1); # regexp

rm_tree

recursive deletion directory contents

current

current directory constructor, using Cwd

home

user home directory

type

always 'dir'

touch

similar to unix touch command - updates file timestamp

AUTHOR ^

Ivan Baktsheev, <apla at the-singlers.us>

BUGS ^

Please report any bugs or feature requests to my email address, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=IO-Easy. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT ^

ACKNOWLEDGEMENTS ^

COPYRIGHT & LICENSE ^

Copyright 2007-2009 Ivan Baktsheev

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

syntax highlighting: