#!/usr/bin/perl print "Content-type: text/html\n\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; if(open(SETF,"/home/dave/lego/mysets/sets2.txt")) { while() { # next unless /castle/i; if(!/^\#/) { if(/^([\d\?]+)\t+/) { chomp; s/\n//g; $num = $1; s/\"//g; @dat = split /\t+/; print "\n"; if($dat[0] =~ /^\d+$/) { print "\n"; } else { print "\n"; } shift @dat; foreach(@dat) { print "\n"; } print "\n"; } } } close SETF; } print "
Set NumberDescriptionPiecesMinifigsQuantitySet ThemeSubtheme (minifig count)
$dat[0]\n"; #print " (BrickSet)"; print "$dat[0]$_
\n";