Print File Directory

AFS::FS is a Perl module to communicate with an AFS File Server. SYNOPSIS use AFS::FS qw( getquota isafs lsmount mkmount rmmount setquota whereis ); my $quota = getquota(.); my $ok = setquota(., $quota); $ok = isafs(.); my $vol = lsmount(/afs/mpa/home/nog); print "Vol = $vol n";...

SYNOPSIS Get the size for directory /etc/ with the block size of 1024 while following symbolic links: my $obj = File::Size->new( dir => /etc/, blocksize => 1024, followsymlinks => 1, humanreadable => 1 ); print $obj->getsize(), "n"; File::Size is used to get the size of files and...

VCS project is a Perl library for generic Version Control System access in Perl. SYNOPSIS use VCS; $file = VCS::File->new($ARGV[0]); print $file->url, ":n"; for $version ($file->versions) { print $version->version, was checked in by , $version->author, "n"; } VCS is an API for...


Platforms: *nix

Fortran::Namelist is a Perl extension for Fortran namelists. SYNOPSIS use Fortran::Namelist; my $nml_file = /home/user/my_namelist.nml; my $nml=Fortran::Namelist->new( file => $nml_file ); my %new_group = ( group_name => { grp_var1 => some_string, grp_var2 => [ 1 , 2 , 3 ], } );...


Platforms: *nix

Net::FTP::File is a Perl extension for simplifying FTP file operations. SYNOPSIS use Net::FTP::File; my $ftp = Net::FTP->new("some.host.name", Debug => 0) or die "Cannot connect to some.host.name: $@"; $ftp->login("anonymous",-anonymous@) or die "Cannot login ", $ftp->message;...


Platforms: *nix

Test::File::Find::Rule is a Perl module to test files and directories with File::Find::Rule. SYNOPSIS use Test::File::Find::Rule; # Check that all files in $dir have sensible names my $rule = File::Find::Rule ->file ->relative ->not_name(qr/^[w]{1,8}.[a-z]{3,4}$/);...


Platforms: *nix

File::Locate is a Perl module to search the (s)locate-database from Perl. SYNOPSIS use File::Locate; print join "n", locate "mp3", "/usr/var/locatedb"; # or only test of something is in the database if (locate("mp3", "/usr/var/locatedb")) { print "yep...sort of mp3 there"; } # do...


Platforms: *nix

ADDRESS LIST print web.de dict one slide allows users of web.de can print up to 85 addresses on one sheet of paper! If you use the printing function of web.de, you get a lot of pages to print but never all informations stored before. It is much more convenient to have all informations on one...


Platforms: *nix

Htscanner will allow one to use htaccess-like file to configure PHP per directory, just like apaches htaccess. It is especially useful with fastcgi. This package was originally developed by Bart Vanbrabant. Old versions are available from: http://files.zoeloelip.be/htscanner.


Platforms: *nix

File::Spec::Link is a Perl extension for reading and resolving symbolic links. SYNOPSIS use File::Spec::Link; my $file = File::Spec::Link->linked($link); my $file = File::Spec::Link->resolve($link); my $dirname = File::Spec::Link->chopfile($file); my $newname =...


Platforms: *nix

File::Listing is a Perl module to parse directory listing. SYNOPSIS use File::Listing qw(parse_dir); for (parse_dir(`ls -l`)) { ($name, $type, $size, $mtime, $mode) = @$_; next if $type ne f; # plain file #... } # directory listing can also be read from a file open(LISTING, "zcat...


Platforms: *nix

Template::Tools::ttree module can process entire directory trees of templates. SYNOPSIS ttree [options] [files] The ttree script is used to process entire directory trees containing template files. The resulting output from processing each file is then written to a corresponding file in a...


Platforms: *nix

File::DirCompare is a Perl module to compare two directories using callbacks. SYNOPSIS use File::DirCompare; # Simple diff -r --brief replacement use File::Basename; File::DirCompare->compare($dir1, $dir2, sub { my ($a, $b) = @_; if (! $b) { printf "Only in %s: %sn", dirname($a),...


Platforms: *nix

File::Repl is a Perl module that provides file replication utilities. SYNOPSIS use File::Repl; %con = { dira => C:/perl, dirb => M:/perl, verbose => 1, age => 10, }; $ref=File::Repl->New(%con); $r1 = $ref->Update(.p(l|m),a<>b,1); $r2 = $ref->Update(.t.*,a<>b,1,.tmp$); The...


Platforms: *nix

Audio::File is a audio file abstraction library. SYNOPSIS use Audio::File; my $file = Audio::File->new( "foo.bar" ); print "The ". $file->type() ."-file ". $file->name ." is ". int $file->length() ." seconds long.n"; print "Its interpreted by ". $file->tag->artist() ." and called "....


Platforms: *nix

The Plastic File System project is an LD_PRELOAD module for manipulating what the file system looks like for programs. This allows virtual file systems to exist in user space, without kernel hacks or modules. PlasticFS includes the following file systems: chroot The chroot filter may be...


Platforms: *nix

SYNOPSIS my $mi = Movie::Info->new || die "Couldnt find an mplayer to usen"; foreach my $file (@ARGV) { my %info = $mi->info($file) || warn "Couldnt read info from $filen" && next; print "$file (WxH) - $info{width}x$info{height}n"; } Movie::Info is a thin layer around MPlayers...


Platforms: *nix

SYNOPSIS use File::Find::Rule; # find all the subdirectories of a given directory my @subdirs = File::Find::Rule->directory->in( $directory ); # find all the .pm files in @INC my @files = File::Find::Rule->file() ->name( *.pm ) ->in( @INC ); # as above, but without method chaining my...


Platforms: *nix

File::Tabular can search and edit flat tabular files. SYNOPSIS use File::Tabular; my $f = new File::Tabular($filename); my $row = $f->fetchrow; print $row->{field1}, $row->{field2}; $row = $f->fetchrow(where => someWord); $row = $f->fetchrow(where => field1 > 4 AND field2 >=...


Platforms: *nix

File::pushd is a Perl module to change directory temporarily for a limited scope. SYNOPSIS use File::pushd; chdir $ENV{HOME}; # change directory again for a limited scope { my $dir = pushd( /tmp ); # working directory changed to /tmp } # working directory has reverted to $ENV{HOME}...


Platforms: *nix