Scan Item:5000175411118 
http://www.techfortesco.com/groceryapi_b1/restservice.aspx?searchtext=5000175411118&extendedinfo=N&sessionkey=zzOvcQxRKx23Etmrtuu2d243sBvJcWQJpZexuQwl8QGYRDwySv&command=PRODUCTSEARCH at /usr/local/share/perl/5.14.2/WebService/Tesco/API.pm line 59, <> line 1. 
{ 
"StatusCode": 0, 
"StatusInfo": "Processed and Logged OK", 
"PageNumber": 0, 
"TotalPageCount": 1, 
"TotalProductCount": 1, 
"PageProductCount": 1, 
"Products": 
[ 
{ 
"BaseProductId": "50043662", 
"EANBarcode": "5000175411118", 
"CheaperAlternativeProductId": "", 
"HealthierAlternativeProductId": "", 
"ImagePath": "http://img.tesco.com/Groceries/pi/118/5000175411118/IDShot_90x90.jpg", 
"MaximumPurchaseQuantity": 99, 
"Name": "Oxo 12 Chicken Stock Cubes 71G", 
"OfferPromotion": "Price Drop Was £1.13 Now £1.00 ", 
"OfferValidity": "valid from 30/7/2012 until 9/9/2012", 
"OfferLabelImagePath": "http://www.tesco.com/Groceries/UIAssets/I/Sites/Retail/Superstore/Online/Product/pos/save.png", 
"Price": 1, 
"PriceDescription": "£1.41 each", 
"ProductId": "254881114", 
"ProductType": "QuantityOnlyProduct", 
"UnitPrice": 1.41, 
"UnitType": "100g" 
} 
] 
}

@lines = split /^/, $foo; # converts multiline string into an array of lines 
foreach my $line (@lines) { # travels through each line 
     my $product_id = $1 if $line =~ /"^ProductId": "(\d+)$"; 
     # if lines containt with '^ProductId": "' following by more than 
     # 0 digits, capture these digits into $product_id 
}

 
 
#!/usr/bin/perl 
use warnings; 
use strict; 
use WebService::Tesco::API; 
 
 
my $tesco = WebService::Tesco::API->new( app_key => '123456789', developer_key => '123456789ABCDEF', debug => 1, ); 
 
my $result = $tesco->login({ email => 'SomeOne@yahoo.co.uk', password => 'Secret', }); 
 
print "Scan Item:"; 
 
my $pn = <>;                                                                                                                #Scan Bar Code 
 
chop ($pn);                                                                                                                   #remove %OA from end of scan code 
 
my $code = $tesco->product_search({ searchtext => $pn, extendedinfo => 'N' }); 
 
        @lines = split /^/, $code;                                                                                      # converts multiline string into an array of lines  
        foreach my $line (@lines) {                                                                                  # travels through each line  
        my $product_id = $1 if $line =~ /"^ProductId": "(\d+)$"; 
                                                                                                                                     # if lines containt with '^ProductId": "' following by more than  
                                                                                                                                     # 0 digits, capture these digits into $product_id  
        } 
 
print $product_id;

 
Global symbol "@lines" requires explicit package name at tesco_play.pl line 27. 
Global symbol "@lines" requires explicit package name at tesco_play.pl line 28. 
Search pattern not terminated at tesco_play.pl line 30.

my @lines = split /^/, $foo; # converts multiline string into an array of lines  
foreach my $line (@lines) { # travels through each line  
     my $product_id = $1 if $line =~ /"^ProductId": "(\d+)$";  
     # if lines containt with '^ProductId": "' following by more than  
     # 0 digits, capture these digits into $product_id  
}

Search pattern not terminated at tesco_play.pl line 30.

 
#!/usr/bin/perl 
use warnings; 
use strict; 
use WebService::Tesco::API; 
 
 
my $tesco = WebService::Tesco::API->new( app_key => 'xxxxxxxx', developer_key => 'xxxxxxxxxx', debug => 1, ); 
 
my $result = $tesco->login({ email => 'anyone@yahoo.co.uk', password => 'secret', }); 
 
print "Scan Item:"; 
my $pn = <>;                                                         #Scan Bar Code 
chop ($pn);                                                          #remove %OA from end of scan code 
my $code = $tesco->product_search({ searchtext => $pn, extendedinfo => 'N' }); 
my @lines = split /^/, $code; # converts multiline string into an array of lines   
foreach my $line (@lines) { # travels through each line   
     my $product_id = $1 if $line =~ /"^ProductId": "(\d+)/$"; 
     # if lines containt with '^ProductId": "' following by more than   
     # 0 digits, capture these digits into $product_id   
} 
print $product_id;

my $product_id = $1 if $line =~ /^"ProductId": "(\d+)"$/;

foreach my $line (@lines) { # travels through each line    
     my $product_id = $1 if $line =~ /"^ProductId": "(\d+)$/";  
     # ... 
}  
print $product_id;

my $product_id; 
foreach my $line (@lines) { # travels through each line    
     $product_id = $1 if $line =~ /"^ProductId": "(\d+)$/";  
     # ... 
}  
print $product_id;

foreach my $line (@lines) { # travels through each line    
     my $product_id = $1 if $line =~ /"^ProductId": "(\d+)$/";  
     # ... 
     print $product_id, "\n"; 
}

#!/usr/bin/perl 
use warnings; 
use strict; 
use WebService::Tesco::API; 
 
 
my $tesco = WebService::Tesco::API->new( app_key => 'xxxxxx7709742AA45', developer_key => 'xxxxAwUk97yp0', debug => 1, ); 
 
my $result = $tesco->login({ email => 'xxxx@yahoo.co.uk', password => 'xxxx57', }); 
 
 
print "Scan Item...."; 
my $pn = <>;                     				       #Scan Bar Code 
chop ($pn);                                                          #remove %OA from end of scan code 
 
my $code = $tesco->product_search({ searchtext => $pn, extendedinfo => 'N' }); 
 
my @lines = split /^/, $code;                            # converts multiline string into an array of lines   
 
 
foreach my $line (@lines) {                                # travels through each line   
     my $product_id = $1 if $line =~ /^"ProductId": "(\d+)"$/;   
                                                                                 # if lines containt with '^ProductId": "'following by more than   
                                                                                 # 0 digits, capture these digits into $product_id   
     print $product_id, "\n";                                                                                       
                                                                                                                         
} 
 
This returns the following: