Leerungszeiten aufsplitten (Allgemeines zu Perl)

[thread]13919[/thread]

Leerungszeiten aufsplitten

Leser: 25

Articles: hide open all | hide show old branches

+8 replies
jan999

2009-08-24 16:58

User since
2009-04-02
109 Artikel
BenutzerIn

Moin !

für OpenStreetMap werden Leerungszeiten nach folgendem Prinzip erfaßt

Wochentag in engl. Kurzform gefolgt von den Uhrzeiten. Die Uhrzeiten werden durch KOMMA getrennt.

Verschiedende Tage werden dann durch Semikolon getrennt.

Als Beispiel würde das so aussehen:

Mo-Fr 10:00; Sa 10:00
Mo-Fr 18:00; Sa 12:15; Su 9:30

Weitere Informationen hierzu finden sich unter [1].

Meine Frage zielt nun darauf ab, ob es einen einfachen Weg gibt diese Daten so aufzusplitten das man "mehr" damit anfangen kann - mein Ziel ist es eine Tabelle zu erstellen mit den Tagen und den zugehörigen Uhrzeiten.

Vielleicht kann mir einer von Euch helfen ?

Gruß Jan :-)

[1] http://wiki.openstreetmap.org/wiki/Approved_featur...
- +5 replies
- pq
  
  2009-08-24 17:03
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  du könntest die funktion split verwenden.
  http://p3rl.org/split
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +4 replies
  - jan999
    
    2009-08-24 17:04
    
    User since
    2009-04-02
    109 Artikel
    BenutzerIn
    
    Hi !
    
    in diese Richtung ging meine Überlegung auch schon - aber ich dachte es gibt eine bessere Lösung um auch Reihenfolgenfehler zu umgehen.
    
    Gruß Jan :-)
    - pq
      
      2009-08-24 17:22
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      ich versteh nicht ganz - irgendwie musst du die daten ja aufsplitten. das wäre ja nur der erste schritt.
      willst du ein fertiges skript haben oder nen denkansatz?
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
    - +2 replies
    - RPerl
      
      2009-08-24 17:32
      
      User since
      2006-11-26
      384 Artikel
      BenutzerIn
      
      Falls ein Denkansatz genuegt: Wenn die Daten die du parsen willst nicht statisch sind, kann man auch mit split nicht arbeiten, weil die Gefajr zu gross ist, evtl. falsche Daten aufzusplitten. Deshalb wuerde ich ueberlegen, vielleicht vorher mit einigen Regulaeren Ausdruecken die Daten zu validieren. Anschliessend, wenn die Daten valide sind, splitten.
      - jan999
        
        2009-08-24 18:40
        
        User since
        2009-04-02
        109 Artikel
        BenutzerIn
        
        hi !
        
        das habe ich bisher gebastelt:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
        
        my $collection_times = "Mo-Fr 10:00; Sa 10:00; Su 11:00;"; CreateCollectionTimeTable(); sub CreateCollectionTimeTable { my(@days) = split( /;/, $collection_times ); foreach $day (@days){ $_ = $day; s/^\s+//; # fuehrende Leerzeichen entfernen s/\s+$//; # nachfolgende Leerzeichen entfernen my($dayname,$daytime) = split( / /, $_ ); print "|".$dayname."| - |".$daytime."|\n"; } }
        
        Was nur, wenn einer das Leerzeichen zwischen Tag/Zeit vergessen hat und wie könnte man noch sicher gehen das in zeitlicher Reihenfolge gelistet wird.
        
        Wie könnte man (schreiben eines Logs) abfangen wenn ungültige Uhrzeiten bzw. engl. Wochentage geschrieben werden ?!?!?
        
        Gruß Jan :-)
- +2 replies
- topeg
  
  2009-08-24 19:00
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  Ungetestet:
  
  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
  
  #!/usr/bin/perl use strict; use warnings; use Data::Dumper; my $collection_times='Mo-Fr 15:00,18:00,19:00,23:00; Sa 15:00; Su 10:30,23:00'; my @collection_list; for my $collection (split(/;\s*/,$collection_times)) { my ($day,$time)=split(/\s+/,$collection,2); # ist es wirklich ein Wochentag? (mo tu we th fr sa su) if($day=~/^[motuwehsa-]+$/i) { my @time=split(/\s*,\s*/,$time); push(@collection_list,{day=>$day, time=\@time}); } } print Dumper(\@collection_list);
  
  Ich habe hier noch einen objektorientierten OSM-Parser liegen, wenn Interesse besteht...
  - jan999
    
    2009-08-24 19:54
    
    User since
    2009-04-02
    109 Artikel
    BenutzerIn
    
    hi !
    
    erst einmal vielen dank für das beispiel. ziehe ich mir mal rein.
    
    was den osm-parser betrifft gerne - mal sehen ob ich den verstehe da ich noch perl-greenhorn bin.
    
    gruß Jan :-)

View all threads created 2009-08-24 16:58.