Using substr. : substr « String « Perl

1. Perl
2. String
3. substr

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"); 

   
    
    
    
    
  

Related examples in the same category