programming-examples/perl/String/Using index to search a line repeatedly.pl
2019-11-15 12:59:38 +01:00

20 lines
426 B
Perl

#!/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");
}