Using index to search a line repeatedly. : index « String « Perl






  1. Perl
  2. String
  3. index

Using index to search a line repeatedly.

    
#!/usr/local/bin/perl 

$input = <STDIN>; 
$position = $found = 0; 
while (1) { 
    $position = index($input, "the", $position); 
    last if ($position == -1); 
    if ($found == 0) { 
        $found = 1; 
        print ("pattern found - characters skipped:"); 
    } 
    print (" $position"); 
    $position++; 
} 
if ($found == 0) { 
    print ("pattern not found\n"); 
} else { 
    print ("\n"); 
}








Related examples in the same category

1.Demonstration of the index function
2.Using index function to check out if a string contains a sub string
3.index function returns the location of the first occurrence of a substring within a string
4.Using index function.