インデックス| SUBSTR

1  ＃！/ usr / bin / perlの部分
2  
3  使用厳しいです。
4つの 使用警告;
図5は、 
6  $ _ = ' duwanxkm、C、DF;。！oq123 @＃@％$＃^ ' ;
7  私 の$ D = ' D ' ; 私の $ 0は = ' O ' ; 私の $ = インデックス（$ _、$ 0）; 印刷 " $場所\ nを" ;
8  $場所 = インデックス（$ _、$ dを、7）; 印刷 " $場所\ nを" ;
9  $ = 指数（$ _、' Y '）; 印刷 " $場所\ nを" ;
10  私 の$ lastword = RINDEX（" ％23％4546 "、" ％"、2）; 印刷 " $のlastwordの\ nを" ;
11  
12  ＃15
 13  ＃12
 14 ＃-1
 15  ＃3
 16  ＃0 
17  
18  私の $文 = ' 非常に、非常に長いです' 。
19  私の $カット = SUBSTR（$文、インデックス（$文、' 長い'）、3）; SUBSTR（$文、インデックス（$文、' 長い'）、3）= " ユ！" ; 印刷 "$文章\ n個の$カット\ nを" ;
 20  SUBSTR（$文、 - 12）=〜S / O / AAAAAA /グラム; 印刷 " $文\ nを" ;
 21  
22  ＃非常に非常にユ・グラム！
 23  #lon
 24  ＃非常に非常にyAAAAAAAAAAAAグラム！
25  
26  私の $新しい =のSUBSTR（$文、3、10、" GOOOOO "）; 印刷 " $新しい\ n $という文\ nを" ;
 27  
28  ＃yの非常にはい
 29  #verGOOOOOAAAAAAAAAA！グラム