A celebrated author takes on the entire sweep of Jewish history. A concise, provocative, and delightfully readable account. Did you know:
- Marco Polo followed the Jewish trade route to reach China?
- Jews created the world's first elementary school system, teachers' college, and copyright law?
- The American jury system was invented by English Jews--"twelve good men"
was originally conceived as six Jews and six Christians?
Everything you ever wanted to know about Jewish history.
#!/usr/local/bin/perl
$FNAME=$ENV{DOCUMENT_ROOT}. "/dbase/products.txt";
#$FNAME="products.txt";
&behrfun($ARGV[0]);
sub behrfun{
my $sku=shift;
print "Content-type: text/html\n\n";
$m=&findme($sku);
unless($m->{'price'}){
&errprint;
}
}
if($m->{salep}){
printsale($m->{itemno},$m->{sku},$m->{price},$m->{salep});
}else{
printresult($m->{itemno},$m->{sku},$m->{price},$m->{salep});
}
sub errprint{
print "[Error: Price not found]\n";
}
sub findme{
my $sku=shift;
my $f;
my @j;
open (FHAN,"<$FNAME") or print "can't open file";
$k=;
# @j=split(/\t/,$k);
# foreach $i (0..30){
# print "$i: $j[$i]\n";
# }
while(){
@j=split(/\t/);
if($j[15] eq $sku){
$f= {
'itemno' => $. - 2,
'price' => $j[1],
'salep' => $j[2],
'sku' => $j[15]
};
close(FHAN);
return $f;
}
}
close(FHAN);
}
sub printresult{
my($itemnum,$sku,$price,$saleprice)=@_;
print<\$$price
![[ORDER THIS]](http://www.behrmanhouse.com/img/order.gif)
($sku)
BLAH
}
sub printsale{
my($itemnum,$sku,$price,$saleprice)=@_;
print<\$$price
On Sale! \$$saleprice
![[ORDER THIS]](http://www.behrmanhouse.com/img/order.gif)
($sku)
BLAH
}
|