#!/usr/bin/perl

use LWP::Simple;                # URL:n haku
use JSON qw( decode_json );     # asennus: sudo cpanm JSON
use Data::Dumper;              	# tätä voi käyttää sisällön tutkimiseen
use utf8;

$perusUrl = "http://www.amica.fi/modules/json/json/index";
$ravintola = "costNumber=0413";
$paivaus = "&firstDay=2016-11-22&lastDay=2016-11-24";
$kieli = "&language=fi";

$kokoUrl = $perusUrl . "?" . $ravintola . $paivaus . $kieli;

$jsonDoku = get ($kokoUrl) or die "get meni pieleen";

$djson = decode_json( $jsonDoku );

#print Dumper $djson;	# sisällön tulostus

$menut = $djson->{MenusForDays};

for $menu (@{$menut}) {		# $menut on viite, {$menut} seuraa viitettä, @ tarkoittaa taulukkoa
	print "--------------\n";
	$pvm = $menu->{Date};
	print $pvm . "\n";
	$setmenus = $menu->{SetMenus};
	for $setm (@{$setmenus}) {
		$hinta = $setm->{Price};
		$hinta =~ s/€/e/g;		# TODO
		$componens = $setm->{Components};
		for $comp (@{$componens}) {
			print "$comp : $hinta\n";
		}
	}
}