MY PEOPLE
Abba Eban's History of the Jews
Volume 2: From the Eighteenth Century to Our Own Time
Adapted by David Bamberger

The Jewish people's spirit and place in world history since 1776. Chronicles the Jewish experience in the American and French revolutions, through the birth of Zionism and the devastation of the Holocaust, and into today's world. Also includes the struggle for Israeli independence as Eban lived it. #!/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 } Teacher's Guide #!/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 }

© 2010 Behrman House, Inc., Springfield, NJ. (800) 221-2755 Home | Privacy Policy| Contact Us