#!usr/local/bin/perl
$pattern = "title:";
while (line = <>){
if ($line =~ /$pattern/){
($garbage, $myTitle) = split(/:/, $line, 2);
print " $myTitle";
}
}
print ""
$pattern = "subtitle:";
while (line = <>){
if ($line =~ /$pattern/){
($garbage, $myParagraph) = split(/:/, $line, 2);
print "$my Paragraph"
}
if (eof) {
print ""
}
}
print ""
####
Title:My Page
Subtitle:When somebody buys an item on the list (from a real shop - nothing to do with the website) they can go onto the site, and change the value of that item from "Not bought" to "Bought by person 2" for instance, then click SUBMIT and the HTML will then permanently reflect the changes so that the item will always have "Bought by person 2" next to it - therefore preventing multiple purchases from other family members!
Does that make sense? I hope so. I know HTML really well, and know how to install CGI scripts and stuff - It's just writing them which proves tricky!
Subtitle: Hello great monks. Can someone tell me how to keep perl dbi silent when something goes wrong? ie.....I do a table cleanup before I start importing my data. Basically, I just delete what temp tables are there. If my script crashed on a previous run, it leaves some temp tables behind. I need to clear those tables before I can import data. In php, I leave off the "or die()" statement and php doesn't fuss if those tables are not there. But with perl dbi, it fusses if the tables are missing even with the DIE command missing.