localtime ausgeben in Zahl? (gelöst) (Allgemeines zu Perl)

[thread]17212[/thread]

localtime ausgeben in Zahl? [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 20

Articles: hide open all | hide show old branches

+11 replies
Alexander

2012-03-04 12:53

User since
2012-02-21
25 Artikel
BenutzerIn

Würde gerne ein Datum in eine Zahl umwandeln

01.03.2012
02.01.2012
02.02.2012
03.01.2012
04.03.2012
30.08.2009

Datum ist so vorhanden, habe leider keine Ahnung wie ich es in eine Zahl bekomme

Alexander
- +7 replies
- jan
  
  2012-03-04 13:10
  
  User since
  2003-08-04
  2536 Artikel
  ModeratorIn
  
  Was für eine Zahl soll es denn werden? Ein Timestamp?
  Dann müsstest Du splitten und dann irgendeines der Module nutzen, die das für dich abwickeln, z.B. Time::Local oder DateTime
  - +6 replies
  - Alexander
    
    2012-03-04 13:15
    
    User since
    2012-02-21
    25 Artikel
    BenutzerIn
    
    prinzipiell geht es darum, dass ich einen array habe
    Zeit Größe Name
    Zeit Größe Name
    
    und diesen array will ich nach dem neuesten Datum sortieren
    
    wenn ich jetzt sortier, dann fängt er mit
    01.02.2012 Größe Name an jedoch wenn ich
    01.01.2012 Größe Name habe, dann kommt es an zweiter Stelle anstatt an erster
    - jan
      
      2012-03-04 14:00
      
      User since
      2003-08-04
      2536 Artikel
      ModeratorIn
      
      Ok.
      Ist das ein Array mit Arrayrefs drin oder ist das jeweils ein String, der Datum und so weiter enthält?
      Grundsätzlich: Datum extrahieren, mit split an den Punkten auftrennen und dann anschließend mit join umgekehrt (reverse) zusammenfügen, sodass aus 01.01.2012 dann 20120101 wird. Und dann kannst Du sort ja beliebige subroutinen zum Vergleichen geben.
    - FIFO
      
      2012-03-04 14:08
      
      User since
      2005-06-01
      469 Artikel
      BenutzerIn
      
      2012-03-04T12:15:09 Alexander
      prinzipiell geht es darum, dass ich einen array habe
      Zeit Größe Name
      Zeit Größe Name
      ...
      
      Was bedeutet das? Besteht das Array aus einfachen Strings, in denen Zeit, Größe und Name mit Leerzeichen getrennt aufgereiht sind?
      Um Datumswerte zu sortieren kannst Du die Jahres-, Monats- und Tageszahlen als JJJJMMTT speichern.
      Wie soll sortiert werden, wenn zwei Daten gleich sind?
      Evtl. ist es besser, den Datenbestand in einer komplexeren/multidimensionalen Struktur abzubilden.
      Eine Hilfestellung ins Blaue hinein ist irgendwie schwierig ... Was hast Du denn schon versucht?
      
      Gruß FIFO
      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
    - moritz
      
      2012-03-04 14:36
      
      User since
      2007-05-11
      923 Artikel
      HausmeisterIn
      
      Wenn du die Daten ins Format YYYY-MM-DD umwandelst, werden sie richtig sortiert.
      Perl 6 - Perls Zukunft
      - Alexander
        
        2012-03-04 16:51
        
        User since
        2012-02-21
        25 Artikel
        BenutzerIn
        
        Vielen Dank, das war ein sehr guter Lösungsvorschlag, den ich auch gleich umgesetzt habe.
    - FIFO
      
      2012-03-04 14:56
      
      User since
      2005-06-01
      469 Artikel
      BenutzerIn
      
      Für den Fall, dass Deine Daten folgendes erfüllen:
      - Array aus einfachen Zeilen,
      - die immer mit dem Datum beginnen,
      - das immer im Format TT.MM.JJJJ vorliegt
      
      geht z.B.:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
      
      use warnings; use strict; my @data = ( '01.02.1989 38413 lncghermg', '22.01.1989 49562956 lehhhhhhhwrg', '03.12.1988 2349 ngfwjkgufiw', '02.01.1989 2913 rhqiuq' ); my @sorted = map { $data[$_->[0]] } sort { $a->[1] cmp $b->[1] } map { [$_, join('', reverse split(/\./, substr($data[$_], 0, 10)))] } 0..$#data; print "$_\n" for @sorted;
      
      Vielleicht sagst Du mal, wo Du beim Programmieren mit Perl stehst, bevor man Dir Dinge erklärt, die Du schon kennst ...
      
      Gruß FIFO
      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-04 15:16
  User since
  2005-06-01
  469 Artikel
  BenutzerIn
  2012-03-04T11:53:08 Alexander
  Würde gerne ein Datum in eine Zahl umwandeln
  
  ... um auch das noch zu beantworten:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9
  
  my $datum = '01.02.2012'; # 1. Variante my $zahl_1 = join('', reverse split(/\./, $datum)); # 2. Variante, geht auch, wenn führende 0 (Tag/Monat) fehlt: my $zahl_2 = sprintf('%4d%02d%02d', reverse split(/\./, $datum)); print "$datum\n\$zahl_1: $zahl_1\n\$zahl_2: $zahl_2\n";
  
  Über Datumsberechnungen und -formatierungen haben sich schon viele schlaue Leute Gedanken gemacht und diese in Modulen zugänglich gemacht (s.u.), bevor Du also Räder neu erfindest, schau mal im CPAN :)
  
  Gruß FIFO
  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
- rosti
  
  2012-03-04 15:52
  
  User since
  2011-03-19
  3720 Artikel
  BenutzerIn
  
  vor einiger Zeit habe ich hier mal die funktionen gepostet zum Berechnen des Julianischen Tages nach Scaliger (das sind die Suchbegriffe).
  
  --rosti
  http://rolfrost.de/wallpaper.html
  
  WallPaper -- jeden Monat neu. Mit nur 2 Klicks den Aktuellen Monat auf dem Desktop.
  - Alexander
    
    2012-03-04 16:53
    
    User since
    2012-02-21
    25 Artikel
    BenutzerIn
    
    Vielen Dank für die Hilfe(n)
    
    bin leider nur blutiger Anfänger und deshalb suche ich nach einfachen Lösungen.
    
    Tauschte die Elemente im Arrach und die sort Funktion machte den Rest.
    
    Vielen Dank
    
    Alexander

View all threads created 2012-03-04 12:53.