Snipplr

(Perl) Count directory entries in given directories - amosshapira

Sun, 13 Jan 2008 18:04:31 GMT

In response to a very simplistic solution suggestion using Shell, here is a basic version of what I use. The advantage of the solution below is that it is supposed to be much faster on directories with many files (I regularly use its full-blown version on directories with tens and hundreds of thousands of files).

(Perl) age of file? - noah

Tue, 03 Jul 2007 23:06:47 GMT

(Perl) create new files - noah

Tue, 03 Jul 2007 22:50:04 GMT

(Perl) id3.pl - noah

Tue, 03 Jul 2007 22:40:18 GMT

This script takes a list of directories as its argument. For mp3s that don't have any id3 information, guess the name of the artist and track based on the filename and use the MP3-Info module to insert that guess into the file as id3v1 tags.

(Perl) Move MP3s into Artist/Album folders - noah

Tue, 03 Jul 2007 22:37:20 GMT

Given a directory of MP3s, read the ID3 tags and reorganize the directory so that all of the MP3s reside in folders that are nested in the order: Artist/Album/File.mp3

(Perl) Truncate filenames but keep file extensions intact - noah

Tue, 03 Jul 2007 22:33:28 GMT

(Perl) Grab linked files from a list of web pages - noah

Tue, 03 Jul 2007 22:31:30 GMT

Expects as argument the name of a file containing a newline-delimited list of URLs. When invoked, launches an interactive shell that asks what type of file should be downloaded. Then downloads all the files that are linked from each of the listed Web pages.

(Perl) Remove duplicate lines from a text file - noah

Tue, 03 Jul 2007 22:06:34 GMT

Sometimes I get a big list of things, and some of the things occur multiple times in the same list. A good example is a newline-delimited list of files: the same file path might be listed 4 or 5 times. So this script removes those kinds of duplicate lines. Found at Google Answers.

(Perl) Make a list of JPEGs into a slide show - noah

Tue, 03 Jul 2007 22:02:15 GMT

Show jpegs one-per-page on a series of hyperlinked web pages. Purpose was to provide a linear viewing mechanism for jpegs on my Palm Tungsten C.

(Perl) Show JPEGs in this directory all on one page - noah

Tue, 03 Jul 2007 21:57:11 GMT

Dumps a list of image names into an HTML document, wrapped in centered IMG tags. Features the CENTER tag for added historical value.

(Perl) show JPEGs in this directory in a simple HTML gallery - noah

Tue, 03 Jul 2007 21:53:26 GMT

Creates an HTML page with the first image in the directory in the center. Forward and Back buttons scroll through all the images in the directory in order. This is how I lived before Firefox ~.^

(Perl) Lecture ecriture fichier - olive

Thu, 01 Feb 2007 07:06:28 GMT

(Perl) Text change across multiple files - noah

Sun, 28 Jan 2007 09:01:18 GMT

Put this in a script called "update.pl" and call it with "ls *ext|xargs perl update.pl" Be sure to back up the work directory before playing with this, as it is very easy to wipe out the content of a bunch of files at once in this way.