Dateinamen mit führenden Nullen erzeugen (gelöst) (Allgemeines zu Perl)

[thread]18319[/thread]

Dateinamen mit führenden Nullen erzeugen [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 18

Articles: hide open all | hide show old branches

+4 replies
mark05

2013-05-16 07:54
User since
2010-01-05
131 Artikel
BenutzerIn
hi

folgende vorraussetzungen
a: dateien im muster 00001.ts ( immer 5 stellen mit zahlen und entsptechend aufgefuellt mit nullen )

b: aus einem index eine einzelne zahl die auf die entsprechende datei verweist also 1 entsprechend der obrigen datei.
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13

sub _getfile { my $index = shift; my $l = length $index; my $n = 4 - $l; my $fill; for my $i ( 0 .. $n ) { $fill .= '0'; } my $file = "$fill$index.ts"; return $file }
gibt es fuer diesen vorgang eine elegantere loesung ?

holger

modedit Editiert von GwenDragon: Titel dem Problem angepasst
Last edited: 2013-05-16 08:26:08 +0200 (CEST)
- +2 replies
- FIFO
  
  2013-05-16 08:11
  
  User since
  2005-06-01
  469 Artikel
  BenutzerIn
  
  klar, wenn feststeht, dass $index eine Ganzzahl ist:
  sub _getfile { return sprintf("%05d.ts", shift) }
  
  edit: Extension noch in den Format-String getan
  Last edited: 2013-05-16 08:15:39 +0200 (CEST)
  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"
  - mark05
    
    2013-05-16 09:23
    
    User since
    2010-01-05
    131 Artikel
    BenutzerIn
    
    danke
- Muffi
  
  2013-05-16 09:58
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  Für das Beispiel ist der andere Vorschlag der Bessere, aber zwecks Vollständigkeit:
  Es gibt in Perl den "x" operator.
  
  Code (perl): (dl )
  
  $a = '0' x 4;
  
  erzeugt 4 Nullen.
  Last edited: 2013-05-16 13:04:22 +0200 (CEST)
  1 + 1 = 10

View all threads created 2013-05-16 07:54.