Such (Hash, Array) (Allgemeines zu Perl)

[thread]14820[/thread]

Such (Hash, Array)

Leser: 32

Articles: hide open all | hide show old branches

Teilbaum:
Werte aufsummieren (16 Artikel) 2010-03-26 22:07

+18 replies
mikey_b

2010-03-15 20:26

User since
2010-03-15
21 Artikel
BenutzerIn

Hi all,

Ich möchte folgendes Problem lösen:

Ich habe ein Textdatei: jede Zeile besteht aus ein Wort und seine Frequenz.
Example.txt -> das ich als hash mit key value betrachte

sunny 2
hot 3
mild 1
windy 2
rainy 5

Dann habe ich eine weitere Textdatei:
Sentences.txt

sunny hot mild
sunny windy mild
rainy mild

Ich will beide Texte vergleichen:
mit dem Code:
foreach $key in %hash
foreach zeile in Sentences.txt
if $key exists in zeile
dann print corresponding value of this key
else
print 0

Meine Ausgabe soll dann so für Sentences.txt so aussehen:

2,3,1,0,0
2,0,1,2,0
0,0,1,0,5

Brauche Hilfe. kann mir jemand helfen das code zu realisieren

Gruß, Mikey
- +15 replies
- lichtkind
  
  2010-03-15 20:35
  User since
  2004-03-22
  5697 Artikel
  ModeratorIn + EditorIn
  ich versteh nicht ganz die beabsichtigte ausgabe.
  
  2,3,1,0,0
  
  kann ich nachvollziehen,
  aber dann sollte es doch
  
  2,2,1,0,0
  5,1,0,0,0
  
  heissen oder?
  ansonst wenn mit der ersten dateib einen hash fefinieren willst grast den mit $line = <$FH> ab, chomp $line, und dann halt
  
  Code (perl): (dl )
  
  1 2
  
  ($k, $v) = split / /, $line; $hash{$k} = $v;
  
  vieleicht solltest dir auch klar machen, daß hashes keine reihenfolge für ihre keys haben.
  Last edited: 2010-03-15 21:43:35 +0100 (CET)
  Tutorien in der Wiki, mein zeug:
  kephra, baumhaus, garten, gezwitscher
  
  Es beginnt immer mit einer Entscheidung.
  - +14 replies
  - mikey_b
    
    2010-03-15 23:04
    
    User since
    2010-03-15
    21 Artikel
    BenutzerIn
    
    Hi
    
    Du hast recht, sorry hatte 'nen Fehler gemacht beim Schreiben der Ausgabe:
    
    Die soll:
    2,3,1,0,0
    2,2,1,0,0
    5,1,0,0,0
    - +13 replies
    - lichtkind
      
      2010-03-15 23:18
      
      User since
      2004-03-22
      5697 Artikel
      ModeratorIn + EditorIn
      
      gut aber ich versteh auch nicht warum die nullen oder muss es immer ne feste anzahl an zahlen sein? als braucht das nächste programm das als eingabe oder ist das ein gefordertes format?
      
      weil ansonst liest dann halt die andere datei ein und kann dann halt genauso zeilenweise einlesen, chompen, splitten in @word und die wörter umwandeln mit
      
      Code (perl): (dl )
      
      1 2 3
      
      print $hash{$_},',' for @word; print '0,' for 5 - @word; print "\n";
      
      Tutorien in der Wiki, mein zeug:
      kephra, baumhaus, garten, gezwitscher
      
      Es beginnt immer mit einer Entscheidung.
      - +12 replies
      - mikey_b
        
        2010-03-16 10:20
        
        User since
        2010-03-15
        21 Artikel
        BenutzerIn
        
        Hi
        
        Ich hab das mit deinem Vorschlag probiert:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
        
        %hash = (); open (AN, $ARGV[0] ) or die "Not Found\n"; open (IN, $ARGV[1]) or die "Not Found\n"; while ($line = <AN>) { chomp $line; ($k, $v) = split / /, $line; $hash{$k} = $v; } while (<IN>) { chomp; push (@text, split /\n/); } for $sentence ( @text ) { @word = split / /, $sentence; print $hash{$_},',' for @word; print '0,' for 5 - @word; print "\n"; }
        
        Ich komme aber zu der Ausgabe:
        2,3,1,0,
        2,2,1,0,
        5,1,0,
        
        anstatt
        2,3,1,0,0
        2,2,1,0,0
        5,1,0,0,0
        
        Die Ausgabe muss immer gleiche Länge wie die schlüsseln in %hash sein.
        ist das was du angegeben hast mit 5 - @words (ich verstehe nicht so ganz diese Zeile, weil ich hab anstatt 5 auch 4 oder 8 angegeben und komme zum gleichen Ergebnis).
        Null heisst hier das das wort nicht im sentence ist und somit ändert sich sein wert auf 0.
        
        Danke für deine Hilfe
        Mike
        Last edited: 2010-03-16 11:03:19 +0100 (CET)
        
        +2 replies
        
        renee
        
        2010-03-16 11:02
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Benutze bitte beim nächsten mal die [code]-Blöcke...
        
        2010-03-16T09:20:08 mikey_b
        print '0,' for 5 - @word;
        
        Du hast hier keinen Liste an Werten, sondern nur einen Wert. Wenn Du 4 Elemente in @word hast, dann wird daraus
        
        Code: (dl )
        
        1 2 3
        
        print '0,' for 5 - 4; # das ist print '0,' for 1;
        
        Und bei drei Elementen in @word:
        
        Code: (dl )
        
        1 2 3
        
        print '0,' for 5 - 3; # das ist print '0,' for 2;
        
        Ich hoffe, jetzt ist klar, warum da immer nur eine 0 ausgegeben wird.
        
        Du müsstest das eher so machen:
        
        Code: (dl )
        
        print '0,' for @word .. 5;
        
        Der Code ist aber nicht optimal. Und hier noch ein paar Hinweise dazu, warum es nicht ganz so gut ist, wie Du "open" verwendest: http://reneeb-perlblog.blogspot.com/2009/09/versch...
        OTRS-Erweiterungen (http://feature-addons.de/)
        Frankfurt Perlmongers (http://frankfurt.pm/)
        --
        
        Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
        Perl-Entwicklung: http://perl-services.de/
        
        mikey_b
        
        2010-03-17 16:24
        
        User since
        2010-03-15
        21 Artikel
        BenutzerIn
        
        Hi
        
        Danke.
        Die Blog-seite ist suppa
        Thanks
        
        +2 replies
        
        Gast wer
        
        2010-03-16 11:02
        
        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
        
        %hash = (); open (AN, $ARGV[0] ) or die "Not Found\n"; open (IN, $ARGV[1]) or die "Not Found\n"; while ($line = <AN>) { chomp $line; ($k, $v) = split / /, $line; $hash{$k} = $v; } while (<IN>) { chomp; push (@text, split /\n/); # warum split, Zeilentrenner ist doch schon "\n" } for $sentence ( @text ) { @word = split / /, $sentence; # wort zu zahl $_=$hash{$_} for @word; # auffüllen push(@word,0) while(@word < 5); print join(','@word)."\n"; }
        
        Last edited: 2010-03-16 11:04:25 +0100 (CET)
        
        mikey_b
        
        2010-03-17 16:26
        
        User since
        2010-03-15
        21 Artikel
        BenutzerIn
        
        Danke.
        Das tut genau was ich als Ausgabe haben möchte.
        
        +7 replies
        
        lichtkind
        
        2010-03-16 12:32
        
        User since
        2004-03-22
        5697 Artikel
        ModeratorIn + EditorIn
        
        Quote
        Null heisst hier das das wort nicht im sentence ist und somit ändert sich sein wert auf 0.
        
        Was meinst genau damit. du willst für jedes der worte einen wert haben? warum?
        Tutorien in der Wiki, mein zeug:
        kephra, baumhaus, garten, gezwitscher
        
        Es beginnt immer mit einer Entscheidung.
        
        +6 replies
        
        mikey_b
        
        2010-03-17 16:20
        
        User since
        2010-03-15
        21 Artikel
        BenutzerIn
        
        Hi,
        
        Genau für jedes Wort brauche ich einen wert.
        Wenn das Wort in dem hash vorkommt, dann ist sein wert der entsprechende Schlüssel, wenn das wort im hash nicht vorkommt dann sein wert gleich 0.
        Ich brauche es in diesem Format für ein anderes Programm.
        Jetzt klappt's, ich kriege die gewünschte Ausgabe.
        Danke für die Hilfe. Hab einiges neues gelernt und mache weiter, hab mir heute einen Perl Buch gekauft.
        Gruß
        
        +5 replies
        
        renee
        
        2010-03-17 16:23
        
        User since
        2003-08-04
        14371 Artikel
        ModeratorIn
        
        Hast Du meinen Vorschlag ausprobiert?
        OTRS-Erweiterungen (http://feature-addons.de/)
        Frankfurt Perlmongers (http://frankfurt.pm/)
        --
        
        Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
        Perl-Entwicklung: http://perl-services.de/
        
        +4 replies
        
        mikey_b
        
        2010-03-25 00:26
        
        User since
        2010-03-15
        21 Artikel
        BenutzerIn
        
        Hi
        Sorry für die späte Antwort.. war unterwegs.
        Ich habe deinen Vorschlag ausprobiert aber das ging nicht.
        
        Ich wollte ein Modell schreiben für ein maschinelles Lernen, aber hab festgestellt dass eigentlich das Programm folgendes als Ausgabe haben soll:
        
        2,3,1,0,0
        2,0,1,2,0
        0,0,1,0,5
        
        Finde den Blog Eintrag "Verschiedenes zu open" super. Hab damit einige Fehler begriffen, die in den letzten Wochen hatte
        
        mikey_b
        
        2010-03-25 20:57
        
        Subtree with 3 replies: Werte aufsummieren
        
        User since
        2010-03-15
        21 Artikel
        BenutzerIn
        
        Hi again,
        
        Ich hänge wieder an dem Thema hash und arrays.
        Diesmal versuche ich die wörter als Vektoren zu darstellen.
        
        mein hash ist:
        sunny 2
        hot 3
        mild 1
        windy 2
        rainy 5
        
        und die Beispieltexte:
        a)sunny sunny
        b)rainy hot mild
        c)sunny windy mild mild
        
        Ich habe ein Array von den Schlüsseln;
        @vector = keys %hash = "sunny hot mild windy rainy"
        Ich möchte das code schreiben
        foreach $word in @vector
        foreach beispieltext
        if word exists in besipieltext
        save value of the word in hash (wenn das wort z.b. 2 mal im beispieltext auftaucht werden sein werte addiert)
        else save "0"
        
        die Ausgabe wäre:
        4,0,0,0,0
        0,3,1,0,5
        2,0,2,2,0
        
        Ich krieg's nicht hin und brauche wieder eure Unterstützung.
        Gruß, Mike
        
        mod-edit pq: teilbaum mit neuer Problemstellung ausgelagert
        Last edited: 2010-03-26 16:03:18 +0100 (CET)
- +2 replies
- lichtkind
  
  2010-03-15 20:39
  
  User since
  2004-03-22
  5697 Artikel
  ModeratorIn + EditorIn
  
  hab dein anderen Post gelöscht weil ich glaub, dir ist auch lieber alle Antworten in einem Thread zu bekommen.
  Last edited: 2010-03-15 21:46:55 +0100 (CET)
  Tutorien in der Wiki, mein zeug:
  kephra, baumhaus, garten, gezwitscher
  
  Es beginnt immer mit einer Entscheidung.
  - hlubenow
    
    2010-03-16 01:07
    
    User since
    2009-02-22
    875 Artikel
    BenutzerIn
    
    Massives Multi-Posting:
    
    http://community.perl.de/content/suche-hashes
    http://community.perl.de/content/existenzpr-fung
    
    Sehr unbeliebt, das ...

View all threads created 2010-03-15 20:26.