The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

NAME

Zodiac::Chinese::Table - Look up Chinese zodiac for a given Gregorian date

VERSION

This document describes version 0.021 of Zodiac::Chinese::Table (from Perl distribution Zodiac-Chinese-Table), released on 2020-01-03.

SYNOPSIS

 use Chinese::Zodiac::Table qw(chinese_zodiac);
 my $res = chinese_zodiac("1980-02-17");

Sample result:

 [
   "1980-02-16",
   "1981-02-04",
   "yang",
   "metal",
   "庚",
   "申",
   "猴",
   "monkey",
 ]

DESCRIPTION

This module can look up Chinese zodiac for a given Gregorian date. Compared to Zodiac::Chinese, it uses a lookup table (currently available for Jan 1900 - Feb 2092) so it is more accurate.

Data source is currently at: https://github.com/perlancar/gudangdata (table/chinese_zodiac), which in turn is parsed from Wikipedia article.

FUNCTIONS

chinese_zodiac($date) => arrayref

Return Chinese zodiac information for a Gregorian date $date. Currently date must be a string in the format of YYYY-MM-DD. Will return an arrayref containing these elements:

 # index: 0         1           2           3              4               5               6            7
 ["start_date", "end_date", "yin_yang", "element", "heavenly_stem", "earthly_branch", "zh_animal", "en_animal"].

Will return undef if date range is unsupported.

HOMEPAGE

Please visit the project's homepage at https://metacpan.org/release/Zodiac-Chinese-Table.

SOURCE

Source repository is at https://github.com/perlancar/perl-Zodiac-Chinese-Table.

BUGS

Please report any bugs or feature requests on the bugtracker website https://rt.cpan.org/Public/Dist/Display.html?Name=Zodiac-Chinese-Table

When submitting a bug or request, please include a test-file or a patch to an existing test-file that illustrates the bug or desired feature.

SEE ALSO

Zodiac::Chinese

App::ZodiacUtils distribution contains some CLIs.

AUTHOR

perlancar <perlancar@cpan.org>

COPYRIGHT AND LICENSE

This software is copyright (c) 2020, 2015 by perlancar@cpan.org.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.