Perl

Back on May 26, 2000, I wrote a small BB system for my little brother's band website. Every line of code is just how it was since about 2001. Six years later, my high school buddies are still using that system.

Perl hello_plPrints every message stored in "bbs.txt". Called "hello.pl" because it modified from my first "hello, world" perl program.
Perl write_plWrites new messages to bbs.txt. There's no spam protection in this code, and it's been hit pretty hard by spam bots, so I've had to clean up the bbs.txt.

This is some of my early Perl code. I know "Image to Text" works, but the rest hasn't been tested in years. See my Photomosaics page for more information.

Perl Image To Text ConverterTakes an image and a text file and generates the HTML so that the text color will show the image.
Perl Photomosaic GeneratorTakes a large image and a text database of icons and builds a mosaic to resemble the larger image.
Perl Image CatalogerThis creates a text database to be used by the Photomosaic generator

Other Perl Scripts: (I'll dig out more as I find them.)

Perl Web Comic GrabberI wrote this for a seminar I gave on regular expressions.
Perl FarkgrepA command line utility for searching for the occurance of any word in any post on the Fark mainpage.
Perl FarkcountA command line utility for counting the number of post for each user in a single thread.
Perl ChessChess. This is really old, and I'm trying to write a more coherent, faster version in C.
Perl LipocalinsA script that I wrote that someone used in the Senior research and didn't give me sufficient credit. :(







I saw a contest on Slashdot to see who could write the shortest program that printed all 99 verses of "99 bottles of beer on the wall." The winning entry did it in one line of Perl that was under 100 characters, so my entery of 5 lines didn't come close. Still, it was fun to write this.

beer.pl:

#!/usr/bin/perl -w
$y=".\n\n";$c=" bottles of beer";$b=" on the wall";
$e=",\nTake one down, pass it around,\n";
print "99$c$b,\n99$c$e";
for $a (reverse(1..98)) {$c=~s/s// if($a==1);print "$a$c$b$y$a$c$b,\n$a$c$e";}
$c=~s/e/es/;print "No more$c$b$y";


Page Information

  • 2 years ago [history]
  • View page source
  • You're not logged in
  • Tags: code perl

Wiki Information

Recent PBwiki Blog Posts