[Plug] Something little I wrote

[Eric Windisch <southpark@nni.com>]

Although this isn't much, some people have requested it on irc. So I
decided 
to share it with you guys as well:

#!/usr/bin/perl -w
foreach $_ (A..Z) {
mkdir("$_", 444);
system("mv $_* $_");
system("mv \l$_* \u$_");
}

If you don't know perl and/or haven't figured out what it does: it makes 
directories named A, B, C, etc.. and copies all files in the current
directory
to it's alphabetical match. Good for catagorizing those images your mom
doesn't want you to see, those legal mp3's, etc :)

-- 
Eric Windisch

_______________________________________________
Plug maillist  -  Plug@lists.nothinbut.net
http://lists.nothinbut.net/mail/listinfo/plug