Bestimmte Elemente in einer Zeile zusammenfassen (Allgemeines zu Perl)

[thread]18279[/thread]

Bestimmte Elemente in einer Zeile zusammenfassen

Tags: perl5 Ähnliche Threads

Leser: 20

Articles: hide open all | hide show old branches

+9 replies
FDX

2013-04-17 01:30
User since
2013-04-16
9 Artikel
BenutzerIn
Hallo liebes Perl Community,

Bin ein totaler NewBee was Perl und Programmieren angeht. Und möchte mich weiterentwickeln. Nur werde ich nicht schlauer :-(
Ich muss 2 Dateien vergleichen und Precision-Recall berechnen. Der Vergleich und Berechnungen funktionieren mit selbst erstellten Testdateien. Das eigentliche Problem ist das einlesen der beiden Dateien.

1.Ausgangsdatei besteht aus mehreren nummerierten Zeilen. 1 bis x sollte immer ein Satz bilden. zB
Code: (dl )

1 2 3 4 5 6 7 8 9 10

1 halte ...... 2 an ...... 3 ! ..... 1 ich .... 2 - ..... 3 bin .... 4 verzweifelt .... 5 . ... .....
Ausgabe sollte immer das 2 Element nehmen und einen Satz bilden. Wenn ein - Zeichen kommt sollte es in die nächste Zeile springen.
Code: (dl )

1 2 3

Satz 1: Halte an ! Satz 2: Ich bin verzweifelt. ........
Die 1. Datei enthält xy Sätze ! # das mit dem zusammenzählen klappt :-)

Bei der 2Ausgangsdatei muss ich immer das 1 Element nehmen der nach einem <xx> kommt und einen Punkt setzten.
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14

<xxxxx> <xx> suche ..... dir ...... Hilfe ....... <xxx> <x> " ..... wie ..... ? ..... " ...... fragte.... sie .... <xx>
Ausgabe:
Code: (dl )

1 2

Satz 1: Suche dir Hilfe . Satz 2: " Wie ? " fragte sie.
Die 2 Datei enthät xy Sätze.
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

open (INPUT, "<", $file1) or die "Die Datei kann nicht geoeffnet werden ! $!\n"; print "\nDie Datei $file1 enthaelt folgende Saetze:\n\n"; wie kann ich eine for schleife for ($i=0;$i<@array;$i++){ print "$array[$i]\n"; } mit einer while ($file1=<INPUT>) { .... verbinden dass ich das erwünschte Ergebnis bekomme ? Sollte ich auch Array of Array benutzen oder gehts auch anders? @eg1=split (" ", $file1,10); push @AoA1, [@eg....... } close (INPUT); $anzahl1 = $#AoA1+1; print "\nDie Datei enthaelt ", $anzahl1," Saetze !\n\n";
ich freue mich auf eure Tipps.....
mfg

modedit Editiert von pq: code-tags hinzugefügt
Last edited: 2013-04-21 19:26:11 +0200 (CEST)
- +8 replies
- Muffi
  
  2013-04-17 09:40
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  Sowas?
  (zu verstehen als Grobgerüst für die 1. Inputdatei)
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10
  
  my @saetze = (); for my $zeile (<$file>) { my ($nummer, $wort) = split(/ /, $zeile, 2); if ($nummer == 1) { push @saetze, $wort; } else { $saetze[-1] .= $wort; } }
  
  Last edited: 2013-04-17 09:45:29 +0200 (CEST)
  1 + 1 = 10
  - +7 replies
  - FDX
    
    2013-04-17 10:52
    
    User since
    2013-04-16
    9 Artikel
    BenutzerIn
    
    Herzlichen Dank Muffi, werde es gleich ausprobieren. Hatte Bedenken hier etwas zu posten.....da es ja an sich was "triviales" ist. Danke auch, dass Du mir die -Unsicherheit- genommen hast :-)
    - +6 replies
    - Raubtier
      
      2013-04-17 11:14
      
      User since
      2012-05-04
      1076 Artikel
      BenutzerIn
      
      Vielleicht noch ein Rat: wenn du fragst, dann mach das Beispiel bzw. die Beschreibung besser. So habe ich mich gefragt, ob du auch noch vom ersten Wort den ersten Buchstaben immer in einen Großbuchstaben umwandeln willst. Außerdem waren mit die <xx> unklar, da im Beispiel auch <x>, <xxx> und <xxxxx> vorkommen. Soll das x hier für etwas variabel langes stehen? Wenn es ein fester String ist, dann könnte man auch den $INPUT_RECORD_SEPARATOR (aus dem English-Modul) setzen.
      
      Dann noch der Hinweis, den Code im Forum mit dem Code-Tag zu versehen (oben auf den Button "Perl" bzw. "/Perl" klicken).
      
      Und das hier:
      
      Code (perl): (dl )
      
      1 2 3
      
      for ($i=0;$i<@array;$i++){ print "$array[$i]\n"; }
      
      sieht sehr nach C aus. In Perl kannst du einfacher über alle Array-Elemente loopen:
      
      Code (perl): (dl )
      
      1 2 3
      
      for my $element (@array) { print "$element\n"; }
      
      oder in ganz kurz auch:
      
      Code (perl): (dl )
      
      say for @array
      - FDX
        
        2013-04-17 13:27
        
        User since
        2013-04-16
        9 Artikel
        BenutzerIn
        
        Danke Raubtier, werde mich verbessern :-)
        
        In den eckigen Klammern steht die Baum Struktur des Satzes, die ich im Code nicht benötige. Die ersten Wörter vom einen zum anderen eckigen Klammer, bilden einen Satz.
      - +4 replies
      - hlubenow
        
        2013-04-17 14:33
        
        User since
        2009-02-22
        876 Artikel
        BenutzerIn
        
        2013-04-17T09:14:56 Raubtier
        
        Code (perl): (dl )
        
        for my $element (@array) {...}
        
        Wobei das "for" hier (anders als oben) eine Verkürzung von "foreach" ist. Eigentlich hieße es also:
        
        Code (perl): (dl )
        
        foreach my $element (@array) {...}
        
        (Nur der Vollständigkeit halber ...)
        
        Muffi
        
        2013-04-17 14:59
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        Ja, Perl hat leider 2 Schleifentypen, die beide "for" heissen.
        Allerdings heisst es IMHO nicht "eigentlich foreach", sondern "for" les ich überwiegend in modernem Perlcode, foreach eher in altem.
        
        PS: Zur vollständigen Verwirrung benennt Perl6 die allseits bekannte for-schleife in loop um und nennt die Perlspezifische dann for.
        1 + 1 = 10
        
        +2 replies
        
        Raubtier
        
        2013-04-17 15:39
        
        User since
        2012-05-04
        1076 Artikel
        BenutzerIn
        
        2013-04-17T12:33:24 hlubenow
        2013-04-17T09:14:56 Raubtier
        
        Code (perl): (dl )
        
        for my $element (@array) {...}
        
        Wobei das "for" hier (anders als oben) eine Verkürzung von "foreach" ist. Eigentlich hieße es also:
        
        Code (perl): (dl )
        
        foreach my $element (@array) {...}
        
        (Nur der Vollständigkeit halber ...)
        
        Warum "eigentlich"?
        
        Du kannst sogar auch das hier schreiben:
        
        Code (perl): (dl )
        
        foreach (my $i = 0; $i < 5; ++$i) { say $i }
        
        for und foreach sind somit komplett austauschbar. Ich bevorzuge das Kürzere.
        
        Sogar in C++11 hat man sich entschieden, so ein Konstrukt unter dem Namen for einzuführen (for (auto &i : my_vector) {...} entspricht dem Perl-Code ziemlich gut), obwohl es std::for_each schon gab.
        
        hlubenow
        
        2013-04-17 22:56
        
        User since
        2009-02-22
        876 Artikel
        BenutzerIn
        
        2013-04-17T13:39:21 Raubtier
        Du kannst sogar auch das hier schreiben:
        
        Code (perl): (dl )
        
        foreach (my $i = 0; $i < 5; ++$i) { say $i }
        
        Ah so, das wußte ich nicht. Wieder was gelernt, danke!
        
        Obwohl ich's logisch gefunden hätte, wenn es jeweils nur ein Schlüsselwort für eine Konstruktion gegeben hätte. Ist aber offensichtlich nicht so.

View all threads created 2013-04-17 01:30.