String Perl

  1. Home
  2. Perl
  3. String
  4. Using index function
#!/usr/local/bin/perl 
$input = ; 
$position = index($input, "the"); 
if ($position >= 0) { 
    print ("pattern found at position $position\n"); 
} else { 
    print ("pattern not found\n"); 
}