problem mit TAB getrennter Datenausgabe (Allgemeines zu Perl)

[thread]14584[/thread]

problem mit TAB getrennter Datenausgabe

Leser: 27

Articles: hide open all | hide show old branches

+19 replies
jan999

2010-02-04 08:50
User since
2009-04-02
109 Artikel
BenutzerIn
Moin !

ich bin einmal wieder am basteln und erstelle eine Funktion für eine Textausgabe bei welcher die Daten TAB-getrennt ausgegeben werden sollen.

Folgende Funktion habe ich vorliegen:
Code (perl): (dl )

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

# create data--line sub olpoi_line { my $file = shift ; my $point = shift ; my $title = shift ; my $dicription = shift ; my $icon = shift ; my $size = shift ; my $offset = shift ; #return if(!defined($point)); $title='' if(!defined($title)); $dicription='' if(!defined($dicription)); $icon='' if(!defined($icon)); $size='20,20' if(!defined($size)); $offset='10,10' if(!defined($offset )); print $file $point."\t".$title."\t".$dicription."\t".$icon."\t".$size."\t".$offset."\n"; }# olpoi_line
Das Ergebnis sieht wie folgt aus (Header wird gesondert ausgegeben):
Code: (dl )

1 2 3 4 5 6

point title description icon iconSize iconOffset 20,20 10,10 -73.1449169,19.7879894cemetery20,2010,10 20,20 10,10 -72.9373228,18.4188772cemetery20,2010,10 20,20 10,10 -72.3078889,18.2467715cemetery20,2010,10 20,20 10,10 ...
Bis auf die Leerzeile sieht das gut aus.

Deshalb habe ich die Zeile
Code (perl): (dl )

return if(!defined($point));
eingebaut um bei nicht vorliegenden Punktdaten diese nicht zu erstellen. Wird die Funktion dann gestartet bekomme ich folgendes Ergebnis:
Code: (dl )

1 2

point title description icon iconSize iconOffset -73.1449169,19.7879894cemetery20,2010,10-72.9373228,18.4188772cemetery20,2010,10-72.3078889,18.2467715cemetery20,2010, ...(hier breche ich einmal ab !)
Die Leerzeile ist zwar weg - dafür auch der Zeilenumbruch !!!!

Kann mir einer sagen warum das so ist und auch warum im ersten Ausgabebeispiel keine Spaltentrennung im vorderen Teil vorliegt ??

Gruß Jan :-)

Modeedit renee + gwendragon: quote- in code-Tag umgewandelt, damit Tabs etc. dargestellt werden.
Last edited: 2010-02-04 09:21:59 +0100 (CET)
- +9 replies
- bianca
  
  2010-02-04 08:59
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  2010-02-04T07:50:10 jan999
  Die Leerzeile ist zwar weg - dafür auch der Zeilenumbruch !!!!
  
  Kann mir einer sagen warum das so ist und auch warum im ersten Ausgabebeispiel keine Spaltentrennung im vorderen Teil vorliegt ??
  
  Weil es Dir Dein Editor/Viewer nicht korrekt anzeigt.
  Ich empfehle für Windows http://notepad-plus.sourceforge.net/de/site.htm (kostenfrei) oder http://www.ultraedit.com/loc/de/index_de.html (kostet etwas Geld ist aber saugut!)
  Für kurze Views ist der Viewer im http://www.ghisler.com/deutsch.htm ganz gut geeignet. Der unterschlägt zumindest keine TABs.
  
  Edit: Links hinzugefügt
  Last edited: 2010-02-04 09:02:11 +0100 (CET)
  10 print "Hallo"
  20 goto 10
  - +8 replies
  - jan999
    
    2010-02-04 09:04
    
    User since
    2009-04-02
    109 Artikel
    BenutzerIn
    
    hallo bianca,
    
    daran sollte es eigentlich nicht liegen - verwende notepad++ !!
    
    gruß Jan :-)
    - +7 replies
    - bianca
      
      2010-02-04 09:28
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      Dann läuft etwas anderes bei Dir falsch, schau:
      
      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
      
      #!/usr/bin/perl -w use strict; use warnings; open (my $test,'>','test.txt') or die $!; &olpoi_line ('foo','bar','foo2','bar2','foo3','bar3','foo4'); sub olpoi_line { my $file = shift ; my $point = shift ; my $title = shift ; my $dicription = shift ; my $icon = shift ; my $size = shift ; my $offset = shift ; #return if(!defined($point)); $title='' if(!defined($title)); $dicription='' if(!defined($dicription)); $icon='' if(!defined($icon)); $size='20,20' if(!defined($size)); $offset='10,10' if(!defined($offset )); print $test $point."\t".$title."\t".$dicription."\t".$icon."\t".$size."\t".$offset."\n"; }# olpoi_line
      
      test.txt:
      
      Code: (dl )
      
      bar foo2 bar2 foo3 bar3 foo4
      
      10 print "Hallo"
      20 goto 10
      - +6 replies
      - GwenDragon
        
        2010-02-04 09:38
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Code (perl): (dl )
        
        &olpoi_line ('foo','bar','foo2','bar2','foo3','bar3','foo4');
        
        ist veraltet und unerwünscht.
        Funktionen werden mittlerweile ohne das vorangestellte Kaufmannsund (&) aufgerufen. Perl erkennt das selbst, dass eine Funktion gemeint ist.
        Nur in Uralt-Perversionen war das vorn anstellen nötig.
        
        Du ersparst dir Tipparbeit und irgendwie liest sich das besser im Quellcode ohne das &.
        Ich möchte dir Perl Best Practices von Damian Conway empfehlen, da steht so einiges an drin.
        
        Das & wird nur noch verwendet, um bei Parameterübergaben die Referenz auf eine Funktion zu bezeichnen.
        
        Aber vielleicht hat sich das & auch schon bei dir eingefleischt, als Routine, und ist schwer raus zu bringen. ;)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +5 replies
        
        bianca
        
        2010-02-04 09:59
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2010-02-04T08:38:59 GwenDragon
        ist veraltet und unerwünscht.
        Funktionen werden mittlerweile ohne das vorangestellte Kaufmannsund (&) aufgerufen.
        
        Laut Doku (Thema hatten wir gerade erst) ist das & optional. Das heißt für mich nicht, dass es unerwünscht ist sondern lediglich dass es nicht zwingend nötig ist.
        Insofern laß mir einfach mal mein & und mach Du es bitte, wie Du es für richtig hälst. Im übrigen sollten wir bei der Frage bleiben und nicht schon wieder Nebenkriegsschauplätze eröffnen, die mit angegriffenen Persönlichkeiten enden. Wollten wir nicht alle zu etwas mehr Sachlichkeit und Disziplin beitragen, Gwen?
        Die Frage war nicht nach Best Practices, deshalb bitte wieder zurück zum Thema.
        Danke
        
        P.S.: Ich fühle mich jetzt nicht angegriffen, nur zur Info!
        10 print "Hallo"
        20 goto 10
        
        GwenDragon
        
        2010-02-04 14:05
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Da du dich ja konkret mit Funktionen und den daraus folgenden Fallen auskennst, habe ich dir natürlich sinnlos einen Tipp gegeben.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +2 replies
        
        frankes
        
        2010-02-04 15:15
        
        User since
        2005-04-02
        140 Artikel
        BenutzerIn
        
        Ehrlich gesagt, finde ich es eigentlich wichtig und gut, dass in einem Programmierforum auf solche Änderungen/Empfehlungen wie der Wegfall des '&' beim Aufruf von Funktionen hinzuweisen.
        
        Auch wenn es dem eigentlichen Beitragsschreiber bereits bekannt ist, gibt es doch auch viele Mitleser wie mich, die in ihrer Freizeit programmieren und sonst nicht jede Neuerung/Empfehlung mitbekommen.
        Wie jeder einzelne mit einer Empfehlung umgeht, bleibt natürlich diesem überlassen. - Empfand genau dass eigentlich immer als das Angenehme bei Perl.
        
        Warum diese Hinweise, Diskussionen über einen Teilbereich des eigentlichen Problems oder Befehle die sich aus dem Hauptthema ergeben ein Problem sein sollen, und von denen die es interessiert evt. in einem Unterthread weiter behandelt wird, kann ich nicht nachvollziehen.
        
        GwenDragon
        
        2010-02-04 15:23
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Manche Tipps sind auch für andere nützlich.
        Leider sieht das nicht jeder so.
        
        Perl hat genügend Fallen, in die sogar langjährige Anwender udn Profis ab und an hineintappen können ($foo, das deutsche Perlmagazin, hat da schon öfters über die Seltsamkeiten geschrieben).
        
        //Edit: Link bei $foo hinzu
        Last edited: 2010-02-04 16:46:10 +0100 (CET)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        Crian
        
        2010-02-05 10:10
        
        User since
        2003-08-04
        5870 Artikel
        ModeratorIn
        
        Ja, man kann es benutzen, aber man sollte im Hinterkopf haben, dass es ein paar Nebeneffekte hat, die man nicht beabsicht, wie etwa @_ weiterzugeben wenn man keine Parameter angibt.
        
        Ich hab es schon immer nicht benutzt, weil ich es häßlich finde, aber wenn man sich dran gewöhnt hat, sieht es vermutlich "nackt" aus ohne.
        s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
        
        use strict; use warnings; Link zu meiner Perlseite
- GwenDragon
  
  2010-02-04 09:24
  User since
  2005-01-17
  14748 Artikel
  Admin1
  Wenn du wirklich den geposteten Code (Zeile 18) benutzt, ist auch ein Zeilenumbruch am Ende jedes Datensatzes drin.
  
  Teste das mal mit diesem Code für eine Testdatei:
  
  Code (perl): (dl )
  
  1 2 3 4
  
  sub olpoi_line { my $file = shift ; print $file "1.2,3\tPunkt 1\tKoordinate 1\t(Kein Icon)\t0\t0\n"; }
  
  Wenn du im Editor die Sonderzeichen anzeigen lässt, kannst du das auch in der Ausgabedatei sehen.
  Last edited: 2010-02-04 09:29:13 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +8 replies
- havi
  
  2010-02-04 09:27
  User since
  2003-08-04
  2036 Artikel
  BenutzerIn
  Wird zwar nichts ändern, aber ist auf jeden Fall besser zu schreiben bzw. zu ändern, wenn sich mal der Trenner ändern sollte...
  
  Zeile 18:
  
  Code (perl): (dl )
  
  print $file join("\t", $point, $title, $dicription, $icon, $size, $offset)."\n";
  
  Perl-Zeitung - http://perl-zeitung.at/
  Perl-Blog - http://usr-bin-perl.blogspot.com/
  - +5 replies
  - jan999
    
    2010-02-04 10:18
    
    User since
    2009-04-02
    109 Artikel
    BenutzerIn
    
    hi !
    
    mit dem Vorschlag von GwenDragon ist es richtig - alles weitere unrichtig !
    
    gruß Jan .-)
    - +4 replies
    - bianca
      
      2010-02-04 10:30
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      2010-02-04T09:18:11 jan999
      mit dem Vorschlag von GwenDragon ist es richtig
      
      Es gab zwei, welchen meinst Du?
      10 print "Hallo"
      20 goto 10
      - +3 replies
      - jan999
        
        2010-02-04 11:22
        
        User since
        2009-04-02
        109 Artikel
        BenutzerIn
        
        Code (perl): (dl )
        
        1 2 3 4
        
        sub olpoi_line { my $file = shift ; print $file "1.2,3\tPunkt 1\tKoordinate 1\t(Kein Icon)\t0\t0\n"; }
        
        bianca
        
        2010-02-04 11:30
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Die Zeilen funktionieren bei mir exakt genau so gut und richtig wie Deine eigene.
        Lag es nicht doch vielleicht eher am Viewer oder Editor?
        10 print "Hallo"
        20 goto 10
        
        havi
        
        2010-02-04 11:31
        
        User since
        2003-08-04
        2036 Artikel
        BenutzerIn
        
        2010-02-04T10:22:31 jan999
        
        Code (perl): (dl )
        
        1 2 3 4
        
        sub olpoi_line { my $file = shift ; print $file "1.2,3\tPunkt 1\tKoordinate 1\t(Kein Icon)\t0\t0\n"; }
        
        Trotzdem empfehle ich dir die Schreibweise mit
        
        Code (perl): (dl )
        
        join
        
        ...
        Perl-Zeitung - http://perl-zeitung.at/
        Perl-Blog - http://usr-bin-perl.blogspot.com/
  - +2 replies
  - GwenDragon
    
    2010-02-04 13:28
    User since
    2005-01-17
    14748 Artikel
    Admin1
    
    Für Leute, die gern auch den Trenner zwischen den Datensätzen ändern:
    
    Code (perl): (dl )
    
    1 2 3
    
    my $data_separator = "\t"; my $line_separator = "\n"; print $file join( $data_separator, $point, $title, $dicription, $icon, $size, $offset ) . $line_separator;
    
    Auch wenn das nicht gefragt wurde, aber den Lernenden ein Tip sein könnte.
    
    //EDIT: typo
    Last edited: 2010-02-04 13:30:27 +0100 (CET)
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - jan999
      
      2010-02-05 11:09
      
      User since
      2009-04-02
      109 Artikel
      BenutzerIn
      
      moin !
      
      von meiner seite ist das problem gelöst - es lag davor.
      
      vielen dank für die unterstützung und lerneffekte !
      
      gruß Jan :-)

View all threads created 2010-02-04 08:50.