| Dönüştür :: Aşırı ölçü CONVERT :: CountryLite, ikili kapsamlı bulmaca dosyalarını metne dönüştürmek için bir perl modülüdür. |
Şimdi İndirin |
Dönüştür :: Aşırı ölçü Sıralama ve Özet
- Lisans:
- Perl Artistic License
- Yayıncı adı:
- Doug Sparling
- yayıncı web sitesi:
- http://search.cpan.org/~dsparling/Convert-AcrossLite-0.08/AcrossLite.pm
Dönüştür :: Aşırı ölçü Etiketler
Dönüştür :: Aşırı ölçü Açıklama
Dönüştür :: CountryLite, ikili kapsamlı bulmaca dosyalarını metne dönüştürmek için bir perl modülüdür. Dönüştür :: CountryLite, ikili kapsamlı bulmaca dosyalarını metinlere dönüştürmek için bir perl modülüdür. $ AC = CONVERT :: Aşırı ölçü-> Yeni (); $ AC-> In_File ('/ Home / Doug / Puzzles / Easy.Puz'); $ AC-> Out_File ('/ Home / Doug / Puzzles / Easy.txt'); $ AC-> PUZ2TEXT; veya Convert :: Aşırı ölçü; $ AC = CONVERT :: Aşırı ölçü-> Yeni (); $ AC-> In_File ('/ Home / Doug / Puzzles / Easy.Puz'); $ Metnim = $ AC-> PUZ2Text; veya Convert :: Aşırı ölçü; $ AC = CONVERT :: Aşırı ölçü-> Yeni (); $ AC-> In_File ('/ Home / Doug / Puzzles / Easy.Puz'); $ AC-> Parse_File; $ Başlığım = $ AC-> GET_TITLE; $ Yazar = $ ac-> get_author; $ Copyright = $ ac-> get_copyright; @solution = $ ac-> get_solution; @Diagram = $ ac-> get_diagram; $ couned_clues = $ ac-> get_across_clues; $ down_clues = $ ac-> get_down_clues; veya Convert :: Aşırı ölçü; $ AC = CONVERT :: Aşırı ölçü-> Yeni (); $ AC-> In_File ('/ Home / Doug / Puzzles / Easy.Puz'); benim ($ coote_hashref, $ down_hashref) = get_across_down; benim ross =% $ cootely_hashref; foreach $ anahtarımı (Sırala {$ a $ b} tuşları ross) {baskı "yönü: $ {$ tuşu} {yön} n"; Yazdır "Clue Numarası: $ {$ key} {clue_number} n"; Yazdır "Satır: $ {$ key} {ROW} N"; Yazdır "col: $ {$ key} {sütun} n"; baskı "ipucu: $ {$ key} {clue} n"; Yazdır "Çözüm: $ {$ Key} 'nin arasında {Solution} n"; baskı "uzunluğu: $ {$ key} {uzunluğu} nn"; } Benim% down =% $ down_hashref; foreach $ anahtarımı (sırala {$ a $ b} tuşları%}) {baskı "yönü: $ aşağı {$ tuşu} {yön} n"; "Clue Numarası: $ Down {$ Key} {Clue_Number} n"; "Satır: $ aşağı {$ key} {row} n" yazdırın; "COL: $ AŞAĞI {$ tuşu} {sütun} n"; baskı "ipucu: $ aşağı {$ key} {clue} n"; Yazdır "Çözüm: $ Down {$ Key} {Solution} n"; "Uzunluk: $ AŞAĞI {$ KEY} {LEND} NN"; } Dönüştür :: Aşırı ölçü, ikili kapsamlı bulmaca dosyalarını metne dönüştürmek için kullanılır. Gereksinimler: · Perl
Dönüştür :: Aşırı ölçü İlgili Yazılım