whitespaces einfügen (solved) (Allgemeines zu Perl)

[thread]19013[/thread]

whitespaces einfügen [solved]

Tags: perl5 Array whitespace Similar Threads

Readers: 13

Articles: hide open all | hide show old branches

+5 replies
cohama

2014-04-08 13:32

User since
2011-08-16
102 articles
BenutzerIn

Hallo,

wie kann man eigentlich die Ausgabe eines Array mit Leerzeichen auffüllen, sodass das Ergebnis richtig gut lesbar anhand von Spalten ist?

Die Daten liegen zeilenweise vor und haben natürlich immer eine unterschiedliche Anzahl von Zeichen. Jetzt brauche ich aber das Ergebnis im Sinne einer Spalte, sodass Leerzeichen (whitespace) eingefügt werden.

Bye
- Linuxer
  
  2014-04-08 13:56
  User since
  2006-01-27
  3890 articles
  HausmeisterIn
  Das kann man tun, indem man printf() für die Ausgabe verwendet.
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  my @fields = qw( Vater Muter Großmutter ); my $format = ( "%10s " x @fields ) . "\n"; printf $format, @fields;
  
  Wenn Du nicht im voraus weisst, wie breit Deine Wörter/Spalten werden können, wirst Du wohl erstmal die Werte durchgehen müssen und die maximale Länge bestimmen. Mit dieser Länge kann man dann das Format festlegen.
  
  Beachte die Doku:
  perlfunc printf
  perlfunc sprintf
  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!
- +3 replies
- pq
  
  2014-04-08 14:19
  
  User since
  2003-08-04
  12208 articles
  Admin1
  
  am bequemsten geht es wohl mit Text::Table
  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
  - cohama
    
    2014-04-08 15:35
    User since
    2011-08-16
    102 articles
    BenutzerIn
    
    Hallo zusammen,
    
    vielen Dank.
    Nachdem ich mich etwas mit sprintf beschäftigt habe, konnte ich in der Zwischenzeit selbst eine Lösung finden.
    
    Code: (dl )
    
    $line = sprintf ("%-6s %5s %10s %8s %-6s %-6s %-12s %-12s %-16s %-12s\n",@Array1[0],@Array1[1],$var1,$var2,$var3,$var4,$var5,$var6,$var7,$var8);
    
    Danke nochaml
    - Linuxer
      
      2014-04-08 16:16
      
      User since
      2006-01-27
      3890 articles
      HausmeisterIn
      
      Wenn Du auf einzelne Array-Elemente zugreifst, solltest Du das als $array[0] schreiben; nicht als @array[0]; beachte den Unterschied zwischen $ (ein Wert, Skalar) und @ (mehrere Werte, Array).
      
      Wenn Du mehrere Elemente eines Array haben willst, kannst Du den Zugriff zusammenfassen:
      
      @array[0,1] ist kürzer als ( $array[0], $array[1] ).
      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-04-08 13:32.