起泡排序算法.从小到大排序
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | #include "stdio.h"; void main() { int i, j, tmp, arr[6] = {9,5,8,4,0,2}; for(i=1;i<6;i++) { for(j=0;j<6-i;j++) { if(arr[j]>arr[j+1]) { tmp=arr[j]; arr[j]=arr[j+1]; arr[j+1]=tmp; } } } for(i=0;i<6;i++) printf("%d",arr[i]); } |
Perl被设计成90%擅长处理文本，10%处理其余的问题。因此Perl有强大的文本处理能力，包括正则表达式。但有时正则表达式过于复杂，需要一种更简单的方法来处理字符串。
一、使用索引寻找子串
查找的方法依赖于查找的地方。如果在一个大字符串中查找，可以使用index函数。
Perl查找子串第一次在大字符串中出现的地方，返回第一个字符的位置。字符位置是从0开始编号的。如果子串在字符串的开头处找到，则index返回0。如果一个字符后，则返回1，依次类推。如果子串不存在，则返回-1。
index函数总是报告子串出现的第一个位置。可以使用可选的第三个参数要求它从后面的某个地方开始查询，它会告诉index从什么位置开始。
NOTE：通常不能重复的查找某个子串，除非使用了循环。
如果想知道某个子串最后出现的位置。可以使用rindex 函数来做到。
rindex函数也有可选的第三个参数，它给出的是可能的最大值。
