PERL script for retrieving store business hours from a website (JSON)

A website is publishing the business hours but they don't do it the same way for every store. They are VERY inconsistent...

Some stores will have their hours listed day-by-day (Mon, Tue, Wed, ... Sun) while other will be listed by group of days (Mon, Tue - Thu, Fri, Sat - Sun) or any crazy combination of these. Can even be listed as Mon - Tue, Wed - Thu, Fri - Sat, Sun. Any bad/nightmarish combination you can think the would publish.

I only need to get the information for ONE store at a time, not to do it for dozens at a time. When I need the store hours for one store, I will run the script, get the info and die.

I need to get the store hours for "today" and "tomorrow", store it in 4 separate variables:

$today_open

$today_close_hour

$tomorrow_open

$tomorrow_close

(hour should have leading 0 for the hour - so 00 to 09)

So, if today is Monday, I need to dig the JSON and get the store hours for today (Monday) and tomorrow (Tuesday). If today is Sunday, I need the hours for today (Sunday) and tomorrow (Monday).

If you can't find the hours for a particular day, it means that the store is closed (there is no info published for that day if the store is closed).

Website information is published in JSON.

Requirements: code MUST be written in PERL

Check attached document for some examples.

Perl Linux JSON

ID проекта: #36226480

О проекте