fix: move foodture scripts and data to projets/foodture (#14301)

Adding input files for the Foodture representative products (most
scanned products in EU countries in specific categories)

Author: stephanegigandet

projects/foodture/.gitignore

@@ -0,0 +1,4 @@
+ingredients_sum.csv
+representative_products.csv
+tmp/
+

…ract_data_for_representative_products.pl …ract_data_for_representative_products.plscripts/projects/foodture/extract_data_for_representative_products.pl renamed to projects/foodture/extract_data_for_representative_products.pl scripts/projects/foodture/extract_data_for_representative_products.pl renamed to projects/foodture/extract_data_for_representative_products.pl

@@ -87,7 +87,7 @@
 my @ingredient_languages = qw/en fr/;
 
 # caching directory for API responses
-my $cache_dir = "foodture/api_cache";
+my $cache_dir = "projects/foodture/tmp/api_cache";
 mkdir $cache_dir unless -d $cache_dir;
 
 # variables for API fetching
@@ -150,7 +150,7 @@ sub collect_ingredients {
 }
 
 # first pass: read ranked products and group by country/category tags
-my $ranked_file = "foodture/ranked_products_202602231414.csv";
+my $ranked_file = "projects/foodture/ranked_products_202602231414.csv";
 open my $RANK, '<:encoding(UTF-8)', $ranked_file or die "Cannot open $ranked_file: $!\n";
 <$RANK>;    # skip header
 my $parser = Text::CSV->new(
@@ -188,12 +188,12 @@ sub collect_ingredients {
 close $RANK;
 
 # read target country/category pairs and output rows as we go
-my $list_file = "foodture/16.06.2026_Correspondance_FT_OFF_pour_extract.csv";
+my $list_file = "projects/foodture/foodture_foodex2_categories_mapping_to_off.csv";
 open my $LIST, '<:encoding(UTF-8)', $list_file or die "Cannot open $list_file: $!\n";
 <$LIST>;    # skip header
 
 # prepare output file
-my $out_file = "foodture/representative_products.csv";
+my $out_file = "projects/foodture/representative_products.csv";
 open my $OUT, '>:encoding(UTF-8)', $out_file or die "Cannot write $out_file: $!\n";
 my $csv_out = Text::CSV->new({binary => 1, eol => "\n"})
 	or die "Cannot create CSV writer: " . Text::CSV->error_diag();
@@ -420,7 +420,7 @@ sub collect_ingredients {
 close $OUT;
 
 # Create a second CSV table that lists all ingredients with the sum of their percentages across all products
-my $ingredients_file = "foodture/ingredients_sum.csv";
+my $ingredients_file = "projects/foodture/ingredients_sum.csv";
 open my $ING_OUT, '>:encoding(UTF-8)', $ingredients_file or die "Cannot write $ingredients_file: $!\n";
 my @ingredients_header = (
 	"ingredient_id",