A simple program that takes a text file and then converts it to html pls leave feed back im new so dont burn me to much #!/usr/bin/perl # webulid sipel text to html conversion #no links boldface blank space no crap $title = ''; $bgcolor = ''; $text = ''; $head = ''; $mail = ''; print "enter the title to use for your web page: "; chomp($title = ); foreach $color ('backround', 'text') { $in = ''; while () { print "enter the $color color )? for options): "; chomp($in = ); $in = lc $in; if ($in eq '?') { #print help print "One of: \nwhite, black, red, green, blue,\n"; print "orange, purple, yellow aqua, gray,\n"; print "silver, fuchsia, lime, maroon,navy,\n"; print "olive, or return for none\n"; next; } elsif ($in eq '' or $in eq 'white' or $in eq 'black' or $in eq 'red' or $in eq 'blue' or $in eq 'green' or $in eq 'orange' or $in eq 'purple' or $in eq 'yellow' or $in eq 'aqua' or $in eq 'gray' or $in eq 'silver' or $in eq 'fuchisa' or $in eq 'lime' or $in eq 'maroon' or $in eq 'navy' or $in eq 'olive') { last; } else { print "that's not a color.\n"; } } if ($color eq 'backround') { $bgcolor = $in; } else { $text = $in; } } print "enter a heading: "; chomp($head = ); print "enter your email address: "; chomp($mail = ); print '*' x 30; print "\n\n\n$title\n"; print "\n\n"; print"

$head

"; while (<>) { if ($_ eq "\n") { print "

\n"; } else { print $_; } } print qq(\n\n";