Grundverstaendnis - Spalten einlesen und addieren (gelöst) (Allgemeines zu Perl)

[thread]17896[/thread]

Grundverstaendnis - Spalten einlesen und addieren [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 21

Articles: hide open all | hide show old branches

+5 replies
Student87

2012-11-08 14:57
User since
2012-11-08
73 Artikel
BenutzerIn
Hallo :)

Bin Perl-Neuling mit ein bisschen Bash/Awk Erfahrung und bin gerade dabei, mein erstes Programm in Perl zu schreiben: Ich will eine Datei zeilenweise einlesen und Spalte 2 aufaddieren.

Testfile sieht so aus:
1{TAB}2
1{TAB}2
1{TAB}2
1{TAB}2

Und das Programm so:
Code (perl): (dl )

1 2 3 4 5 6

open (in, "<testfile") || die ("Cannot open testfile: $!"); while (<in>){ #Testfile zeilenweise einlesen $Summe+=$(split(/\t/,$_)[1]) #Jede Zeile splitten und Element 1 zur Variable Summe hinzuaddieren } print "\n"; close in;
Leider funktioniert das nicht so einfach, wo liegt mein Fehler? Ist meine Idee klar? Sonst erklaer ich gern, was ich mir beim Code gedacht habe!

So, obiges ist die Hauptfrage, dann hab ich noch eine Nebenfrage, von der ich vermutlich was lernen kann ueber Perl.

Wenn ich den Code
Code (perl): (dl )

1 2 3 4 5 6 7

open (in, "<testfile") || die ("Cannot open testfile: $!"); while (<in>){ #Testfile zeilenweise einlesen @array=split(/\t/,$_); print "@array[0]"; } print "\n"; close in;
ausfuehre, dann erhalte ich als Output:

1111
{Neue Befehlsaufforderung}

Ich haette aber erwartet, dass er fuer jede eingelesene Zeile das Element 0 des Arrays printet und am Ende einen Zeilenumbruch. Also so:

1
1
1
1
{Neue Befehlsaufforderung}

Und das lustige ist: Wenn ich anstatt Element 0 das Element 1 waehle (Also die Zahl 2 des Testfiles), dann erhalte ich genau den erwarteten Output:

2
2
2
2
{Neue Befehlsaufforderung}

Wo ist denn da die Logik versteckt?

modedit Editiert von GwenDragon: Titel erweitert
Last edited: 2012-11-08 15:11:52 +0100 (CET)
- +4 replies
- jan
  
  2012-11-08 15:03
  User since
  2003-08-04
  2536 Artikel
  ModeratorIn
  ad 1)
  Der Ausdruck müsste lauten:
  
  Code: (dl )
  
  (split(/\t/,$_))[1]
  
  Allerdings finde ich solche "Sparsamkeit" immer extrem unschön, weil unleserlich. Besser finde ich immer:
  
  Code: (dl )
  
  my @vars = split(/\t/, $_); $Summe += $vars[1];
  
  Da passieren dann auch solche Fehler nicht.
  
  ad 2)
  Du entfernst Das Zeilenende von der Zeile nicht, d.h. im zweiten Feld steht jeweils "2\n"
  - +3 replies
  - Student87
    
    2012-11-08 15:15
    
    User since
    2012-11-08
    73 Artikel
    BenutzerIn
    
    Achso okay das ist logisch, danke!
    
    Wenn ich zuerst den Array definiere und dann die Summe aus den gewuenschten Array-Elementen bilde, funktioniert es. Sind also 2 Schritte.
    
    Theoretisch koennte man auch 3 Schritte machen und das gewuenschte Array-Element vorher noch in eine Variable speichern.
    
    Aber wieso funktioniert es nicht in EINEM Schritt ?
    - +2 replies
    - jan
      
      2012-11-08 15:17
      
      User since
      2003-08-04
      2536 Artikel
      ModeratorIn
      
      2012-11-08T14:15:12 Student87
      Aber wieso funktioniert es nicht in EINEM Schritt ?
      
      Tut es doch:
      
      Code: (dl )
      
      $Summe += (split(/\t/,$_))[1]
      - Student87
        
        2012-11-08 15:27
        
        User since
        2012-11-08
        73 Artikel
        BenutzerIn
        
        Upps, stimmt !! Merci beaucoup :)

View all threads created 2012-11-08 14:57.