Changeset 5752 for lang/perl/Mezasi

Show
Ignore:
Timestamp:
01/29/08 03:52:26 (5 years ago)
Author:
hiroyukim
Message:

map ord, split(, $str ) も多いからそれに対応するメソッド追加

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/Mezasi/trunk/lib/Mezasi/StringUtil.pm

    r5751 r5752  
    77 
    88our($VERSION, @ISA, @EXPORT, @EXPORT_OK); 
    9 @EXPORT_OK = qw(list_s reverse_s list_reverse_s);   
     9@EXPORT_OK = qw(list_s reverse_s list_reverse_s list_byte_s);   
    1010$VERSION = '0.001'; 
    1111 
    12 sub list_s ($) { split('', shift )  } 
     12sub list_s ($)        { split('', shift )  } 
    1313 
    14 sub reverse_s($) {  join('', list_reverse_s( shift ) ) } 
     14sub reverse_s($)      {  join('', list_reverse_s( shift ) ) } 
    1515 
    1616sub list_reverse_s($) { reverse split('', shift ) }  
    1717 
     18sub list_byte_s($)    { map ord, list_s( shift )  }  
     19 
    18201;