Re: Writing Hebrew Dates in Hebrew


good chemistry is complicated, and a little bit messy -LW
	PerlMonks

Re: Writing Hebrew Dates in Hebrew

by Your Mother (Archbishop)

on Sep 19, 2016 at 02:34 UTC ( [id://1172091]=note: print w/replies, xml )

Need Help??

in reply to Writing Hebrew Dates in Hebrew

This isn’t a full answer but might get you pretty close to real/robust date handling with just a little bit of trivial Hebrew formatting, via hashes, left to do. I recommend suggesting a patch or bringing up the issue of “native” formatting to the module authors; DateTime::Calendar::Hebrew.

#!/usr/bin/env perl
use strictures;
use utf8;
use DateTime::Calendar::Hebrew;

my $count;
my %months = map {; $_ => ++$count }
    qw/ Nissan Iyar Sivan Tamuz Av Elul Tishrei
        Cheshvan Kislev Tevet Shevat AdarI AdarII /;

for ( <DATA> )
{
    my ( $day, $month_name, $year ) = split;
    my $dt = DateTime::Calendar::Hebrew
        ->new( year  => $year,
               month => $months{$month_name},
               day   => $day );

    print $dt->ymd, $/;
}

__DATA__
15 Elul 5776
[download]