Want to win a PS4? Go Premium and enter to win our High-Tech Treats giveaway. Enter to Win


how to format html output

Posted on 2000-03-13
Medium Priority
Last Modified: 2010-03-05
his is the code I want to output from a database,  but  it only output for
                           unix console, I want the output using Html format, how ?

                           #!/usr/local/bin/perl -w

                           # Use the DBM module.
                           use Getopt::Long;
                           use English;
                           use AnyDBM_File;

                           # Set up the command line options.
                           my $ret = GetOptions ("d|database:s");
                           #my $database    = $opt_d || die "Usage: $0 -d database\n";

                           #my $database ="/cgi-bin/process/hctu/she/testDir/convert.dbm";
                           my $database   = "convert.dbm";
                           my (%contents,$count,$type,$name,$price,$desc,$record);

                           # Open the DBM database file.
                           dbmopen (%contents, $database, 0700) || die "Could not open DBM file $database : $!\n";

                           # Force the top of page.
                           $FORMAT_LINES_LEFT = 0;
                           $count = 0;

                           # Start printing out the dbm information.
                           for $number (sort keys %contents)
                              # Get the contents from the hash.
                              $record = $contents{$number};

                              # Split the record up.
                              ($type,$name,$price,$desc) = split (/\|/, $record);

                              # Write it...

                           # Close the DBM database.
                           dbmclose %contents;

                           # Top of picture formats.
                           format STDOUT_TOP=
                           Count Item #  Item Type  Item Name      Price     Description   Page @>>>>>>

                           format STDOUT=
                           @>>>> @|||||| @<<<<<<<<< @<<<<<<<<<<<<< $@####.## ^<<<<<<<<<<<<<<<<<<<<<<<<<
                           ~                                                 ^<<<<<<<<<<<<<<<<<<<<<<<<<
                           ~                                                 ^<<<<<<<<<<<<<<<<<<<<<<<<<

                           this is the unix output!

                           ount Item #  Item Type  Item Name      Price     Description   Page       1
                               1   100   Hardware   Hammer         $   25.00 A thing to hit nails with.
                               2   122   Hardware   Nail           $    0.15 A thing to be hit by a
                                                                             hammer. (see hammer)
                               3   142   Hardware   Sander         $   10.15 Used to sand all sorts of
                                                                             things, except sand.
                               4   206   Household  Kitchen Sink   $  100.00 Lost the last time I went
                                                                             on vacation. (next time
                                                                             this I won't check it in)
                               5   210   Household  Windows        $   45.00 User friendly and does not
                                                                             need to be plugged in.
                               6   242   Household  Vacuum         $  300.00 I'm not sure what this is
                                                                             used for; but people seem
                                                                             to have them anyway.
                               7   266   Household  Microwave      $  100.00 Kitchen item. (Also see
                                                                             hot water heater)
                               8   312   Garden     Rake           $   25.00 Used to rake leaves, cut
                                                                             grass and break noses if
                                                                             left lying on the ground.
                               9   344   Garden     Gravel         $   30.00 Why bother the dog is
                                                                             going to dig through it
                                                                             again anyway.
                              10   362   Garden     Top Soil       $   10.00 Is there such a thing as
                                                                             "Bottom Soil"?
                              11   384   Garden     Mosquitoes     $    0.00 Some are large as a dog
                                                                             and will carry you away.
                              12   500   Sports     Hockey Stick   $   10.00 Used to push the puck
                              13   502   Sports     Bike           $  400.00 Sits in the garage and
                                                                             collects dust.
                              14   556   Sports     First Aid Kit  $   25.00 Used more times than not
                              15   602   Misc       Dog Food       $    1.50 The stuff the cat eats.
                              16   624   Misc       Cat Food       $    0.75 The stuff the dog eats.
                              17   644   Misc       Socks          $    1.00 What both the dog and cat

how to use html ouput format to make the output exactly llike this?

Question by:syu1
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
LVL 16

Expert Comment

ID: 2612446
just add a <pre> tag before printing the output and a </pre> tag after you  have finished printing.


print "Content-type: text/html\n\n";
print "<pre>\n";
# Start printing out the dbm information.
                                              for $number (sort keys %contents)


      # Write it...

print "</pre>\n";

LVL 16

Accepted Solution

maneshr earned 200 total points
ID: 2612574
or you could try this too!!


print "Content-type: text/html\n\n";

$desc="Used to sand all sorts of things, except sand.";


$desc="Used to drive people crazy!!.";


print "</table>\n";

# Top of picture formats.
format STDOUT_TOP=
<TD>Count</TD><TD>Item #</TD><TD>Item Type</TD><TD>Item Name</TD><TD>Price</TD>
<TD>Description</TD><TD>Page @>>>>>>

format STDOUT=
<TD> @>>>> </TD><TD> @|||||| </TD><TD> @<<<<<<<<< </TD><TD> @<<<<<<<<<<<<< $</T
D><TD> @####.## </TD><TD>^<<<<<<<<<<<<<<<<<<<<<<<<<
~   ^<<<<<<<<<<<<<<<<<<<<<<<<<
~   ^<<<<<<<<<<<<<<<<<<<<<<<<<

Author Comment

ID: 2613807
thanks lot for your hint, I use the table , it works fine.

Featured Post

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Email validation in proper way is  very important validation required in any web pages. This code is self explainable except that Regular Expression which I used for pattern matching. I originally published as a thread on my website : http://www…
Checking the Alert Log in AWS RDS Oracle can be a pain through their user interface.  I made a script to download the Alert Log, look for errors, and email me the trace files.  In this article I'll describe what I did and share my script.
Explain concepts important to validation of email addresses with regular expressions. Applies to most languages/tools that uses regular expressions. Consider email address RFCs: Look at HTML5 form input element (with type=email) regex pattern: T…
Six Sigma Control Plans

618 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question