OSCHINA-MIRROR/ijz-ZHOUYI

Введение

Анализ и вывод стандарта «Чжоу И», вывод двух цифр (нижняя и верхняя триграммы) соответствует анализу одной из гексаграмм «Чжоу И». Также частично выводятся главная гексаграмма, шесть линий, афоризм и значение линий. Можно провести предварительное гадание по книге перемен.

Установка и использование

Конкретный способ использования см. в example. Сначала установите модуль, затем:

use ZHOUYI;
binmode STDOUT, ":utf8";

my ( $num1, $mum2 ) = @ARGV;

my $reply = ZhouyiEx( ZYindex( $mum2, $num1 ));
my $reply1 = outGua($reply);
my $replyyao = sixyao($reply);
my $replytuan = outtuan($reply);
my $replyxiang = outxiang($reply);

print $reply1,"\n";
print "=== Шесть линий ==\n\n";
print $replyyao,"\n";
print "=== Афоризм ==\n\n";
print $replytuan,"\n";
print "=== Значение линий ==\n\n";
print $replyxiang,"\n";

Сохраните как zypm.pl

perl zypm.pl 2 25

Результат отображения

Внешний вид:

«Чжоу И» № 10, Цянь — Кунь, верхняя — Чжэнь, нижняя — Дуй

Цянь, Цянь с хвостом, не глотает человека, успех.

=== Шесть линий ===

«Чжоу И» № 10, Цянь — Кунь, верхняя — Чжэнь, нижняя — Дуй

Цянь, Цянь с хвостом, не глотает человека, успех.

Начальная девятка: изначальное продвижение, без вины.
Девятка вторая: продвижение по ровному пути, скрытое счастье.
Шестёрка третья: слепой может видеть, хромой может продвигаться, хвост Цяня, глотает человека, беда. Воин служит великому государю.
Четвёртая девятка: хвост Цяня, радость, великий успех.
Пятая девятка: перевёрнутое продвижение, стойкость.
Верхняя девятка: видение продвижения, счастье, обращение к счастью, завершение великого успеха.

=== Афоризм ===

«Чжоу И» № 10, Цянь — Кунь, верхняя — Чжэнь, нижняя — Дуй

Цянь, Цянь с хвостом, не глотает человека, успех.

Афоризм гласит: Цянь, мягкое продвижение твёрдого. Отвечает Цяню, поэтому «Цянь с хвостом, не глотает человека, успех». Твёрдое находится в центре, продвижение мягкое, свет.

=== Значение линий ===

«Чжоу И» № 10, Цянь — Кунь, верхняя — Чжэнь, нижняя — Дуй

  Цянь, Цянь с хвостом, не глотает человека, успех.

Значение гласит: верхнее небо, нижнее озеро, продвижение. Благородный человек различает верх и низ, определяет судьбу народа.
Значение гласит: изначальное продвижение его желания.
Значение гласит: «скрытое счастье», среди нет беспорядка.
Значение гласит: «слепой может видеть», недостаточно, чтобы был свет. «Хромой может продвигаться», недостаточно, чтобы шёл. Глотает человека — беда, положение не соответствует. «Воин служит великому государю», воля твёрдая.
Значение гласит: радость, великий успех, воля идёт.
Значение гласит: перевёрнутое продвижение, стойкость, положение правильное.
Значение гласит: великий успех на верхнем уровне, великая радость.

ZHOUYI-ZhanBu

ZHUYI::ZhanBu (Чжоу И гадание) — утилита модулей ZHOUYI, гадание для предсказания будущего с использованием информации о гексаграммах или афоризмах «Чжоу И»!

use ZHOUYI::ZhanBu;


my ( $gnum, $bgnum, $byao, $bgua ) = qigua();
print  jiegua( $gnum, $bgnum, $byao, $bgua );
...

Результат отображения

Внешний вид:

Гексаграмма: «Чжоу И» № 32, Хэн — Лэй, ветер, Хэн, гром, верхний — Шунь, нижний — Цзюнь

Хэн, успех, без вины, благоприятное постоянство, благоприятно иметь куда двигаться.

Значение гласит: Хэн, долго. Твёрдый вверху, мягкий внизу, гром и ветер вместе, Шунь движется, твёрдый и мягкий отвечают, Хэн. «Хэн, успех, без вины», долго на своём пути, путь неба и земли, Хэн долго и не прекращается. «Благоприятно иметь куда двигаться», в конце будет начало. Солнце и луна получают небо и могут долго освещать, четыре сезона меняются и могут долго завершаться, мудрец долго на своём пути и земля под небом преобразуется. Рассматривая то, что Хэн, можно увидеть чувства неба, земли и десяти тысяч вещей! Значение гласит: гром, Хэн. Благородный человек устанавливает неизменный принцип.

 Линия: шестая, пятая: Хэн своей добродетели, благоприятная женщина, удача, мужскому полу беда.
Значение гласит: благоприятная женщина удача, от одного до конца. Мужскому полу контроль, от женщины беда.

Вы можете использовать в одной строке, как вам нравится:

$perl -MZHOUYI::ZhanBu  -e 'print jiegua(qigua())'

#или просто используйте:

$perl -MZHOUYI::ZhanBu -e 'print pu()'

Использование плагина Mojo::webqq для интерактивного гадания.

Используя этот плагин, я успешно предсказал выборы в США.

Плагин example/Pu.pm (подробнее о Mojo::webqq см. https://github.com/sjdy521/Mojo-Webqq)

Успешное предсказание выборов президента США

Как показано на рисунке выше, предсказание было сделано за два дня до выборов, и кандидат от республиканской партии на пост президента США был определён как:

четвёртая девятка. Поднятие треножника, опрокидывание жертвенного сосуда, его форма грязная, беда.

Значение гласит: опрокидывание жертвенного сосуда, доверие как?

Император династии Северная Сун, учёный Шао Юн, объясняет:

Беда: если у того, кто получает эту линию, много бедствий, возможно, есть проблемы со здоровьем ног. У чиновника есть опасения быть пониженным в должности.

Результат очень точный.

Git repo

Github

oschina

AUTHOR

orange, Блог «Дом насекомых»

COPYRIGHT AND LICEE

Эта библиотека является свободным программным обеспечением; вы можете распространять её и/или изменять её на тех же условиях, что и сам Perl.