Textdatei - Mathematische Operationen - #152177 (Allgemeines zu Perl)

payx

2011-09-07 12:51

User since
2006-05-04
564 Artikel
BenutzerIn

user image

Hallo Benji10,

hier meine Lösung für (alles andere als ausgereift und nicht ganz ernst gemeint, aber vielleicht ist doch ein Hinweis dabei):

Code (perl): (dl )

#!/usr/bin/perl
# Perl 5

use strict;
use warnings;

while (my $txt = <DATA>) {
    chomp($txt);
    next unless my ($term) = ($txt =~ m/.+=(.+)$/);
    $term = lc($term); # SQRT -> sqrt
    $term =~ s/pot\((.*?)\)/$1**2/g; # POT(x) -> x**2
    my $result = eval($term);
    print "$txt=$result\n";
}

__DATA__
ABC=1+1
Z=SQRT(POT(320)+POT(200))

Grüße
payx