sprintf um rechts im String 0 aufzufüllen (gelöst) (Allgemeines zu Perl) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl

2024-04-26 13:14:31
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
0 Benutzer online

[thread]19508[/thread]

submit to reddit

sprintf um rechts im String 0 aufzufüllen [gelöst]

[gelöst]

Tags: perl5 Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

+16 replies
bianca

2015-02-14 19:07

User since
2009-09-13
6977 Artikel
BenutzerIn

Hallo!
Innerhalb eines sort{} in einer Schleife benötige ich ein sprintf(), das rechts mit 0 auffüllt.
Es können 8- und 12 stellige Werte vorkommen, sortiert werden soll so, als ob alle 12stellig wären, die 8stelligen sollen rechts mit 0 (nicht mit Blank, also kein "%-12d"!) aufgefüllt werden.
Finde einfach kein passendes Ergebnis.
Bitte um Hilfe und bedanke mich
10 print "Hallo"
20 goto 10
- +6 replies
- bianca
  
  2015-02-14 19:22
  
  User since
  2009-09-13
  6977 Artikel
  BenutzerIn
  
  Inzwischen hab ich das gefunden: reverse(sprintf "%012s",scalar(reverse($string)))
  Aber von der reinen Betrachtung der Kommandos habe ich das Gefühl, dass das ziemlich rechenintensiv ist. Geht das besser?
  10 print "Hallo"
  20 goto 10
  - payx
    
    2015-02-14 19:59
    
    User since
    2006-05-04
    564 Artikel
    BenutzerIn
    
    Hallo bianca,
    
    eine weitere Möglichkeit wäre sprintf("%-12d",$string) =~ s/ /0/gr
    
    Vermutlich ist das auch nicht weniger rechenintensiv; eher mehr als Dein Ansatz.
    
    HTH
    Grüße
    payx
  - +2 replies
  - FIFO
    
    2015-02-15 08:24
    User since
    2005-06-01
    469 Artikel
    BenutzerIn
    
    Hi bianca,
    
    Bei Deiner Konstruktion muss noch ein scalar vorangestellt werden, bzw. Du musst den skalaren Kontext sicherstellen.
    
    Noch eine Variante (für numerische Werte): $string * 10 ** ( 12 - length( $string ) ). Ist wahrscheinlich etwas schneller.
    
    Vergleichen kannst Du mit Benchmark:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
    
    #!/usr/bin/perl -w use strict; use Benchmark qw( cmpthese ); my $string = "1234567890"; my $new; cmpthese( 0, { "reverse" => sub { $new = scalar reverse( sprintf "%012s", scalar reverse( $string ) ) }, # "regex" => sub { $new = sprintf( "%-12d", $string ) =~ s/ /0/gr }, "regexOld" => sub { ( $new = sprintf( qq( %-12d ), $string ) ) =~ s/ /0/g }, "length" => sub { $new = $string . 0 x ( 12 - length( $string ) ) }, "mult" => sub { $new = $string * 10 ** ( 12 - length( $string ) ) }, } );
    
    Die Regex-Variante von payx kann ich hier nicht ausführen (Perl 5.12, da geht /r nicht).
    
    Das nur als Demo. Wenn es wichtig ist, solltest Du ein Testszenario wählen, das Deiner Anforderung entspricht.
    
    Ausgabe:
    
    Code: (dl )
    
    1 2 3 4 5
    
    Rate regexOld reverse length mult regexOld 367554/s -- -84% -88% -91% reverse 2248428/s 512% -- -28% -45% length 3123101/s 750% 39% -- -23% mult 4071761/s 1008% 81% 30% --
    
    Die Ausgabe zeigt die langsamste Variante oben (regexOld).
    
    Gruß, FIFO
    
    EDIT: Die Regex-Variante für Perl < 5.14 ergänzt, vgl. payx' Antwort.
    Last edited: 2015-02-15 16:06:22 +0100 (CET)
    Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
    - payx
      
      2015-02-15 11:03
      
      User since
      2006-05-04
      564 Artikel
      BenutzerIn
      
      2015-02-15T07:24:55 FIFO
      Die Regex-Variante von payx kann ich hier nicht ausführen (Perl 5.12, da geht /r nicht).
      
      Stimmt, geht erst ab 5.14. (Manchmal denke ich daran, das dazu zu schreiben, z.B. msg #179504.)
      
      PS: Nur der Vollständigkeit halber: ohne /r geht es z.B. so (über eine Zuweisung):
      
      Code (perl): (dl )
      
      ($string = sprintf(qq(%-12d),$string)) =~ s/ /0/g;
      
      Editiert von payx: PS
      Last edited: 2015-02-15 11:45:23 +0100 (CET)
  - +2 replies
  - FIFO
    
    2015-02-15 16:11
    
    User since
    2005-06-01
    469 Artikel
    BenutzerIn
    
    Premature optimization is the root of all evil (or at least most of it) in programming.
    Donald Knuth, Computer Programming as an Art (1974)
    
    Wie Du in den Benchmarks sehen kannst, schafft ein Rechner so oder so ziemlich viele Konversionen pro Sekunde. Bevor Du Stunden in Optimierung steckst, genieße lieber das Wetter :)
    Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
    - bianca
      
      2015-02-15 17:45
      
      User since
      2009-09-13
      6977 Artikel
      BenutzerIn
      
      Ja, hast Recht!
      10 print "Hallo"
      20 goto 10
- +3 replies
- bianca
  
  2015-02-14 19:37
  
  User since
  2009-09-13
  6977 Artikel
  BenutzerIn
  
  Das einfachste wäre vermutlich substr($string.'0000',0,12)
  Wie ging das nochmal mit dem Messen der Verarbeitungsdauer und des Speicherbedarf im Vergleich?
  10 print "Hallo"
  20 goto 10
  - +2 replies
  - renee
    
    2015-02-15 13:22
    
    User since
    2003-08-04
    14371 Artikel
    ModeratorIn
    
    Das deckt aber nicht alle Fälle ab. Was wenn $string kleiner als 8 Zeichen ist? Was, wenn $string länger als 12 Zeichen ist?
    OTRS-Erweiterungen (http://feature-addons.de/)
    Frankfurt Perlmongers (http://frankfurt.pm/)
    --
    
    Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
    Perl-Entwicklung: http://perl-services.de/
    - bianca
      
      2015-02-15 17:45
      
      User since
      2009-09-13
      6977 Artikel
      BenutzerIn
      
      Ist beides ausgeschlossen an der Stelle wo ich das brauche.
      10 print "Hallo"
      20 goto 10
- +6 replies
- betterworld
  
  2015-02-14 21:21
  User since
  2003-08-21
  2613 Artikel
  ModeratorIn
  Code (perl): (dl )
  
  $string . 0 x (12-length $string)
  
  Aber wenn es nur für den Vergleich in sort{} ist, dann kann man sich das Auffüllen auch sparen und einfach ganz normal lexikalisch sortieren.
  Lieblingsmodule: IPC::System::Simple, Path::Class
  - +4 replies
  - payx
    
    2015-02-14 22:13
    
    User since
    2006-05-04
    564 Artikel
    BenutzerIn
    
    Cool, noch eine Lösung. TIMTOWTDI, bzw. es wäre ja wirklich mal interessant, welche die schnellste ist.
    
    2015-02-14T20:21:01 betterworld
    Aber wenn es nur für den Vergleich in sort{} ist, dann kann man sich das Auffüllen auch sparen und einfach ganz normal lexikalisch sortieren.
    OP schrieb ja:
    
    2015-02-14T18:07:16 bianca
    ... benötige ich ein sprintf(), das rechts mit 0 auffüllt.
    Ich nehme mal an, das ist z.B. deshalb so, weil die Strings beim cmp (natürlich nicht <=>) noch weitere Bestandteile haben(?).
    
    Grüße
    payx
    - +3 replies
    - betterworld
      
      2015-02-15 10:08
      
      User since
      2003-08-21
      2613 Artikel
      ModeratorIn
      
      2015-02-14T21:13:33 payx
      Ich nehme mal an, das ist z.B. deshalb so, weil die Strings beim cmp (natürlich nicht <=>) noch weitere Bestandteile haben(?).
      
      Selbst dann ist die Übung sinnlos, weil es für die Sortierung noch keinen Unterschied macht, ob man nun mit Leerzeichen oder mit Nullen auffüllt.
      Lieblingsmodule: IPC::System::Simple, Path::Class
      - +2 replies
      - payx
        
        2015-02-15 11:39
        
        User since
        2006-05-04
        564 Artikel
        BenutzerIn
        
        Hallo betterworld,
        
        2015-02-15T09:08:14 betterworld
        2015-02-14T21:13:33 payx
        Ich nehme mal an, das ist z.B. deshalb so, weil die Strings beim cmp (natürlich nicht <=>) noch weitere Bestandteile haben(?).
        
        Selbst dann ist die Übung sinnlos, weil es für die Sortierung noch keinen Unterschied macht, ob man nun mit Leerzeichen oder mit Nullen auffüllt.
        
        Stimmt meistens. Zugegebenermaßen spitzfindig, aber eben ein Fall, in dem man ggf. (d.h. je nach Aufgabenstellung) die Nullen benötigt (und an diesem "ich benötige" hatte ich mich ja aufgehalten):
        
        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 25 26 27 28 29
        
        #!/usr/bin/perl use strict; use warnings; my @values = ( 12300 , 123 , 123000 ); my @suffixes = ( 'C' , 'B' , 'A' ); for my $i (0..2) { $values[$i] = sprintf("%-12d",$values[$i]) . $suffixes[$i]; } print "Mit Leerzeichen:\n"; print "$_\n" for sort {$a cmp $b} @values; print "Mit Nullen:\n"; @values = map {$_ =~ s/ /0/gr} @values; print "$_\n" for sort {$a cmp $b} @values;
        
        Ausgabe:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8
        
        Mit Leerzeichen: 123 B 12300 C 123000 A Mit Nullen: 123000000000A 123000000000B 123000000000C
        
        Naja :-I
        
        Grüße
        payx
        Last edited: 2015-02-15 11:49:28 +0100 (CET)
        
        betterworld
        
        2015-02-15 12:59
        
        User since
        2003-08-21
        2613 Artikel
        ModeratorIn
        
        Du hast recht, an den Fall hatte ich nicht gedacht :)
        Lieblingsmodule: IPC::System::Simple, Path::Class
  - bianca
    
    2015-02-15 10:34
    
    User since
    2009-09-13
    6977 Artikel
    BenutzerIn
    
    2015-02-14T20:21:01 betterworld
    Aber wenn es nur für den Vergleich in sort{} ist, dann kann man sich das Auffüllen auch sparen und einfach ganz normal lexikalisch sortieren.
    
    Das ist es!!
    Manchmal liegt die Lösung so nah. Ich weiß nicht, warum ich darauf nicht gekommen bin.
    
    Danke allen Helfern!
    10 print "Hallo"
    20 goto 10

View all threads created 2015-02-14 19:07.