Using index function. : index « String « Perl

  1. Perl
  2. String
  3. index




Using index function.

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










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 to search a line repeatedly.