#!/usr/bin/perl -w
use strict;

my ($title,$actors,$genre,$languages);
my (%h,%colours,@a);
my $file = "books.txt";

chdir "$ENV{HOME}/forSale" or die "chir: $!\n";
open BOOKS, "<$file" or die "open: $file: $!\n";

print <<EOH;
  <h3><a name="books">Books for sale.</a></h3>

<p>Feel free to come and browse, no obligation. All Books are in excellent condition. Offers welcome.</p>

<br>

<table border="1" align="center">
<tr>
  <td><b>Title</b></td>
  <td><b>Price</b></td>
</tr>
EOH

while ( <BOOKS> )
{
  chomp;
  next if m%^#%;
  $h{$_}++;
}

foreach ( sort keys %h )
{
  @a = split(';',$_);
  $a[1] = $a[1] ? $a[1] : ' ';
  if ( $a[2] )
  {
    $a[2] =~ s% %%g;
    -f $a[2] or die "$a[2]: Not found\n";
    $a[0] = "<a href=\"" . $a[2] . "\">" . $a[0] . "</a>";
  }
  print <<EOT;
<tr>
  <td align="left"> $a[0] </td>
  <td align="left"> $a[1] </td>
</tr>
EOT

}

print "</table>\n";