Perl Scrip To Unzip Files

RPM::Util::Files is a Perl module to generate %files list in RPM Specfile. SYNOPSIS use RPM::Util::Files; my $util = RPM::Util::Files->new({ build_root => /var/tmp/some-package-version-root, docs_filters => [ sub { my $entry = shift; return $entry =~ /manuals/; } ], config_filters... Platforms: *nix

File::Remove is a Perl module to remove files and directories. SYNOPSIS use File::Remove qw(remove); # removes (without recursion) several files remove qw( *.c *.pl ); # removes (with recursion) several directories remove 1, qw( directory1 directory2 ); # removes (with recursion)... 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

Console program to convert ANSI files to UNICODE files. Including Recursive option and filter. Platforms: Windows, Mac, Linux

CORBA::MICO is a Perl interface to the MICO ORB.Its most distinctive feature is that it is completely dynamic. It is not necessary to pregenerate 'stubs' or 'skeletons' - all necessary information is retrieved at runtime. Platforms: Windows, Mac, Linux

File::Signature is a Perl module to detect changes to a files content or attributes. SYNOPSIS use File::Signature; my $sig = File::Signature->new(/some/file); # If you have a stringified signature stored in $string # you can create a File::Signature object from it. my $sig =... Platforms: *nix

This Applescript will split an Easy Populate data file into smaller files of the specified number of lines and save them in a chosen folder.It makes use of the excellent free text editor TextWrangler (homepage and a copy of this is a requirement. Alternatively, BBEdit may use the same Applescript... Platforms: Windows, Mac, PHP,

Text Files to HTML Files is a free Automator action that will create an HTML file or Safari webarchive from the content of the text files passed from the previous action. One HTML or webarchive file is created for each of the passed files. Platforms: Mac

Easy PHP Upload class (the old name) can be used to upload files with a client browser to a remote webserver location. The features in the first release are: file-extension check, maximum file- size limitation and a flexible error reporting system. The class is extremely easy to use and comes... Platforms: *nix

ModPerl::PackageRegistry is a Perl module to map URIs to perl package namespaces. SYNOPSIS Apache: < Location /dynamic > SetHandler perl-script PerlResponseHandler ModPerl::PackageRegistry PackageNamespace MyWebsite::pages PackageBase /dynamic PackageIndex index PackageHandler ->page... Platforms: *nix

XML::Writer::Simple is a Perl module to create XML files easily! SYNOPSIS use XML::Writer::Simple dtd => "file.dtd"; print para("foo",b("bar"),"zbr"); USAGE This module takes some ideas from CGI to make easier the life for those who need to generated XML code. You can use the module in... Platforms: *nix

WebFS::FileCopy is a Perl module to get, put, move, copy, and delete files located by URIs. SYNOPSIS use WebFS::FileCopy; my @res = get_urls(ftp://www.perl.com, http://www.netscape.com); print $res[0]->content if $res[0]->is_success; # Get content from pages requiring basic... Platforms: *nix

Html to Xhtml Convertor is a straight-forward Perl script to convert HTML pages into XHTML pages. It can process batches of files, convert Windows/Unix/Mac line breaks, and deal with attribute minimization, quoting of attribute values, and more. Installation: To install, simply run the... Platforms: *nix

MP3::Find is a Perl module to search and sort MP3 files based on their ID3 tags. SYNOPSIS # select with backend you want use MP3::Find qw(Filesystem); print "$_n" foreach find_mp3s( dir => /home/peter/cds, query => { artist => ilyaimy, title => deep in the am, }, ignore_case => 1,... Platforms: *nix

Archive::TarGzip is a Perl module to save and restore files to and from compressed tape archives (tar). SYNOPSIS ###### # Subroutine Interface # use Archive::TarGzip qw(parse_header tar untar); $tar_file = tar(@file, @options); $tar_file = tar(@file); $success = untar(@file);... Platforms: *nix

Dupseek is a command-line interactive perl program to find and remove duplicate files. A few strategies are possible for finding duplicate files in a big set, such as a heavily populated directory. One of the most widely used consists of grouping files by size (because files of different size... Platforms: *nix

MP3::Album is a Perl extension to manage a music album built of mp3 files. SYNOPSIS use MP3::Album; $mp3_album = MP3::Album->new(files=>@files); #check is as set of mp3 has a uniform encoding if ($mp3_album->bitrate_check()) && $mp3_album->frequency_check()) { print "This set of mp3 is... Platforms: *nix

SVG::SVG2zinc is a Perl module to display or convert svg files in scripts, classes, images... SYNOPSIS use SVG::SVG2zinc; &SVG::SVG2zinc::parsefile(file.svg, Backend,file.svg, -out => outfile, -verbose => $verbose, -namespace => 0|1, -prefix => string, ); # to generate a Perl script:... Platforms: *nix

AppleII::ProDOS is a Perl module created to access files on Apple II ProDOS disk images. SYNOPSIS use AppleII::ProDOS; my $vol = AppleII::ProDOS->open(image.dsk); # Open an existing disk print $vol->catalog; # List files in volume directory my $file = $vol->get_file(Startup); # Read file... Platforms: *nix

IO::InSitu is a Perl module to avoid clobbering files opened for both input and output. SYNOPSIS use IO::InSitu; my ($in, $out) = open_rw($infile_name, $outfile_name); for my $line (<$in>) { $line =~ s/foo/bar/g; print {$out} $line; } When users want to do in-situ processing on a... Platforms: *nix