Multi-line equations...conditional

[CJason]

I am needing to to SIMILAR to this pseudo-psuedo-code:

$a = $b
foreach $c (@d) {
+ $c
}
+ $e;

I'm trying to think of the best way of doing. Can I somehow concatenate a string to make the full equation...then maybe do an eval or something???

Thanks in advance!

 

[NullTerminator]

Like this?

my $cmd = '$a + $b';
my ($a, $b, $e) = (10,20,30);

foreach $c (2,3,4,5) {
$cmd .= " + $c";
}
$cmd .= ' + $e';
print $cmd."\n";
print eval($cmd);

\0

 

[stevexff]

Unless you are specifically trying to write a command-line calculator, you are better off not using eval

use strict;
use warnings;

my $a;
my $b = 1;
my @d = (2, 3, 4, 5);
my $e = 6;

foreach ($b, @d, $e) {
   $a += $_
}

print $a;

Steve

[small]"Every program can be reduced by one instruction, and every program has at least one bug. Therefore, any program can be reduced to one instruction which doesn't work." (Object:erlDesignPatterns)[/small]

 

[CJason]

That's a pretty cool technique, stevexff!!! However, my problem is actually a little more complicated than my example here. I just wrote it this way to simplify things. I'm afraid eval is my only option.

 

[KevinADC]

You also really should avoid using $a and $b as packaged variables as they are used by perl internally for sorting.