ÅؽºÆ® :: NumericList.

ÅؽºÆ® :: NumericList´Â ¹®ÀÚ¿­À» ¾çÀÇ Á¤¼ö ¹è¿­·Î º¯È¯ÇÏ´Â Perl È®ÀåÀÚÀÌ¸ç ±× ¹Ý´ëÀÇ °æ¿ìµµ ¸¶Âù°¡ÁöÀÔ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

ÅؽºÆ® :: NumericList. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Arkady Grudzinsky
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~grudziar/Text-NumericList-0.01/NumericList.pm

ÅؽºÆ® :: NumericList. ű×


ÅؽºÆ® :: NumericList. ¼³¸í

ÅؽºÆ® :: NumericList´Â ¹®ÀÚ¿­À» ¾çÀÇ Á¤¼ö ¹è¿­·Î º¯È¯ÇÏ´Â Perl È®ÀåÀÚÀÌ¸ç ±× ¹Ý´ëÀÇ °æ¿ìµµ ¸¶Âù°¡ÁöÀÔ´Ï´Ù. text :: numericList´Â ¹®ÀÚ¿­À» ¾çÀÇ Á¤¼öÀÇ ¹è¿­·Î º¯È¯ÇÏ´Â Perl È®ÀåÀÚÀÌ¸ç ±× ¹Ý´ëÀÇ °æ¿ìÀÔ´Ï´Ù. ÅؽºÆ® :: NumericList¸¦ »ç¿ëÇÕ´Ï´Ù. ³» $ list = text :: numericlist-> »õ; ¹è¿­À» ¹®ÀÚ¿­·Î º¯È¯ $ list-> set_array (1,2,3,5,6,7); ³» $ string = $ list-> get_string; # '1-3,5-7'$ list-> set_output_separator ( ';')¸¦ ¹ÝȯÇÕ´Ï´Ù. $ string = $ list-> get_string; # '1-3; 5-7'$ list-> set_range_symbol ( '..')¸¦ ¹ÝȯÇÕ´Ï´Ù. $ string = $ list-> get_string; # '1..3; 5.7''N'Converting ¹®ÀÚ¿­À» ¾î·¹ÀÌ $ LIST-> SET_STRING ('1-3,5-7 ')¿¡ ¿¬°áÇÕ´Ï´Ù. ³» @array = $ list-> get_array; # ¸®ÅÏ (1,2,3,5,6,7) $ list-> set_range_regexp ( '. +'); # ´ÜÀÏ ¶Ç´Â ´ÙÁß ±â°£ $ LIST-> SET_STRING ( '1..3,5 ... 7')À» ¼³Á¤ÇϽʽÿÀ. @array = $ list-> get_array; # (1,2,3,5,6,7) Ãß°¡ ¸Þ¼Òµå MY $ MASK = »õ ÅؽºÆ® :: NumericList; $ mask-> set_string ( '1-10,20-25'); $ list-> set_mask ($ ¸¶½ºÅ©); # maskmask´Â ¼ýÀÚ ¸ñ·ÏÀ» ƯÁ¤ °ªÀ¸·Î Á¦ÇÑÇÏ¿© get_string () ¹× get_array () ¸Þ¼­µå°¡ ÇöÀç ¸ñ·Ï°ú ¸¶½ºÅ©ÀÇ ±³Â÷Á¡À» ¹ÝȯÇÕ´Ï´Ù : $ list-> set_string ('15 -30 '); @array = $ list-> get_array; # (20,21,22,23,24,25) $ string = $ list-> get_string; # ¸¶½ºÅ©°¡ ¼³Á¤µÇ¾î ÀÖÀ¸¸é '20 -25 '¸¦ ¹ÝȯÇÕ´Ï´Ù. $ list-> set_string ('18, Ȧ¼ö '); @array = $ list-> get_array; # (15,17-19,21,23,25,27,29) $ LIST-> SET_STRING ('21, ½ÉÁö¾î '); @array = $ list-> get_array; # (16,18,20-22,24,26,28,30) $ LIST-> SET_STRING ( 'ALL'); $ string = $ list-> get_string; # '15 -30'Requirements : ¡¤ Perl ¿ä±¸ »çÇ× : ¡¤ Perl.


ÅؽºÆ® :: NumericList. °ü·Ã ¼ÒÇÁÆ®¿þ¾î