Diary of a Nose: A Year in the Life of a Parfumeur

Jean-Claude Ellena, Author
Jean-Claude Ellena. Rizzoli Ex Libris, $24.95 (184p) ISBN 978-0-8478-4042-7
Reviewed on: 11/26/2012
Release date: 01/22/2013
EVAL ERROR: Entity: line 94: parser error : PCDATA invalid Char value 11
blossom on the body and leave a trace of us lingering after we have left a room.
                                                                                ^

Code:
line 1: package tmpevalpackage;
line 2: sub doEval { 
line 3: 	use Business::ISBN qw(:all);
line 4:     use LWP::Simple;
line 5: 	use XML::Simple;
line 6: 
line 7: 	my($isbn_struct,$isbn10_string,$isbn13_string,$isbn10,$isbn13,$ASIN,$linetext);
line 8: 	my($has_ad, $box_style, $buy_amazon, $buy_apple, $buy_indiebound, $buy_powells, $buy_google, $buy_bandn, $drawer_style);
line 9: 
line 10: 	++$main::ENV{'buy_counter'};
line 11: 
line 12: 	my ($isbn) = "978-0-8478-4042-7";
line 13: 	if("1"){
line 14: 		$has_ad = 1;
line 15: 	}
line 16: 
line 17: 	$linetext = "";
line 18: 	my $no_image = "";
line 19: 	if($linetext){
line 20: 		$box_style .= "display:none;position:absolute;z-index:99999;width:100px;";
line 21: 		$drawer_style .= "display:block;";		
line 22: 	}
line 23: 	else{
line 24: 		$drawer_style .= "display:none;";		
line 25: 	}
line 26: 	
line 27: 	if($isbn =~ s/^ASIN(.+)/$1/){
line 28: 		$ASIN = 1;
line 29: 		$buy_amazon = "http://www.amazon.com/gp/product/$isbn/ref=as_li_tl?ie=UTF8&tag=publiweekl05-20";
line 30: 	}
line 31: 	else{
line 32: 		$isbn_struct = Business::ISBN->new($isbn);
line 33: 		if($isbn_struct && $isbn_struct->is_valid){
line 34: 			$isbn10 = $isbn_struct->as_isbn10;
line 35: 			$isbn13 = $isbn_struct->as_isbn13;
line 36: 			$isbn10_string = $isbn10->as_string([]);
line 37: 			$isbn13_string = $isbn13->as_string([]);
line 38: 			$buy_amazon = "http://www.amazon.com/gp/product/$isbn10_string/ref=as_li_tl?ie=UTF8&tag=publiweekl05-20";
line 39: 			$buy_apple = "http://itunes.apple.com/us/book/isbn$isbn13_string?at=10lvId";
line 40: 			$buy_indiebound = "http://www.indiebound.org/book/$isbn13_string?aff=PublishersWeekly";
line 41: 			$buy_powells = "http://www.powells.com/partner/41251/biblio/$isbn13_string?p_isbn";
line 42: 			$buy_google = "https://play.google.com/store/search?q=$isbn13_string&c=books&PAfiiliateID=11lwg2";
line 43: 			
line 44: 			my $bnxml = get("https://pds.barnesandnoble.com/fetch-data-service/productAffiliate?ids=$isbn13_string");
line 45: 			
line 46: 			if($bnxml){
line 47: 				my $xmlDoc = XML::Simple->new();
line 48: 				my $xmlHash = $xmlDoc->XMLin($bnxml);
line 49: 				
line 50: 				if( $xmlHash->{'ProductAffiliateResult'} 
line 51: 					&& $xmlHash->{'ProductAffiliateResult'}->{'Product'}
line 52: 					&& $xmlHash->{'ProductAffiliateResult'}->{'Product'}->{'Url'}){
line 53: 						$buy_bandn = "http://www.dpbolvw.net/click-4260421-11819508?url=" . $xmlHash->{'ProductAffiliateResult'}->{'Product'}->{'Url'};
line 54: 				}
line 55: 			}
line 56: 
line 57: #			$buy_bandn = "http://click.linksynergy.com/deeplink?mid=36889&id=uWBQGnFbkjk&murl=http%3A%2F%2Fcart2.barnesandnoble.com%2FShop%2Fxt_manage_cart.asp%3Fean%3D$isbn13_string%26productcode%3DBK";
line 58: 
line 59: 		}
line 60: 	}
line 61: 
line 62: 	if($linetext){
line 63: 		print "<span id=\"box_inline$main::ENV{'buy_counter'}\" class=\"buy-link\" onmouseover=\"\$(\'#buy-container$main::ENV{'buy_counter'}\').fadeIn(100);\" onmouseleave=\"dismissUnlessEnter('#buy-container$main::ENV{\"buy_counter\"}','#box_inline$main::ENV{\"buy_counter\"}')\";>$linetext</span>\n";
line 64: 		print "<div id=\"buy-container$main::ENV{'buy_counter'}\" onmouseleave=\"\$(\'#buy-container$main::ENV{'buy_counter'}\').fadeOut(100);\" style=\"$box_style\">\n";
line 65: 	}
line 66: 	else{
line 67: 		print "<div id=\"buy-container$main::ENV{'buy_counter'}\" style=\"$box_style\">\n";
line 68: 	}
line 69: 	if(!$no_image) { 
line 70: 		print "
	
		
	
"; 
line 71: 		print "<div id=\"buy-box\">\n";
line 72: 	}
line 73: 	else {
line 74: 		print "<div id=\"buy-box\" style=\"width:100%;margin-top:10px;margin-bottom:20px;\">\n";
line 75: 	}
line 76: 	print "<div id=\"buy-inner-box\" class=\"buy-box\">\n";
line 77: 	if($linetext){
line 78: 		print "<div class=\"buy-box-header\">Buy this book</div>\n";
line 79: 	}
line 80: 	else{
line 81: 		print "<div class=\"buy-box-header\" onClick=\"\$(\'.buy-box-body$main::ENV{'buy_counter'}\').toggle(100);\">Buy this book</div>\n";
line 82: 	}
line 83: 	print "<div class=\"buy-box-body$main::ENV{'buy_counter'}\" style=\"$drawer_style\">\n";
line 84: 	print "<div class=\"buy-box-item\">\n";
line 85: 	print "<a href=\"$buy_amazon\" target=\"_offsite\">Amazon</a>\n";
line 86: 	print "</div>\n";
line 87: 	if(!$ASIN){
line 88: 		if($buy_bandn){
line 89: 			print "<div class=\"buy-box-item\">\n";
line 90: 			print "<a href=\"$buy_bandn\" target=\"_offsite\">Barnes & Noble</a>\n";
line 91: 			print "</div>\n";
line 92: 		}
line 93: 		print "<div class=\"buy-box-item\">\n";
line 94: 		print "<a href=\"$buy_google\" target=\"_offsite\">Google</a>\n";
line 95: 		print "</div>\n";
line 96: 		print "<div class=\"buy-box-item\">\n";
line 97: 		print "<a href=\"$buy_apple\" target=\"_offsite\">iBooks</a>\n";
line 98: 		print "</div>\n";
line 99: 		print "<div class=\"buy-box-item\">\n";
line 100: 		print "<a href=\"$buy_indiebound\" target=\"_offsite\">IndieBound</a>\n";
line 101: 		print "</div>\n";
line 102: 		print "<div class=\"buy-box-item\">\n";
line 103: 		print "<a href=\"$buy_powells\" target=\"_offsite\">Powell's</a>\n";
line 104: 		print "</div>\n";
line 105: 		}
line 106: 	print "</div>\n";
line 107: 	print "</div>\n";
line 108: 	print "</div>\n";
line 109: 	if($has_ad && !$no_image){
line 110: 		print "<div>\n";
line 111: 		print "<div><a rel=\"nofollow\" href=\"https://secure.publishersweekly.com/pw/link-tracker?action=click&id=8\"> </a><img src=\"https://secure.publishersweekly.com/pw/link-tracker?action=impression&id=8\" width=\"1\" height=\"1\"></div>\n";
line 112: 		print "<iframe src=\"//ads.ad-center.com/smart_ad/display?ref=5042105&q=KEYWORD&smart_ad_id=16481\" width=\"204\" height=\"70\" frameborder=\"0\" scrolling=\"no\" allowtransparency=\"true\"></iframe>\n";
line 113: 		print "</div>\n";
line 114: 	}
line 115: 	print "</div>\n";
line 116: 
line 117:  };
line 118: &doEval();
line 119: 1;
Perfume may only linger on the skin or in the air for a brief moment, but it's big business, with revenues from magazine advertising sales alone reaching over $550 million last year. For Ellena, however, who has been the parfumeur to the house of Hermes for nearly a decade, a wondrous smell is about joy and beauty, not its impact on the marketplace. His diary, written with a keen eye for detail, covers his experiments with scents like mint and mandarin orange, his travels and inspirations (winter pears he buries his face in at an Italian) from late 2009 through summer 2010. Coming from a family of parfumeurs, he found his calling early, ending up at 16 at the factory that was the official supplier to the house of Coty during the first half of the last century. "I went into perfumery as if into a religion, joining a firm that occupied the premises of a former Capuchin monastery." Ellena was and remains fascinated by every aspect of the creation of a fragrance, from distillation and extraction to research and manufacturing. In his illustrious career he has designed more than 40 perfumes, including Voyage d'Hermes and Terre d'Hermes. In achieving a transporting scent, Ellena's goal is for the pleasure to be released and shared by the wearer and those around him or her, a passionate philosophy that turns a fragrance into more than the sum of its notes. (Feb.)
EVAL ERROR: Entity: line 94: parser error : PCDATA invalid Char value 11
blossom on the body and leave a trace of us lingering after we have left a room.
                                                                                ^

Code:
line 1: package tmpevalpackage;
line 2: sub doEval { 
line 3: 	use Business::ISBN qw(:all);
line 4:     use LWP::Simple;
line 5: 	use XML::Simple;
line 6: 
line 7: 	my($isbn_struct,$isbn10_string,$isbn13_string,$isbn10,$isbn13,$ASIN,$linetext);
line 8: 	my($has_ad, $box_style, $buy_amazon, $buy_apple, $buy_indiebound, $buy_powells, $buy_google, $buy_bandn, $drawer_style);
line 9: 
line 10: 	++$main::ENV{'buy_counter'};
line 11: 
line 12: 	my ($isbn) = "978-0-8478-4042-7";
line 13: 	if("1"){
line 14: 		$has_ad = 1;
line 15: 	}
line 16: 
line 17: 	$linetext = "";
line 18: 	my $no_image = "";
line 19: 	if($linetext){
line 20: 		$box_style .= "display:none;position:absolute;z-index:99999;width:100px;";
line 21: 		$drawer_style .= "display:block;";		
line 22: 	}
line 23: 	else{
line 24: 		$drawer_style .= "display:none;";		
line 25: 	}
line 26: 	
line 27: 	if($isbn =~ s/^ASIN(.+)/$1/){
line 28: 		$ASIN = 1;
line 29: 		$buy_amazon = "http://www.amazon.com/gp/product/$isbn/ref=as_li_tl?ie=UTF8&tag=publiweekl05-20";
line 30: 	}
line 31: 	else{
line 32: 		$isbn_struct = Business::ISBN->new($isbn);
line 33: 		if($isbn_struct && $isbn_struct->is_valid){
line 34: 			$isbn10 = $isbn_struct->as_isbn10;
line 35: 			$isbn13 = $isbn_struct->as_isbn13;
line 36: 			$isbn10_string = $isbn10->as_string([]);
line 37: 			$isbn13_string = $isbn13->as_string([]);
line 38: 			$buy_amazon = "http://www.amazon.com/gp/product/$isbn10_string/ref=as_li_tl?ie=UTF8&tag=publiweekl05-20";
line 39: 			$buy_apple = "http://itunes.apple.com/us/book/isbn$isbn13_string?at=10lvId";
line 40: 			$buy_indiebound = "http://www.indiebound.org/book/$isbn13_string?aff=PublishersWeekly";
line 41: 			$buy_powells = "http://www.powells.com/partner/41251/biblio/$isbn13_string?p_isbn";
line 42: 			$buy_google = "https://play.google.com/store/search?q=$isbn13_string&c=books&PAfiiliateID=11lwg2";
line 43: 			
line 44: 			my $bnxml = get("https://pds.barnesandnoble.com/fetch-data-service/productAffiliate?ids=$isbn13_string");
line 45: 			
line 46: 			if($bnxml){
line 47: 				my $xmlDoc = XML::Simple->new();
line 48: 				my $xmlHash = $xmlDoc->XMLin($bnxml);
line 49: 				
line 50: 				if( $xmlHash->{'ProductAffiliateResult'} 
line 51: 					&& $xmlHash->{'ProductAffiliateResult'}->{'Product'}
line 52: 					&& $xmlHash->{'ProductAffiliateResult'}->{'Product'}->{'Url'}){
line 53: 						$buy_bandn = "http://www.dpbolvw.net/click-4260421-11819508?url=" . $xmlHash->{'ProductAffiliateResult'}->{'Product'}->{'Url'};
line 54: 				}
line 55: 			}
line 56: 
line 57: #			$buy_bandn = "http://click.linksynergy.com/deeplink?mid=36889&id=uWBQGnFbkjk&murl=http%3A%2F%2Fcart2.barnesandnoble.com%2FShop%2Fxt_manage_cart.asp%3Fean%3D$isbn13_string%26productcode%3DBK";
line 58: 
line 59: 		}
line 60: 	}
line 61: 
line 62: 	if($linetext){
line 63: 		print "<span id=\"box_inline$main::ENV{'buy_counter'}\" class=\"buy-link\" onmouseover=\"\$(\'#buy-container$main::ENV{'buy_counter'}\').fadeIn(100);\" onmouseleave=\"dismissUnlessEnter('#buy-container$main::ENV{\"buy_counter\"}','#box_inline$main::ENV{\"buy_counter\"}')\";>$linetext</span>\n";
line 64: 		print "<div id=\"buy-container$main::ENV{'buy_counter'}\" onmouseleave=\"\$(\'#buy-container$main::ENV{'buy_counter'}\').fadeOut(100);\" style=\"$box_style\">\n";
line 65: 	}
line 66: 	else{
line 67: 		print "<div id=\"buy-container$main::ENV{'buy_counter'}\" style=\"$box_style\">\n";
line 68: 	}
line 69: 	if(!$no_image) { 
line 70: 		print "
	
		
	
"; 
line 71: 		print "<div id=\"buy-box\">\n";
line 72: 	}
line 73: 	else {
line 74: 		print "<div id=\"buy-box\" style=\"width:100%;margin-top:10px;margin-bottom:20px;\">\n";
line 75: 	}
line 76: 	print "<div id=\"buy-inner-box\" class=\"buy-box\">\n";
line 77: 	if($linetext){
line 78: 		print "<div class=\"buy-box-header\">Buy this book</div>\n";
line 79: 	}
line 80: 	else{
line 81: 		print "<div class=\"buy-box-header\" onClick=\"\$(\'.buy-box-body$main::ENV{'buy_counter'}\').toggle(100);\">Buy this book</div>\n";
line 82: 	}
line 83: 	print "<div class=\"buy-box-body$main::ENV{'buy_counter'}\" style=\"$drawer_style\">\n";
line 84: 	print "<div class=\"buy-box-item\">\n";
line 85: 	print "<a href=\"$buy_amazon\" target=\"_offsite\">Amazon</a>\n";
line 86: 	print "</div>\n";
line 87: 	if(!$ASIN){
line 88: 		if($buy_bandn){
line 89: 			print "<div class=\"buy-box-item\">\n";
line 90: 			print "<a href=\"$buy_bandn\" target=\"_offsite\">Barnes & Noble</a>\n";
line 91: 			print "</div>\n";
line 92: 		}
line 93: 		print "<div class=\"buy-box-item\">\n";
line 94: 		print "<a href=\"$buy_google\" target=\"_offsite\">Google</a>\n";
line 95: 		print "</div>\n";
line 96: 		print "<div class=\"buy-box-item\">\n";
line 97: 		print "<a href=\"$buy_apple\" target=\"_offsite\">iBooks</a>\n";
line 98: 		print "</div>\n";
line 99: 		print "<div class=\"buy-box-item\">\n";
line 100: 		print "<a href=\"$buy_indiebound\" target=\"_offsite\">IndieBound</a>\n";
line 101: 		print "</div>\n";
line 102: 		print "<div class=\"buy-box-item\">\n";
line 103: 		print "<a href=\"$buy_powells\" target=\"_offsite\">Powell's</a>\n";
line 104: 		print "</div>\n";
line 105: 		}
line 106: 	print "</div>\n";
line 107: 	print "</div>\n";
line 108: 	print "</div>\n";
line 109: 	if($has_ad && !$no_image){
line 110: 		print "<div>\n";
line 111: 		print "<div><a rel=\"nofollow\" href=\"https://secure.publishersweekly.com/pw/link-tracker?action=click&id=8\"> </a><img src=\"https://secure.publishersweekly.com/pw/link-tracker?action=impression&id=8\" width=\"1\" height=\"1\"></div>\n";
line 112: 		print "<iframe src=\"//ads.ad-center.com/smart_ad/display?ref=5042105&q=KEYWORD&smart_ad_id=16481\" width=\"204\" height=\"70\" frameborder=\"0\" scrolling=\"no\" allowtransparency=\"true\"></iframe>\n";
line 113: 		print "</div>\n";
line 114: 	}
line 115: 	print "</div>\n";
line 116: 
line 117:  };
line 118: &doEval();
line 119: 1;
The Best Books, Emailed Every Week
Tip Sheet!
MORE BOOKS YOU'D LIKE
X