Hi Ihr,

ich habe eine Reihe von Zahlen @zahlen, diesen ist allerdings immer ein + oder ein - vorangestellt. Nun will ich alle mit dem Plus davor zusammenrechnen, die mit einen - davor sollen ausgelassen werden.

-45
-355
+1
+55
-23

Es sollte dann 56 herauskommen. Wie kann ich es anstellen?

Viele Grüße
Steffen\n\n

<!--EDIT|stb2050|1060880067-->

my $sum=0;
for(@array){$sum+=m#\+(.*)# ? $1 : 0}
print $sum;

Danke dir :-)

Das ging ja schnell.

Viele Grüße
Steffen

my $sum = eval "@{[grep tr/+//, @a]}";

pq, das versteht doch kein Normalsterblicher mehr ;)

[quote=SirLant,14.08.2003, 19:08]pq, das versteht doch kein Normalsterblicher mehr ;)[/quote]
ok, hier der versuch einer erklärung :)
@a=qw(-45 -355 +1 +55 -23);
my $sum = eval "@{[grep tr/+//, @a  ]}";
==>
 my $sum = eval "@{[grep tr/+//,  qw(-45 -355 +1 +55 -23)  ]}";

my $sum = eval "@{[  grep tr/+//, qw(-45 -355 +1 +55 -23)  ]}";
==>
 my $sum = eval "@{[qw(+1 +55)]}";

my $sum = eval   "@{[qw(+1 +55)]}"  ;
==>
 my $sum = eval  join" ",qw(+1 +55) ;

my $sum = eval "+1 +55";
==>
 my $sum = 56;\n\n

<!--EDIT|pq|1060881734-->

Ich verstehs aber auch net so recht.
mit tr/+// entfernst du doch das Plus das später durch eval interpretiert werden soll?

Gruß Alex

>my $sum = eval join" ",qw(+1 +55) ;
>my $sum = eval "+1 +55";

diesen impliziten schritt hatte ich nicht bedacht, daher sah's ungewöhnlich aus. sehr geschickt.

mh imho verändert tr hier nicht, sondern zählt nur die +, entweder 0 oder 1, bei 1 ist's true und der wert kommt weiter

[quote=format_c,14.08.2003, 19:32]mit tr/+// entfernst du doch das Plus das später durch eval interpretiert werden soll?[/quote]
nee, tr/// entfernt ja nicht, nur wenn man es ihm
sagt =) (mit tr///d wird entfernt).
ansonsten zählt es nur ganz harmlos...