Re^4: string functions

[valavanp]

This node falls below the community's threshold of quality. You may see it by logging in.

[Hofmator]

1. mark the column in Excel and copy
2. paste the column into the DATA section of the follwoing script (replacing the example that is already there)
3. run the script and redirect the output into a file called output.csv
4. open the output.csv in Excel and copy and paste from there

use strict;
use warnings;

my @p = (1.5, 2.5,  3.5 );
my @m = (0.5, 0.55, 0.60);


sub calc
{
    my $i = shift || 1;

    my $idx = ord(shift)-65;

    return $m[$idx] * ($p[$idx]**$i);
}

for my $str (<DATA>) {
    chomp($str);

    my $res = 1;
    while ($str =~ /(\d)?([A-Z])/g) {
      $res *= calc($1, $2);
    }

    print "$str,$res\n";
}

__DATA__
2A2B2C
ABC

You have to make sure, though, that your @p and @m Arrays are expanded to the appropriate number of elements, corresponding to the number of letters from the alphabet that you use. So if you eg. use the letters from A to D then @p and @m should both have 4 elements.