Textdatei in hash einlesen (gelöst) (Allgemeines zu Perl)

[thread]16596[/thread]

Textdatei in hash einlesen [gelöst]

Tags: perl5 datei Ähnliche Threads

Leser: 22

Articles: hide open all | hide show old branches

+4 replies
Pauline25

2011-08-04 17:14
User since
2011-08-03
13 Artikel
BenutzerIn
Hallo zusammen. Ich habe gerade begonnen mit Perl zu arbeiten. Jetzt möchte ich eine Textdatei (Name Vorname Name Vorname etc.) in ein Hash füllen und das ganze als Liste in einer neuen Datei ausgeben lassen. Mein Skript scheint aber stark fehlerhaft zu sein und nach stundenlangem googlen und Bücher wälzen weiß ich nicht mehr weiter. Würde mich freuen, wenn mir einer helfen könnte:

Code:
Code (perl): (dl )

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

open (FILE, "Textdatei"); %hash = <FILE>; close (FILE); ($Vorname, $Nachname) = split/\s+/, $line; $hash{$Vorname} = $Nachname; chomp (%hash); open (OUT, ">neu"); while ( ($Vorname, $Nachname) = each %hash) { print $key => $value\n"; } close OUT
Ich danke schon mal,
lieben Gruß
Pauline

modedit Editiert von pq: code-tags hinzugefügt
Last edited: 2011-08-04 17:15:56 +0200 (CEST)
- +3 replies
- pq
  
  2011-08-04 17:20
  User since
  2003-08-04
  12208 Artikel
  Admin1
  ich hab das mal sauber und modern umgeschrieben (ungetestet);
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
  
  use strict; use warnings; open my $in, '<', "Textdatei" or die $!; my %hash; while (my $line = <$in>) { chomp $line; my ($Vorname, $Nachname) = split/\s+/, $line; $hash{$Vorname} = $Nachname; } close $in; open my $out, ">", "neu" or die $!; while ( my ($Vorname, $Nachname) = each %hash) { print $out "$Vorname => $Nachname\n"; } close $out;
  
  lesestoff:
  use strict
  WasIsteinLexikalischerFileHandle
  
  bedenke aber, dass ein hash unsortiert ist, du wirst also eine andere reihenfolge bekommen als in der ausgangsdatei.
  
  und benutze bitte code-tags für code, wie in unserer FAQ beschrieben.
  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
  - +2 replies
  - Pauline25
    
    2011-08-04 17:38
    
    User since
    2011-08-03
    13 Artikel
    BenutzerIn
    
    Super, lieben Dank. Funktioniert! Und danke ür die zwei links zum nachlesen.
    
    Sorry an alle, für das nicht Benutzen der Code-tags, wird nicht mehr vorkommen!
    
    Mein Abend ist gerettet, danke noch mal und schönen Feierabend an alle.
    
    Lieben Gruß
    
    modedit Editiert von pq: unnötiges Vollzitat entfernt
    Last edited: 2011-08-04 17:42:06 +0200 (CEST)
    - pq
      
      2011-08-04 17:42
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      dann kannst du ja den Thread als gelöst markieren...
      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

View all threads created 2011-08-04 17:14.