___
■ 文字の削除
  
  SYNTAX
    chop  string
    chomp LIST

  RET
    削除された末尾の１文字

  DESC
    対象の文字列の末尾の文字を削除する。

  POINT
    Perl ではファイルから読まれた行は最後の改行は含まれる
    chomp は改行があれば, 削除して、( なければ何もしない )

    my $s = "abc"
    my $ret = chop( $s );

    # "c"
    print ( $ret );

    # "ab"
    print ( $s );


  WARNING
    引数となる文字列に削除をするため定数は指定できない
    # BAD
    chop( "abc" );
    
    # OK
    my $s = "abc";
    chop( $s );




___
■ Substitute

  SYNTAX
    s/ptn/regexp/  

  DESC
    置換演算子


    {
      $word = "foo";
      $word =~ s/foo/bar/;

      # bar
      print $word;
    }



    # 繰り返すには /g. 途中の文字でも Matching する 
    {
        my $var="jinmin no jinmin ni yoru jinmin no tameno Seiji";

        $var=~s/jinmin/ore/g;

        # RET: ore no ore ni yoru ore no tameno Seiji
        print $var;
    }    
    
    {
      my $var = "ore ore ore ore";

      # 行頭だけ Match したい場合は "^"
      $var =~ s/^ore/foo/g;

      # RET: foo ore ore ore
      print $var;
    }



___
■ 検索

  SYNTAX
    m/pattern/

  DESC
    pattern を検索する



    # Grep と同じ操作
    while (< stdin>) {
      if ( m/test/ ) {
         print;
      }
    }




   if( "Wikibooks" =~ /book/){
     print "Match!";
   }else{
     print "Not match.";
   }    




___
■ 結合(strcat)


     my $str = "aaa" . "bbb";



___
■ substr

  DESC
    部分文字列をかえす
   

  SYNTAX
   $ret = length( $str );

 SYNTAX
   $ret = substr( $str, offset [,length [, replace ] ] );

    # 4 番目から最後まで
    # efgh 
    substr("abcedefgh", 4 );

    # - を指定すると 最後から N 番目の位置になる
    # 後ろから 1 番目から最後まで
    # c
    substr( "abc", -1 );

    # 0 番目から 2 個
    #  ab
    substr( "abc", 0, 2 );
    
    # - を指定すると 後ろから 2 番目の位置の文字まで
    #  a
    substr( "abc", 0, -2 );
    
        
   #  ef
   substr( "abcedefgh", 4, -2 ) -> ef  // 前後から指定

   
   # 4 番目から最後まで



___
■ index

  DESC
    regexp に一致する index をかえす

  RET
    N >= 0 : match した index
    -1     : match しない

    # -1 
    index("aiueo", "foobar");

    # 2
    index("aiueo", "ueo");


  
___
■ length

  DESC
    文字列の byte 数をかえす
  
    #  3
    length( "abc" )

    #  6
    #    ( SJIS )
    print length( "あいう" );

    #  9
    #   ( utf-8 )
    print length( "日本語" );

  

___
■ substitute

  SYNTAX
    s/regexp/置換文字列/

  
    $s = "This is a pen.";

    #    this is a book
    $s =~ s/pen/book/;

    # 空白文字削除.  
    $s =~ s/\s//g;