CSV Datei erstellen (gelöst) (Allgemeines zu Perl)

[thread]19418[/thread]

CSV Datei erstellen [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+8 replies
PerlDot

2014-12-08 12:47

User since
2014-11-28
6 Artikel
BenutzerIn

Hallo Leute,

Ich bin noch recht in Perl und bin auf der Suche nach einer Lösung. Ich möchte etwas simples in eine CSV Datei schreibeb. Dies soll aber ohne Module geschehen. Ich weiß mit Modulen wäre das vielleicht einfacher aber ich möchte es ohne machen.

Wenn ich diesen Befehl habe:

open (FH, "> liste.csv");
while (<FH>)
{
printf "$var1; $var2;";
}
Funktioniert das einfach nicht. könnt ihr mir sagen was ich falsch mache? Gruse
- +2 replies
- Raubtier
  
  2014-12-08 12:54
  
  User since
  2012-05-04
  1083 Artikel
  BenutzerIn
  
  Zunächst mal ein $var1 und $var2 undef. Dann öffnest du liste.csv zum Schreiben (löscht also den Gesamtinhalt) und versuchst dann mit while(<FH>) daraus zu lesen. Das kann nicht gehen.
  
  Anmerkungen:
  - benutze lexikalische Dateihandles und die 3-Parameter-Open-Funktion
  - dein open hat kein Fehler-Checking (füge or die $! hinzu)
  - warum printf statt print?
  - kein Newline am Zeilenende?
  - PerlDot
    
    2014-12-08 20:12
    
    User since
    2014-11-28
    6 Artikel
    BenutzerIn
    
    Hallo Leute,
    
    tut mir Leid für meinen schlechten Code und für meine Rechtschreibfehler. Ich habe den Beitrag an meinem Smartphone verfasst. Leider ist mein Smartphone bisschen Buggy und es hängt sich ständig auf. Aus diesem Grund wollte ich nur das nötigste rein schreiben und habe dementsprechend $var1 und $var2 nicht definiert und kein Fehler-Checking gemacht. Das gehört natürlich rein.
    Ich bedanke mich für eure Hilfe und es funktioniert jetzt.
    Vielen Dank für die schnellen und hilfreichen Antworten!
    
    Grüße
- payx
  
  2014-12-08 12:56
  User since
  2006-05-04
  564 Artikel
  BenutzerIn
  Hallo PerlDot,
  
  bitte setze Deine Code-Beispiele in Code-Tags.
  
  Hier ein lauffähiges Beispiel:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11
  
  #!/usr/bin/perl use strict; use warnings; open my $fh, ">", "liste.csv" or die $!; my $var1 = 'foo'; my $var2 = 'bar'; print $fh "$var1;$var2\n";
  
  Benutze open mit drei Parametern und mit lexikalischen Filehandles.
  while geht bei einem Filehandle nur, wenn es zum Lesen geöffnet ist. Hier willst Du ja schreiben und die Datei ist am Anfang leer.
  
  Hoffe das hilft für's erste,
  Grüße
  payx
- +3 replies
- lichtkind
  
  2014-12-08 14:08
  
  User since
  2004-03-22
  5730 Artikel
  ModeratorIn + EditorIn
  
  ganz einfach mit Text::CSV
  mein zeug:, Leute
  
  Es beginnt immer mit einer Entscheidung.
  - +2 replies
  - payx
    
    2014-12-08 15:56
    
    User since
    2006-05-04
    564 Artikel
    BenutzerIn
    
    Hallo lichtkind,
    
    2014-12-08T13:08:28 lichtkind
    ganz einfach mit Text::CSV
    
    OP schrieb:
    2014-12-08T11:47:41 PerlDot
    Dies soll aber ohne Module geschehen. Ich weiß mit Modulen wäre das vielleicht einfacher aber ich möchte es ohne machen.
    
    In diesem Fall glaube ich auch tatsächlich, dass die Lösung mit Modul (etwa dem von Dir genannten) anspruchsvoller ist als beispielsweise die von mir in msg #178693 skizzierte, zumindest für einen Anfänger, denn OP schrieb ja auch:
    2014-12-08T11:47:41 PerlDot
    Ich bin noch recht in Perl ...
    womit er wohl sagen wollte: "recht neu".
    
    Für die Verarbeitung von CSV-Dateien im produktiven Einsatz ist der Einsatz des genannten Moduls zweifellos in der Regel die richtige Vorgehensweise.
    
    Grüße
    payx
    - lichtkind
      
      2014-12-08 18:26
      
      User since
      2004-03-22
      5730 Artikel
      ModeratorIn + EditorIn
      
      stimmt, sollte während der übung nicht im forum lesen
      mein zeug:, Leute
      
      Es beginnt immer mit einer Entscheidung.
- Linuxer
  
  2014-12-08 14:59
  User since
  2006-01-27
  3891 Artikel
  HausmeisterIn
  Hi,
  
  wie schon angemerkt wurde:
  
  Du öffnest die Datei zum Schreiben, leider nicht mit einem lexikalischen Dateihandle
  
  Du verwendest keine Fehlerbehandlung (was ist, wenn die Datei nicht geschrieben werden kann? Wie soll das Programm weitermachen?)
  
  Du versuchst in der while-Schleife aus dem Dateihandle (einer zum Schreiben geöffneten Datei) zu lesen, was soll das bringen?
  
  Deine printf-Ausgabe erfolgt wahrscheinlich auf STDOUT, nicht in das Dateihandle
  
  Da Du keine Formatierungen einsetzt, stellt sich die Frage, warum Du printf anstatt print verwendest
  
  Ist es Absicht, dass Deine Ausgabe keinen Zeilenumbruch enthalten soll?
  
  Empfohlene Doku (Liste unvollständig):
  
  http://perldoc.perl.org/perlopentut.html
  WasIsteinLexikalischerFileHandle
  UseStrict
  
  Last edited: 2014-12-08 17:36:23 +0100 (CET)
  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!

View all threads created 2014-12-08 12:47.