If the offset is negative, substr counts from the end of the string : substr « String « Perl






  1. Perl
  2. String
  3. substr

If the offset is negative, substr counts from the end of the string

      

#!/usr/bin/perl -w

# Extract substring.

$string = "One Two Three";

$new_string = substr($string, -5);

print "Substring is \"$new_string\".\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.substr and index function
7.substring from 10 to 14
8.Locate a substring with space inside
9.Find the substring with '$_ =~ /Aa/'
10.Using substr.