Programmiersprachen vergleichen durch einfache Programme

[raiel]

das Rechen-dingens nochmal als perl version mit read-line support.
D.h. das die gleichungen in einem stueck angegeben werden koennen
ex: 12+44*17/9+80-20 etc...
Wird dann komplett zusammengerechnet und ausgegeben, punkt vor komma wird aber nicht beachtet.

Code:

Lines:              18
Size:              412 Bytes
Binary Size: 2.034.275 Bytes (PAR: http://par.perl.org/)

Code:

#!/usr/bin/perl -w

use strict;
use Term::ReadLine;

my $term = new Term::ReadLine "Input";
my $r = $term->readline("Enter Calculation: ")."+";
$r =~ s/[^0-9\+\-\*\/]//g;

my @calc;
sub AddOp($$) { push (@calc,@_); }
$r =~ s/(.*?)([\+\-\*\/]+)/&AddOp($1,$2)/ge;
pop(@calc);

my $result=$calc[0];
my $i=1;
while($i<=$#calc)
{
  $result = eval("$result$calc[$i]$calc[$i+1]");
  $i+=2;
}

print "Result: $result\n";

@Reaperman: bitte bitte benutz "use strict;"