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  -e 'print jiegua(qigua())'

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

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

九四。鼎折足，覆公餗，其形渥，凶。象曰：覆公餗，信如何也。

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

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