Question

#!/usr/bin/perl

my $str = "abc def yyy ghi";

print substr($str, 0 , index($str,' '));

I want substr to print def yyy

print substr ($str, index ($str, ' '), rindex($str, ' ') does not work?

Any idea?

Answer 1

You didn’t specify EXACTLY what you want as far as logic but the best guess is you want to print characters between first and last spaces.

Your example code would print too many characters as it prints # of characters before the last space (in your example, 10 instead of 7). To fix, you need to adjust the # of characters printed by subtracting the # of characters before the first space.

Also, you need to start one character to the right of your “index” value to avoid printing the first space – this “+1” and “-1” in the example below

$cat d:\scripts\test1.pl
my $str = "abc def yyy ghi";

my $first_space_index = index ($str, ' ');
my $substring = substr($str, $first_space_index + 1, 
                             rindex($str, ' ') - $first_space_index - 1);
print "|$substring|\n";


test1.pl
|def yyy|