Hochzählen, bei einer bestimmten Zahl stopppen und die 5-stellige Zahl generieren. (Allgemeines zu Perl)

[thread]14156[/thread]

Hochzählen, bei einer bestimmten Zahl stopppen und die 5-stellige Zahl generieren.

Leser: 23

Articles: hide open all | hide show old branches

+10 replies
alla

2009-10-19 10:48

User since
2009-10-19
21 Artikel
BenutzerIn

Hallo liebe Perl-Community,

ich habe folgendes Problem: in einer externen Datei habe ich Zahlen. Ich schreibe ein Script, welches diese Datei einliest, jede Zeile durchläuft und zu jeder Zahl aufsteigend bis zu dieser Zahl hochzählt, z.B. steht in der ersten Zeile 506, ich speichere die Zahl in einer temporären Variable ab und will nun, dass das Script folgendes zu diser Zahl macht: 00001, 00002, 00003, 00004, 00005, ..., 00506 und bei 506 stoppt. Die Voraussetzung ist es, dass die zu generierende Zahl 5-stellig sein muss und die Zahlen mit Nullen geschrieben werden, bis auf die Hochgezählten. Wie mache ich das am besten?

Vielen Dank schon mal für Eure Hilfe und Hinweise!

Gruß,
Alla
- +6 replies
- Linuxer
  
  2009-10-19 10:52
  
  User since
  2006-01-27
  3891 Artikel
  HausmeisterIn
  
  Wo genau ist denn Dein Problem? Wobei brauchst Du denn Hilfe?
  
  Bei der Ausgabe? Schau Dir mal perldoc -f printf und perldoc -f sprintf an.
  
  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!
  - +5 replies
  - alla
    
    2009-10-19 10:53
    
    User since
    2009-10-19
    21 Artikel
    BenutzerIn
    
    Welche Funktion muss ich benutzen, um diese Zahlen zu generieren..? Ich bin ein Perl-Neuling und wüsste nicht, wie genau ich vorgehen soll :(
    - Dubu
      
      2009-10-19 10:59
      
      User since
      2003-08-04
      2145 Artikel
      ModeratorIn + EditorIn
      
      Code (perl): (dl )
      
      1 2 3 4
      
      my $n = 506; for my $zahl (0 .. $n) { printf "%05d\n", $zahl; }
      
      Geht auch noch kürzer, aber (für Anfänger) vielleicht schwerer zu lesen:
      
      Code (perl): (dl )
      
      1 2
      
      my $n = 506; printf "%05d\n", $_ for 0 .. $n;
      
      Wenn du das Ergebnis weiter verwenden möchtest, nimm sprintf() statt printf() und weise es einer Variablen zu (hier ohne das Newline "\n"):
      
      Code (perl): (dl )
      
      1 2 3 4
      
      for my $zahl (0 .. $n) { my $zahlstr = sprintf "%05d", $zahl; # ... mache was mit $zahlstr }
      
      Edit: Typo
    - +3 replies
    - havi
      
      2009-10-19 11:05
      
      User since
      2003-08-04
      2036 Artikel
      BenutzerIn
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
      
      #!/usr/bin/perl use warnings; use strict; use feature qw( say ); while(my $line = <DATA>) { chomp $line; my $zahl = sprintf("%05s", $line); say $zahl; } # while __DATA__ 506 200
      
      Perl-Zeitung - http://perl-zeitung.at/
      Perl-Blog - http://usr-bin-perl.blogspot.com/
      - +2 replies
      - GwenDragon
        
        2009-10-19 12:28
        
        User since
        2005-01-17
        14784 Artikel
        Admin1
        
        @havi
        dein Code läuft aber erst ab Perl 5.10!
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        havi
        
        2009-10-19 15:21
        
        User since
        2003-08-04
        2036 Artikel
        BenutzerIn
        
        2009-10-19T10:28:05 GwenDragon
        @havi
        dein Code läuft aber erst ab Perl 5.10!
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
        
        #!/usr/bin/perl use warnings; use strict; #use feature qw( say ); while(my $line = <DATA>) { chomp $line; my $zahl = sprintf("%05s", $line); #say $zahl; print $zahl."\n"; } # while __DATA__ 506 200
        
        # Wollte lediglich auf die Vorzüge von Perl 5.10 aufmerksam machen!
        Perl-Zeitung - http://perl-zeitung.at/
        Perl-Blog - http://usr-bin-perl.blogspot.com/
- +3 replies
- alla
  
  2009-10-19 13:02
  
  User since
  2009-10-19
  21 Artikel
  BenutzerIn
  
  Sieht gut aus. Nur habe ich vielleicht falsch erklärt: Ich brauche außerdem, dass es auch noch zu jeder Zahl hochzählt und bei der, die er eingelesen hat, stoppt. Z.B. Hab ich 506 eingelesen, so muss ich zu dieser Zahl mit 00001 angefangen, hochzählen, bis ich dann bei 506 angelangt bin, sprich:
  00001
  00002
  00003
  00004
  .....
  00506
  Stopp und weiter zur nächsten Zahl.
  - +2 replies
  - Linuxer
    
    2009-10-19 13:18
    User since
    2006-01-27
    3891 Artikel
    HausmeisterIn
    
    Hi,
    
    du musst eigentlich nur die beiden Antworten von Dubu und havi in Zusammenhang setzen. Schema:
    
    verwende strict und warnings
    öffne Datei (3-Argument-open)
    lese Zeilenweise aus Dateihandle (while-Schleife)
    
    entferne Zeilenumbruch
    zähle von 1 bis gelesene Zahl (for-Schleife)
    
    gebe Zählervariable formatiert aus (printf())
    schliesse Dateihandle
    
    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!
    - alla
      
      2009-10-19 14:07
      
      User since
      2009-10-19
      21 Artikel
      BenutzerIn
      
      So, jetzt hab ich gecheckt! Danke Euch!!! ;))

View all threads created 2009-10-19 10:48.