0 in string einfügen (gelöst) (Allgemeines zu Perl)

[thread]17222[/thread]

0 in string einfügen [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 21

Articles: hide open all | hide show old branches

+9 replies
Alexander

2012-03-07 04:18
User since
2012-02-21
25 Artikel
BenutzerIn
Status: Perl Anfänger

Muss ein Datum in seine Bestandteile zerlegen neu zusammensetzen und dann sortieren

Mein Problem ist jetzt wenn ein Tag nur eine Stelle benutzt (z.B.: 3) dann habe ich bei Tagen mit zwei Stellen (z.B. 23) eine andere Folge der einzelnen Elemente.

Um das Datum immer gleich aussehen zu lassen will ich nun gerne bei einstelligen Elementen eine 0 voransetzen. Habe nun das Problem, dass ich nicht weiß wie der Syntax für ein Element mit nur einem Zeichen ist
Code (perl): (dl )

1 2 3 4

# my @time = (Mon,Mar,3,12:24:05,2012); if ($time[2] =~ /[\d]/) { $time[2] = "0$time[2]";}
Außerdem würde ich auch gerne Werte die ich in einen @array einlese auf eine gewisse Anzahl beschränken, da dann beim Ausdruck auf dem Bildschirm die Liste schöner ist

Da habe ich noch keine Lösung

Ergebnis sollte dann so aussehen, dass das zweite Elemente nur max 8 Elemente vor dem Punkt ausgibt

03.02.2012 Muenche~.txt
02.03.2012 Wien.txt
01.02.2012 New Yor~.txt

Wie gesagt, weiß nicht wie ich die Elemente einer fixen Größe zuordne. Stelle mir jedoch vor, dass ich mit einer if Schleife die Werte dann einlese und wenn sie größer sind als 8 wir das letzte Zeichen vor dem Punkt mit einem ~ Zeichen ersetzt.

Könnte das klappen oder gibt es eine bessere Lösung?

Alexander
- bianca
  
  2012-03-07 06:21
  
  User since
  2009-09-13
  6977 Artikel
  BenutzerIn
  
  Für den ersten Teil der Frage (die ja thematisch noch in den anderen Thread als Rückfrage auf msg #156608 gepasst hätte) könnte man sprintf zu Hilfe nehmen.
  Dieser Ausdruck liefert das Datum als Scalar rückwärts auf 8 Stellen sortierbar formatiert:
  sprintf("%04d%02d%02d",reverse(split /\./,'7.3.2012'))
  Und für die Ausgabe kannst du es hiermit wieder richtig drehen:
  substr($dat,-2).'.'.substr($dat,4,2).'.'.substr($dat,0,4)
  Und ein Array kann man mit shift() oder splice() kürzen. Einfach mal in der Konsole perldoc -f shift absetzen, das ist die Hilfe zur jeweiligen Funktion.
  Last edited: 2012-03-07 06:24:03 +0100 (CET)
  10 print "Hallo"
  20 goto 10
- +4 replies
- FIFO
  
  2012-03-07 07:29
  User since
  2005-06-01
  469 Artikel
  BenutzerIn
  2012-03-07T03:18:43 Alexander
  
  Code (perl): (dl )
  
  1 2 3 4
  
  # my @time = (Mon,Mar,3,12:24:05,2012); if ($time[2] =~ /[\d]/) { $time[2] = "0$time[2]";}
  
  Da fehlen aber quotes ... Formatierung mit führender 0:
  
  Code (perl): (dl )
  
  1 2
  
  my @time = ('Mon', 'Mar', 3, '12:24:05', 2012); $time[2] = sprintf('%02d', $time[2]);
  
  edit: =~ zu = korrigiert, sorry
  
  Quote
  Außerdem würde ich auch gerne Werte die ich in einen @array einlese auf eine gewisse Anzahl beschränken, da dann beim Ausdruck auf dem Bildschirm die Liste schöner ist
  
  Da habe ich noch keine Lösung
  
  Ergebnis sollte dann so aussehen, dass das zweite Elemente nur max 8 Elemente vor dem Punkt ausgibt
  ...
  
  Könnte das klappen oder gibt es eine bessere Lösung?
  
  Kürzung des Stringteils vor der Extension (bzw. des Filenames, auch wenn keine Extension da (nicht getestet):
  
  Code (perl): (dl )
  
  $filename =~ s/^(.{7})(?=[^.]{2,}.*(\.[^.]+)?$)/$1~$2/;
  
  edit: ist Murks, s.u.
  
  Was ist mit Dateinamen, die in den ersten 8 Zeichen übereinstimmen?
  
  Besser: Arbeite mit File::Basename.
  Last edited: 2012-03-07 17:36:04 +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"
  - +2 replies
  - Alexander
    
    2012-03-07 14:13
    
    User since
    2012-02-21
    25 Artikel
    BenutzerIn
    
    Vielen Dank für die sehr guten Hilfen
    
    Das mit dem Datum hat geklappt, das mit dem Filenamen kürzen muss ich noch genauer nachlesen bzw. wird es noch dauern bis ich das kapiere
    
    Vielen Dank
    
    Alexander
    - FIFO
      
      2012-03-07 16:50
      
      User since
      2005-06-01
      469 Artikel
      BenutzerIn
      
      2012-03-07T13:13:44 Alexander
      ... das mit dem Filenamen kürzen muss ich noch genauer nachlesen bzw. wird es noch dauern bis ich das kapiere
      
      Hi Alexander,
      
      Deine Bescheidenheit stünde mir auch mal gut :) Die aus der Hüfte geschossene RegEx oben sieht nur professionell aus, funktioniert so aber nicht ...
      Für Dich nachvollziehbar ist vielleicht das:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
      
      use warnings; use strict; use File::Basename qw(fileparse); #Beispielnamen my @files = qw(123.txt foo123456789.txt bar123456789.tst.txt); for my $filename (@files) { # Dateinamen zerlegen (an der letzten Extension) my ($name, $dir, $ext) = fileparse($filename, qr/\.[^.]*/); if (length($name) > 8) { $name = substr($name, 0, 7) . '~'; } print "$filename => $name$ext\n"; }
      
      Ausgabe:
      
      Code: (dl )
      
      1 2 3
      
      123.txt => 123.txt foo123456789.txt => foo1234~.txt bar123456789.tst.txt => bar1234~.txt
      
      Gruß FIFO
      Last edited: 2012-03-07 17:09: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"
  - FIFO
    
    2012-03-07 17:35
    User since
    2005-06-01
    469 Artikel
    BenutzerIn
    
    2012-03-07T06:29:06 FIFO
    Kürzung des Stringteils vor der Extension (bzw. des Filenames, auch wenn keine Extension da (nicht getestet):
    
    Code (perl): (dl )
    
    $filename =~ s/^(.{7})(?=[^.]{2,}.*(\.[^.]+)?$)/$1~$2/;
    
    Kann nicht funktionieren (mal ganz abgesehen von der fehlenden Klammer). Die zweite Gruppe matcht bei fehlender Extension eben nicht. Der Lookahead bringt so auch nichts. Wenn man die Kürzung mit RegEx machen will, muss man wohl die Fälle mit/ohne Punkt/Extension trennen:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6
    
    if ($name =~ /\./) { $name =~ s|^ (.{7}) .{2,} (\.[^.]*) $|$1~$2|x; } else { $name =~ s|^ (.{7}) .{2,} $|$1~|x; }
    
    Editiert von FIFO: quote mischmasch beseitigt
    Last edited: 2012-03-07 20:01:25 +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"
- +2 replies
- GUIfreund
  
  2012-03-07 10:43
  User since
  2011-08-08
  559 Artikel
  BenutzerIn
  2012-03-07T03:18:43 Alexander
  
  Code (perl): (dl )
  
  1 2
  
  if ($time[2] =~ /[\d]/) { $time[2] = "0$time[2]";}
  
  Damit prüfst du nur, ob irgendwo im 3. Element eine Ziffer vorkommt - es dürfen auch mehrere sein. Etwas besser wäre
  
  Code (perl): (dl )
  
  if ($time[2] < 10) {
  
  Aber nimm lieber den Kode von Bianca. Da brauchst du keine Abfrage, und das Umdrehen wird gleich mit erledigt.
  
  Übrigens: Einrückungen sollten deinen Kode lesbarer machen.
  Gruß
  GUIfreund
  - bianca
    
    2012-03-07 11:05
    
    User since
    2009-09-13
    6977 Artikel
    BenutzerIn
    
    2012-03-07T09:43:09 GUIfreund
    Aber nimm lieber den Kode von Bianca.
    
    Oder vlt. den von FIFO. Ich weiß jetzt nicht, wie das Format genau aussieht. In seinem ersten Thread sah es anders aus und ich kann nicht erkennen, ob es noch um dasselbe geht.
    
    @Alex: Sehr eng zusammengehörige Fragen besser im selben Thread belassen und keinen neuen aufmachen, dann gibt's auch keine Mißverständnisse.
    10 print "Hallo"
    20 goto 10
- GwenDragon
  
  2012-03-07 11:14
  User since
  2005-01-17
  14533 Artikel
  Admin1
  Ich nehme mal an die Werte für die Tage sind immer numerisch.
  Dann geht es auch so:
  
  Code (perl): (dl )
  
  1 2 3 4
  
  my @time = (Mon,Mar,3,12:24:05,2012); if ($time[2] < 10 { $time[2] = "0$time[2]"; }
  
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel

View all threads created 2012-03-07 04:18.