º¯È¯ :: ±×¸°´Ù

º¯È¯ :: Atherlite´Â 2 ÁøÀ» ±â¹ÝÀ¸·ÎÇÏ´Â ÆÛÁñ ÆÄÀÏÀ» ÅؽºÆ®·Î º¯È¯ÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

º¯È¯ :: ±×¸°´Ù ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Doug Sparling
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~dsparling/Convert-AcrossLite-0.08/AcrossLite.pm

º¯È¯ :: ±×¸°´Ù ű×


º¯È¯ :: ±×¸°´Ù ¼³¸í

º¯È¯ :: Atherlite´Â 2 ÁøÀ» Áö´Ñ ÆÛÁñ ÆÄÀÏÀ» ÅؽºÆ®·Î º¯È¯ÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. º¯È¯ :: Áö½ÄÀº ¹ÙÀ̳ʸ® ÀÏ·¯½ºÆ® ÆÛÁñ ÆÄÀÏÀ» ÅؽºÆ®·Î º¯È¯ÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. ½Äº°ÀÚ¸¦ »ç¿ëÇÕ´Ï´Ù. MY $ AC = º¯È¯ :: Atherlite-> new (); $ AC-> in_file ( '/ home / doug / puzzles / easy.puz'); $ ac-> out_file ( '/ home / doug / puzzles / easy.txt'); $ ac-> puz2text; ¶Ç´Â Convert :: Atherlite; MY $ AC = º¯È¯ :: Atherlite-> new (); $ AC-> in_file ( '/ home / doug / puzzles / easy.puz'); ³» $ text = $ ac-> puz2text; ¶Ç´Â Convert :: Atherlite; MY $ AC = º¯È¯ :: Atherlite-> new (); $ AC-> in_file ( '/ home / doug / puzzles / easy.puz'); ³» $ ac-> parse_file; ³» $ teight = $ ac-> get_title; MY $ ÀúÀÚ = $ AC-> GET_AUTHOR; ³» $ ÀúÀÛ±Ç = $ AC-> get_copyright; My @solution = $ ac-> get_solution; my @diagram = $ AC-> get_diagram; MY $ TARED_CLUES = $ AC-> get_across_clues; MY $ DOWN_CLUES = $ AC-> get_down_clues; ¶Ç´Â Convert :: Atherlite; MY $ AC = º¯È¯ :: Atherlite-> new (); $ AC-> in_file ( '/ home / doug / puzzles / easy.puz'); My ($ Tocleor_hashref, $ down_hashref) = get_across_down; ³» ross = % $ tails_hashref; Foreach My $ Key ({$ A $ B} Å°·Î) {PRINT "¹æÇâ : {$ Å°} {DIRESTION} n"¿¡¼­ $. "Clue Number : $ {$ Å°} {CLUE_NUMBER} nÀ» °¡·Î Áö¸£´Â $¸¦ ÀμâÇϽʽÿÀ. "Row : $ {$ Å°} {ROW} n"À» °¡·Î Áö¸£´Â ÀμâÇϽʽÿÀ. "col : $ {$ Å°} {column} n"À» °¡·Î Áú·¯ ÀμâÇϽʽÿÀ. "Clue : $ {$ key} {Clue} n"À» °¡·Î Áú·¯ ÀμâÇϽʽÿÀ. "¼Ö·ç¼Ç : {$ Å°} {¼Ö·ç¼Ç} n"À» °¡·Î Áú·¯ ÀμâÇϽʽÿÀ. Àμâ "±æÀÌ : {$ Å°} {length} nn"À» °¡·Î Áú·¯ $. } ³» % ´Ù¿î = % $ down_hashref; Foreach My $ Key ({$ A $ B} Å°¸¦ ÀÔ·ÂÇϽʽÿÀ) {Àμâ "¹æÇâ : $ down {$ Å°} {Direction} n"; "Clue Number : $ Down {$ Å°} {clue_number} n"; Àμâ "Çà : $ down {$ Å°} {Row} n"; "col : $ down {$ Å°} {column} n"; Àμâ "´Ü¼­ : $ ´Ù¿î {$ Å°} {Clue} n"; Àμâ "¼Ö·ç¼Ç : $ down {$ Å°} {¼Ö·ç¼Ç} n"; Àμâ "±æÀÌ : $ down {$ Å°} {±æÀÌ} nn"; } Convert :: Atherlite´Â ÀÌÁø ¼ö ÆÛÁñ ÆÄÀÏÀ» ÅؽºÆ®·Î º¯È¯ÇÏ´Â µ¥ »ç¿ëµË´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.


º¯È¯ :: ±×¸°´Ù °ü·Ã ¼ÒÇÁÆ®¿þ¾î

vaucanson.

VaucansonÀº ¶óÀ̺귯¸®¿Í ¸Ç À§¿¡ ±¸Çö µÈ µµ¼­°üÀ¸·Î ±¸¼ºµÈ À¯ÇÑ »óÅ ¸Ó½Å Á¶ÀÛ Ç÷§ÆûÀÔ´Ï´Ù. ...

317

´Ù¿î·Îµå