print Ausgaben "anordnen" (Allgemeines zu Perl)

[thread]18143[/thread]

print Ausgaben "anordnen"

Tags: perl5 Ähnliche Threads

Leser: 18

Articles: hide open all | hide show old branches

+5 replies
Gast Keksi

2013-02-14 16:46
Hallo liebes Forum :-) !

Ich lerne gerade Perl und würde gerne eine Ausgabe von mir etwas sortierer anordnen. Es handelt sich um Zahlen (max. 3 stellig) die ich so mit einem Counter ausgeben will
Code: (dl )

print "$f[$count] $g[$count] $h[$count]\n";
Jetzt verrutschen die Zeilen aber leider, wenn es z.B. von einer 1- in eine 2-stellige Zahl übergehet. ihr wisst sicher was ich meine. Jemand eine Idee?

Vielen Grüße ! :)
Last edited: 2013-02-14 16:49:10 +0100 (CET)
- Gast wer
  
  2013-02-14 16:55
  Code (perl): (dl )
  
  printf ("%03u %03u %03u\n", $f[$count], $g[$count], $h[$count]);
- Linuxer
  
  2013-02-14 16:55
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  Schau Dir printf() und sprintf() an. Ich gehe von Integer-Werten aus:
  
  Code (perl): (dl )
  
  printf "%03d %03d %03d\n", $f[$count], $g[$count], $h[$count];
  
  Doku:
  http://perldoc.perl.org/functions/printf.html
  http://perldoc.perl.org/functions/sprintf.html
  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!
- +2 replies
- GwenDragon
  
  2013-02-14 19:26
  User since
  2005-01-17
  14757 Artikel
  Admin1
  Code (perl): (dl )
  
  1 2 3 4
  
  # rechtsbündig, mit führenden Nullen, maximal 3 Zeichen breit + 1 Leerzeichen dazwischen print sprintf('%03d %03d %03d',$f[$count],$g[$count],$h[$count]), "\n"; # rechtsbündig, maximal 3 Zeichen breit + 1 Leerzeichen dazwischen print sprintf('%3d %3d %3d',$f[$count],$g[$count],$h[$count]), "\n";
  
  //EDIT: Ich nehme oft das, was nicht wirklich zur Zeichenformatierung gehört, raus aus dem Formatstring von printf bzw. sprintf und gebe es mit print aus.
  Muss aber nicht unbedingt sein.
  Last edited: 2013-02-14 19:29:02 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - Gast Keksi
    
    2013-02-14 23:36
    
    Danke an euch Drei - klappt nun wie geschmiert :-) !
    
    Lg
    Last edited: 2013-02-14 23:59:06 +0100 (CET)

View all threads created 2013-02-14 16:46.