Textdatei - Mathematische Operationen (Allgemeines zu Perl) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl

2024-10-13 13:04:52
Europe/Berlin
Login (Register)
- Preferences
- Statistics
Jemand zu Hause?
0 users online
1 guest

[thread]16699[/thread]

submit to reddit

Textdatei - Mathematische Operationen

Tags: perl6 Similar Threads

Readers: 22

Articles: hide open all | hide show old branches

Subtree:
perl 6 vs. perl 5 (6 articles) 2011-09-07 15:42

+23 replies
guest Benji10

2011-09-07 11:36

Hallo zusammen,

habe eine Text-Datei, die folgende Zeile enthält:

Quote
Z=SQRT(POT(320)+POT(200))

Gibt es mit Perl die Möglichkeit dies einfach zu berechnen ? (Pot -> Quadrieren, SQRT -> Quadratwurzel) Komme aus dem C++-Genre und da finde ich es zu umständlich !

Danke im Voraus für Tipps !
Last edited: 2011-09-07 11:40:54 +0200 (CEST)
- +10 replies
- pq
  
  2011-09-07 11:42
  
  User since
  2003-08-04
  12208 articles
  Admin1
  
  möchtest du eplizit eine lösung für perl 6?
  oder hast du dich verklickt und möchtest schlicht und einfach perl 5?
  
  warum verlicken sich so viele leute und posten eine perl5-frage im perl6-forum, und keiner kann mir erklären wieso? der beschreibungstext sollte ja eindeutig genug sein...
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +9 replies
  - guest Benji10
    
    2011-09-07 11:53
    
    da ich erstmal wissen wollte, ob meine Frage mit Perl lösbar ist, habe ich diese bei Perl 6 gepostet. Kenne auch nicht den Unterschied zw. Perl 5 und 6.
    Last edited: 2011-09-07 12:04:32 +0200 (CEST)
    - GwenDragon
      
      2011-09-07 12:06
      
      User since
      2005-01-17
      14741 articles
      Admin1
      
      Perl 5.14 ist die aktuelle Perl-Version, die auch im Programmieralltag (Internet, Programme, Skripte) verwendet wird, während Perl 6 noch im Entwicklunsgstadium ist und nur was für Entwickler und Tester.
      
      Perl 5 und Perl 6 unterscheiden sich auch erheblich in den Fähigkeiten und in der Sprachsystax.
      
      Übrigens steht auch oben im Thread Raku / Perl 6 um was es hier geht:
      
      Quote
      Alles, was Perl 6 betrifft, also die Syntax, rakudo, pugs und parrot. Es handelt sich hier um Perl in der Version 6, eine andere Sprache als Perl 5. Fragen zu Perl 5 bitte ein Forum weiter oben, es sei denn, es geht um Perl 5 *und* Perl 6.
      
      Last edited: 2011-09-07 12:08:51 +0200 (CEST)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - pq
      
      2011-09-07 12:16
      
      Subtree with 7 replies: perl 6 vs. perl 5
      
      User since
      2003-08-04
      12208 articles
      Admin1
      
      dann verstehe ich es noch weniger. du wolltest wissen, ob ein problem generell in perl lösbar ist und hast dich trotzdem statt für "Allgemeines zu Perl" für ein Forum für eine spezielle Version entschieden.
      
      Ist der Beschreibungstext zu unklar? Oder wird er gar nicht gelesen? Sollte er grösser, auffälliger gestaltet werden?
      Last edited: 2011-09-07 13:05:19 +0200 (CEST)
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
- payx
  
  2011-09-07 12:51
  User since
  2006-05-04
  564 articles
  BenutzerIn
  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 )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
  
  #!/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
- payx
  
  2011-09-07 13:01
  User since
  2006-05-04
  564 articles
  BenutzerIn
  Hallo Benji10,
  
  hier noch ein zweiter Ansatz, etwas geradliniger:
  
  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
  
  #!/usr/bin/perl use strict; use warnings; while (my $txt = <DATA>) { chomp($txt); next unless my ($term) = ($txt =~ m/.+=(.+)$/); my $result = eval($term); print "$txt=$result\n"; } sub POT { return $_[0]**2; } sub SQRT { return sqrt($_[0]); } __DATA__ ABC=1+1 Z=SQRT(POT(320)+POT(200))
  
  HTH
  Grüße
  payx
- +10 replies
- pq
  
  2011-09-07 13:04
  
  User since
  2003-08-04
  12208 articles
  Admin1
  
  Verschoben von Raku / Perl 6 nach Allgemeines zu Perl
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +9 replies
  - guest benji10
    
    2011-09-07 14:46
    
    @pq danke fürs verschieben
    
    @payx genau so etwas habe ich gesucht. Funktioniert und der Code ist nicht zu umständlich. Da wäre ich mit C++ nie higekommen. Was muss ich tun um dies mit einer Textdatei zu machen ? Sprich einlesen und wieder speichern ?
    Last edited: 2011-09-07 15:04:18 +0200 (CEST)
    - +8 replies
    - payx
      
      2011-09-07 15:34
      
      User since
      2006-05-04
      564 articles
      BenutzerIn
      
      Hallo benji10,
      
      ich würde die Version mit den Subs nehmen: Für jede mathematische Funktion in Deinem Textfile, die nicht zufällig identisch ist mit einer Perl-Funktion, was vermutlich in keinem Fall zutreffen wird, weil Perl Groß- und Kleinschreibung unterscheidet und bei Dir ja alles groß geschrieben ist, machst Du ein sub, das diese Funktion in Perl übersetzt, wie im Beispiel.
      
      Hier dieselbe Lösung mit einer Quelldatei und einer Ausgabedatei:
      
      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_out.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]); }
      
      Beim produktiven Einsatz aber Vorsicht! eval() ist potentiell evil. Wenn in der Quelldatei (nach dem Gleichheitszeichen) irgendwelche Gemeinheiten stehen, dann wird sie Perl ausführen. Verwende diese Lösung also nur, wenn Du volle Kontrolle über die Quelldateien hast. Außerdem wird es nur funktionieren, wenn in Deiner Quelldatei keine Klammerfehler o.ä enthalten sind.
      
      HTH
      Grüße
      payx
      - +7 replies
      - guest benji2010
        
        2011-09-08 06:46
        
        Erstmal Vielen Dank...Kontrolle über die Quelldateien habe ich, das sollte nicht das Problem darstellen, aber danke für die Info.
        
        Code: (dl )
        
        print $outFH "$txt=$result\n";
        
        Noch eine Frage: Wie kann ich die Ausgabe begrenzen?
        
        Ist
        
        Quote
        F=SQRT(POT(320)-POT(200))=377.359245282264
        
        Soll
        
        Quote
        F=377.359245282264
        
        Kannst du mir ein Buch empfehlen, welches sich genau mit solchen Themen befasst ? Sprich Einlesen und Verarbeiten von Textdateien...
        
        Benjamin
        
        Last edited: 2011-09-08 08:13:05 +0200 (CEST)
        
        +6 replies
        
        payx
        
        2011-09-08 09:05
        
        User since
        2006-05-04
        564 articles
        BenutzerIn
        
        Hallo Benjamin,
        
        Guest benji2010
        Wie kann ich die Ausgabe begrenzen?
        
        Ist
        
        Quote
        F=SQRT(POT(320)-POT(200))=377.359245282264
        
        Soll
        
        Quote
        F=377.359245282264
        
        Ändere Zeile 17 in
        
        Code (perl): (dl )
        
        next unless my ($var, $term) = ($txt =~ m/(.+)=(.+)$/);
        
        und Zeile 19 in
        
        Code (perl): (dl )
        
        print $outFH "$var=$result\n";
        
        Guest benji2010
        Kannst du mir ein Buch empfehlen, welches sich genau mit solchen Themen befasst ? Sprich Einlesen und Verarbeiten von Textdateien...
        
        Ein Buch speziell über das Einlesen und Verarbeiten von Textdateien mit Perl kenne ich nicht, vermutlich gibt es das auch nicht, weil das einfach eines der zentralen Features von Perl ist. Ich habe die drei hier empfohlenen Bücher gelesen (das Kochbuch nur teilweise), das empfehle ich jedem.
        
        Grüße
        payx
        
        +5 replies
        
        guest benji2010
        
        2011-09-26 09:27
        
        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)
        
        #Kein Kommentar
        
        2011-09-26 10:45
        
        User since
        2007-06-09
        575 articles
        HausmeisterIn
        
        ich weiß nicht, ob das überhaupt richtig funktionieren kann, wenn du die datei gleichzeitig zum lesen und gleichzeitig zum schreiben öffnest.
        
        mach doch am besten einen schritt nach dem anderen.
        erst die datensätze aus der datei herauslesen und das filehandle wieder schließen
        und danach erst die daten wieder in die datei schreiben.
        Gerade weil wir alle in einem Boot sitzen, sollten wir froh sein, dass nicht alle auf unserer Seite sind
        
        Linuxer
        
        2011-09-26 11:23
        
        User since
        2006-01-27
        3890 articles
        HausmeisterIn
        
        Du öffnest die Datei zum Schreiben im "Überschreib-Modus"... Da ist es kein Wunder, dass die Datei leer ist...
        
        perldoc -f open beschreibt die verschiedenen Modi beim Öffnens... Vielleicht auch mal davor als Grundlage perldoc perlopentut lesen ...
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        pq
        
        2011-09-26 12:07
        
        User since
        2003-08-04
        12208 articles
        Admin1
        
        das hat ja nun eigentlich nichts mehr mit dem ursprünglichen problem zu tun, sondern mit dateioperationen.
        
        du öffnest die datei zum lesen. eine zeile später öfnest du denselben dateinamen im schreibmodus, welcher die datei sofort leert.
        
        schreib doch einfach in eine datei mit dem suffix ".new" und mach am ende:
        
        Code (perl): (dl )
        
        1 2
        
        use File::Copy qw/ move /; move "$file.new", $file;
        
        im übrigen sehr verwirrend für leser des codes, dass du $infile und $outfile benutzt, diese aber denselben inhalt haben.
        
        edit: der ansatz mit der datei "$file.new" ist auch am sichersten, falls zwischendurch was schiefgeht. erst ganz am ende wird die neue datei umbenannt, und wenn vorher was schiefgeht, dann bleibt die alte datei, wo sie ist.
        Last edited: 2011-09-26 12:18:14 +0200 (CEST)
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        topeg
        
        2011-09-26 12:09
        
        User since
        2006-07-10
        2611 articles
        BenutzerIn
        
        Du hast zwei Möglichkeiten.
        - Du benennst die Datei Temporär um ließt sie ein und löscht sie nachher, wenn die die Datei mit dem selben Namen geschrieben wurde.
        - Du öffnest die Datei Lesend und schreibend '+<', liest alles in ein Array, gehst an den Anfang der Datei seek($fh,0,0), setzt die Dateigröße auf Null truncate($fh, 0) und schreibe die neuen Daten.
        Alternativ kannst du die Datei lesend öffnen, schließen, löschen und schreibend neu öffnen.
        
        Es gäbe noch eine weitere Möglichkeit "in Place" Teile zu überschreiben, das ich aber nichts für Unerfahrene und hat einige Einschränkungen.

View all threads created 2011-09-07 11:36.