EXPLAINING REFORM JUDAISM
By Eugene B. Borowitz and Naomi Patz

An authoritative presentation of the fundamental history, beliefs, and goals of Reform Judaism in one compact volume. #!/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 } I Am a Reform Jew: A Workbook Diary for Explaining Reform Judaism Provocative diary entries and activities form a personal statement of students' pride in their identity #!/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