Behrman House: Our Catalog: Count Me In (Featured)

I N - D E P T H

Count Me In
Jewish Wisdom in Action
By Gila Gevirtz

Count Me In Cover

Sample Chapter 8: The Value of Possessions (PDF)

Book Description

#!/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

($sku)
BLAH } sub printsale{ my($itemnum,$sku,$price,$saleprice)=@_; print<\$$price On Sale! \$$saleprice

($sku)
BLAH }