Thread Textdatei - Mathematische Operationen (22 answers)
Opened by Benji10 at 2011-09-07 11:36

Gast benji2010
 2011-09-26 09:27
#152661 #152661
Habe mich jetzt ein wenig belesen, aber ein Problem habe ich noch:

Die Textdatei soll geöffnet werden und unter demselbem Namen gespeichert werden.

Leider ist die Textdatei mit folgendem Code:


Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
#!/usr/bin/perl

use strict;
use warnings;

# Pfade zu den Dateien
my $infile = 'textfile.txt';
my $outfile = 'textfile.txt';

# Dateien öffnen
open my $inFH, "<", $infile or die $!;
open my $outFH, ">", $outfile or die $!;

# Quelldatei auslesen und Ergebnisse in Ausgabedatei schreiben
while (my $txt = <$inFH>) {
    chomp($txt);
    next unless my ($term) = ($txt =~ m/.+=(.+)$/);
    my $result = eval($term);
    print $outFH "$txt=$result\n";
}

close $inFH;
close $outFH;

# Subs ############################################
sub POT {
    return $_[0]**2;
}
sub SQRT {
    return sqrt($_[0]);
}



danach leider leer ?!

Hat jemand Rat ?

Last edited: 2011-09-26 10:41:30 +0200 (CEST)

View full thread Textdatei - Mathematische Operationen