programming-examples/perl/String/Using index function.pl

11 lines
218 B
Perl
Raw Normal View History

2019-11-15 12:59:38 +01:00
#!/usr/local/bin/perl
$input = <STDIN>;
$position = index($input, "the");
if ($position >= 0) {
print ("pattern found at position $position\n");
} else {
print ("pattern not found\n");
}