substr and index function : substr « String « Perl






  1. Perl
  2. String
  3. substr

substr and index function

    


$line="this is a test";
print substr($line, 6, 3),"\n";      # Offset starts at zero
print index($line, "test"),"\n";
print substr($line, index($line, "test")),"\n";
substr($line, 0, 0)="A, ";
print $line,"\n";
substr($line, 0, 1)="B";
print $line,"\n";
substr($line, -1, 1)="another test!";
print $line,"\n";


$string="this is another test.\n";
print rindex($string, is), "\n";








Related examples in the same category

1.Get the sub string
2.Using substr with offset (-6) and length (-2)
3.Using substr with offset (-6), and length (2)
4.Using substr with the string and the offset (2)
5.Using substr with the string, offset (2) and length (3)
6.substring from 10 to 14
7.Locate a substring with space inside
8.Find the substring with '$_ =~ /Aa/'
9.Using substr.
10.If the offset is negative, substr counts from the end of the string