习鞘8-3.txt

来自「< linux网络编程工具>>配套源码」· 文本 代码 · 共 13 行

$string = "I love you!";
$lookfor = "love";
$pos = -1;
while (($pos = index($string, $lookfor, $pos)) > -1) {
    print "Found $lookfor at $pos in \" $string.\"\n";
    $pos++;
}
$pos = length $string;
while (($pos = rindex $string, $lookfor, $pos) >= 0) {
    print "Found $lookfor at $pos in \" $string.\"\n";
    $pos--;
}