Mega Code Archive

 

Categories / Perl / String

 

Using substr

#!/usr/local/bin/perl  $string = "This is a sample character string";  $sub1 = substr ($string, 10, 6);  $sub2 = substr ($string, 17);  print ("\$sub1 is \"$sub1\"\n\$sub2 is \"$sub2\"\n");