#!/usr/bin/perl # monsters.pl - Mangle monst.c to give Google Image Search links # Usage: monsters.pl (as a CGI, no parameters, or just from the command line) # monst.c must be in the current directory. # To view the source, a copy of this file under the name monsters.txt must # be in the current directory. # Copyright 2000 Dion Nicolaas print "Content-type: text/html\n\n"; print < NetHack Monsters

NetHack Monsters

Google Image Search

Click on a link to perform a Google Image Search for that term.
This page was generated by monsters.pl.

EOH open(M, ") { if (m/MON/) { if (m/\"(.*)\"/) { $monster = $1; $mainq = "as_q=$monster"; $addq = "as_oq="; $href = "http://images.google.com/images?$mainq&$addq&btnG=Google+Search"; print "$monster
\n"; } } } close(M); print < Dion Nicolaas
dion\@nicolaas.net EOF