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";

perl zypm.pl 2 25

《易經》第十卦履天澤履乾上兌下

 履，履虎尾，不咥人，亨。

 《易經》第十卦履天澤履乾上兌下
 
 履，履虎尾，不咥人，亨。
 
 初九：素履往，無咎。
 九二：履道坦坦，幽人貞吉。
 六三：眇能視，跛能履，履虎尾，咥人，凶。武人為于大君。
 九四：履虎尾，愬愬，終吉。
 九五：夬履，貞厲。
 上九：視履考祥，其旋元吉。

《易經》第十卦履天澤履乾上兌下

履，履虎尾，不咥人，亨。

《彖》曰：履，柔履剛也。說而應乎乾，是以「履虎尾，不咥人，亨」。剛中正，履帝位而不疚，光明也。

《易經》第十卦履天澤履乾上兌下

  履，履虎尾，不咥人，亨。

《象》曰：上天下澤，履。君子以辨上下、定民志。
《象》曰：素履之往，獨行愿也。
《象》曰：「幽人貞吉」，中不自亂也。
《象》曰：「眇能視」，不足以有明也。「跛能履」，不足以與行也。咥人之凶，位不當也。「武人為于大君」，志剛也。
《象》曰：「愬愬，終吉」，志行也。
《象》曰：「夬履，貞厲」，位正當也。
《象》曰：元吉在上，大有慶也

  use ZHOUYI::ZhanBu;
 
  my ( $gnum, $bgnum, $byao, $bgua ) = qigua();
  print  jiegua( $gnum, $bgnum, $byao, $bgua )
  ...

  卦：《易經》第三十二卦恆雷風恆震上巽下

  恆，亨，無咎，利貞，利有攸往。

《彖》曰：恆，久也。剛上而柔下，雷風相與，巽而動，剛柔皆應，恆。「恆，亨，無咎，利貞」，久於其道也，天地之道，恆久而不已也。「利有攸往」，終則有始也。日月得天而能久照，四時變化而能久成，聖人久於其道而天下化成。觀其所恆，而天地萬物之情可見矣！
《象》曰：雷風，恆。君子以立不易方。

 爻：六五：恆其德，貞婦人吉，夫子凶。
《象》曰：婦人貞吉，從一而終也。夫子制義，從婦凶也

$ perl -MZHOUYI::ZhanBu  -pe 'jiegua(qigua())'

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

插件example/Pu.pm（关于Mojo::webqq详见 https://github.com/sjdy521/Mojo-Webqq）

九四。鼎折足，覆公餗，其形渥，凶。

象曰：覆公餗，信如何也。

凶：得此爻者，多灾之时，或生足疾。做官的有被贬职之忧。

[orange](bollwarm@ijz.me), [虫虫之家Blog](http://ijz.me)