String Perl

  1. Home
  2. Perl
  3. String
  4. 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");