1) Make a new directory (mkdir):
mkdir FILENAME,MASK;
MASK defaults to 0777 if omitted, and FILENAME defaults to $_ if omitted.
2) To recursively create a directory structure (mkdir -p):
use File::Path;
mkpath('/foo/bar/baz');
mkpath('/foo/bar/baz', 1, 0711);
mkpath(['/foo/bar/baz', 'blurfl/quux'], 1, 0711);
mkpath('foo/bar/baz', '/zug/zwang', { verbose => 1, mode => 0711 });
3) Change a directory (cd):
chdir DIRNAME;
4) Delete the directory if that directory is empty (rm):
rmdir DIRNAME;
5) Delete a list of files (rm):
unlink FILENAME;
my $unlinked = unlink 'a', 'b', 'c';
unlink @goners;
unlink glob "*.bak";
foreach my $file (@goners) {
unlink $file or warn "Could not unlink $file: $!";
}
6) Remove a directory tree recursively (rm -rf):
use File::Path;
rmtree('foo/bar/baz', 1, 1);
rmtree(['foo/bar/baz', 'blurfl/quux'], 1, 1);
rmtree('foo/bar/baz', '/zug/zwang', { verbose => 1, mode => 0711 });
7) Copy or move files (cp, mv):
use File::Copy;
copy("file1","file2") or die "Copy failed: $!";
copy("Copy.pm",\*STDOUT);
move("/dev1/fileA","/dev2/fileB");
Perl:
http://alvinalexander.com/perl/edu/articles/pl020002
http://www.unix.com/shell-programming-scripting/173319-perl-shell-scrript-search-directories-taking-line-line-text-file.html
http://www.unix.com/shell-programming-scripting/173319-perl-shell-scrript-search-directories-taking-line-line-text-file.html
http://perl5maven.com/how-to-change-inc-to-find-perl-modules-in-non-standard-locations
