how to format html output

Posted on 2000-03-13
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
  • 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 50 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

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

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

Suggested Solutions

Title # Comments Views Activity
Remove Malware code from PHP file 6 74
Add additional column to .csv using Perl. 8 128
Vb script to unzip a files and rename the files 12 95
create a gui in perl 3 70
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…
Windows 10 is mostly good. However the one thing that annoys me is how many clicks you have to do to dial a VPN connection. You have to go to settings from the start menu, (2 clicks), Network and Internet (1 click), Click VPN (another click) then fi…

912 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

Need Help in Real-Time?

Connect with top rated Experts

16 Experts available now in Live!

Get 1:1 Help Now