The repository contains a collection of different programming snippets to different programming languages from own developments as well as other projects
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 
programming-examples/perl/String/Using index to search a lin...

19 lines
426 B

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