in reply to Re^10: How can I expand my substring?
in thread How can I expand my substring?

perlop, as I already linked to you, explains how the right hand side part of s///e works. I don't know how I could break down an if statement more than writing down the if statement within the right hand side of s///e. But as I'm sure you already have read that in the documentation that I already linked to, I don't know how to help you further.

Replies are listed 'Best First'.
Re^12: How can I expand my substring?
by Anonymous Monk on Jul 23, 2014 at 13:03 UTC
    I wrote this and it seems to work... Do you think it's correct?
    if($initial_string=~/((-*)(B+)(-*))/)
{
    $total=$1;
        $position_total=index($initial_string, $total);
        $substring_until_total=substr($initial_string,0,$position_tota
+l);

    $blank_left=$2;
    $b_region=$3;
    $blank_right=$4;
    
    if(length($blank_left)>200)
    {
        substr($blank_left, -200, 200, ('B' x 200));
    }

    else
    {
        $blank_left=~s/\-/B/g;
    }

    if(length($blank_right)>200)
    {
        substr($blank_right, 0, 200, ('B' x 200));
    }

    else
    {
        $blank_right=~s/\-/B/g;
    }

    print $substring_until_total.$blank_left.$b_region.$blank_right."\
+n";
}

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom