| º¯È¯ :: ±×¸°´Ù º¯È¯ :: Atherlite´Â 2 ÁøÀ» ±â¹ÝÀ¸·ÎÇÏ´Â ÆÛÁñ ÆÄÀÏÀ» ÅؽºÆ®·Î º¯È¯ÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
º¯È¯ :: ±×¸°´Ù ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- 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.
º¯È¯ :: ±×¸°´Ù °ü·Ã ¼ÒÇÁÆ®¿þ¾î