"Nächste Zeile" auslesen (solved) (Allgemeines zu Perl)

[thread]15949[/thread]

"Nächste Zeile" auslesen [solved]

Readers: 31

Articles: hide open all | hide show old branches

+13 replies
r_a_mueller

2011-02-11 12:33
User since
2011-02-11
6 articles
BenutzerIn
Hallo und guten Morgen,
ich hoffe, jemand hat einen kleinen Tipp für mich. Es geht um folgendes:
Ich habe ein kleines Skript, um Informationen aus einer Kalender-Datei (*.ics) herauszuziehen und in einer CSV-Datei abzuspeichern.

...(schnipp)...
Code: (dl )

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

while(<IN>) { if (substr($_,0,12) eq 'DESCRIPTION:') { $laenge = length($_); print OUT "\"",substr($_,12,$laenge-14),"\";"} if (substr($_,0,8) eq 'SUMMARY:') { $laenge = length($_); print OUT "\"",substr($_,8,$laenge-10),"\";"} if (substr($_,0,8) eq 'DTSTART;') { print OUT substr($_,27,8),"\n"}; };
...(schnapp)...
Hier wird also zeilenweise die Eingabedatei (*.ics) gelesen, und wenn die Zeile mit DESCRIPTION, SUMMARY oder DTSTART anfängt, werden die dahinterstehenden Inhalte durch ";" getrennt in die OUT-Datei geschrieben.
So weit, so einfach. Das Problem ist aber folgendes: Der Inhalt von DESCRIPTION erstreckt sich manchmal über zwei oder sogar mehr Zeilen (die nächsten Zeilen fangen in diesen Fällen mit einem Leerzeichen an, das sind auch die einzigen Zeilen mit einem Leerzeichen am Anfang). Mit meinem Skript werden diese Zeilen natürlich übersprungen. Ich müsste also nach dem ersten if noch die nächste(n) Zeile(n) prüfen, zur Prüfung auf SUMMARY oder DTDATE wieder die ursprüngliche Zeile nehmen. Ich bräuchte sowas wie $_+1 ;-)

Danke - Richard

modedit Editiert von pq: code-tags hinzugefügt
Last edited: 2011-02-11 12:50:11 +0100 (CET)
- +2 replies
- pq
  
  2011-02-11 12:49
  
  User since
  2003-08-04
  12209 articles
  Admin1
  
  vielleicht möchtest du der einfachheit halber iCal-Parser verwenden?
  
  edit: bitte das nächste mal code-tags verwenden, wie in der FAQ beschrieben.
  dann brauchst du auch nicht umständlich sowas komisches wie "schnipp" und "schnapp" um den code herumzuschreiben.
  Last edited: 2011-02-11 12:51:04 +0100 (CET)
  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
  - r_a_mueller
    
    2011-02-12 13:07
    
    User since
    2011-02-11
    6 articles
    BenutzerIn
    
    Leider heisst's bei der Beschreibung dieses Moduls:
    It currently ignores the VTIMEZONE, VJOURNAL and VFREEBUSY entry types
    Und leider stecken die Daten, die ich brauche, in VJOURNAL. Hatte ich leider nicht erwähnt. Trotzdem Danke!
    Richard
    PS Deinen Hinweis beachte ich natürlich demnächst.
- +10 replies
- renee
  
  2011-02-11 13:00
  User since
  2003-08-04
  14371 articles
  ModeratorIn
  Warum nimmst Du nicht ein Modul wie Tie::iCal Damit machst Du Dir das Leben einfacher...
  
  Programm:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13
  
  #!/usr/bin/perl use strict; use warnings; use Tie::iCal; use Data::Dumper; tie my %ical, 'Tie::iCal', 'Community.ics' or die "Problem: $!"; warn Dumper \%ical; untie %ical;
  
  Community.ics:more (1.4kb)
  
  Ausgabe:
  more (2.5kb)
  
  Editiert von renee: oder das Modul nehmen, das pq genannt hat...
  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/
  - +9 replies
  - r_a_mueller
    
    2011-02-12 14:37
    
    User since
    2011-02-11
    6 articles
    BenutzerIn
    
    Danke für den Hinweis auf das Modul. Ich habe die Finger wundgegoogelt nach Skripten, die mich aber nicht weiterbrachten. Und da Perl ja schön für Stringmanipulationen ist, wollte ich es hiermit versuchen, aber nicht daran gedacht, dass man auch mal mit "perl" und "ical" googeln könnte. Da hätte man sofort am Anfang die Lösungen gehabt...
    
    Tie::iCal habe ich eingebunden, funktioniert auch, habe aber noch nicht kapiert, wie ich aus den gewünschten extrahierten Daten eine CSV-Datei basteln kann.
    Gruß, Richard
    - +8 replies
    - renee
      
      2011-02-13 09:20
      
      User since
      2003-08-04
      14371 articles
      ModeratorIn
      
      Dann poste mal ein paar Beispieldaten und wie das Endergebnis aussehen soll. Sonst wird es eine Arbeit mit der Glaskugel ;-)
      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/
      - +7 replies
      - r_a_mueller
        
        2011-02-14 17:56
        
        User since
        2011-02-11
        6 articles
        BenutzerIn
        
        Sehr gerne ein Beispiel:
        
        Code: (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 30 31 32 33 34 35 36 37 38 39 40 41 42 43
        
        BEGIN:VJOURNAL DTSTAMP:20091216T152458Z ORGANIZER;CN=Richard:MAILTO: CREATED:20090903T180158Z UID:libkcal-1654442125.506 LAST-MODIFIED:20090903T180158Z DESCRIPTION:Auswertung Wassergehalt SUMMARY:10diff DTSTART;TZID=Europe/Berlin:20090904T200100 END:VJOURNAL BEGIN:VJOURNAL DTSTAMP:20091216T152458Z ORGANIZER;CN=Richard:MAILTO: CREATED:20090911T074039Z UID:libkcal-401275217.878 LAST-MODIFIED:20090911T074039Z DESCRIPTION:Eine sehr lange description, die ueber mehrere Zeilen geht - nein, nicht nur ueber zwei, sondern sogar drei. # Die Zeilen 2 und 3 der obigen Description besitzen im Original ein Leerzeichen am Zeilenbeginn, das hier nicht mit rübergekommen ist. SUMMARY:9diff DTSTART;TZID=Europe/Berlin:20090907T094000 END:VJOURNAL
        
        und das gewünschte Ergebnis:
        
        Code: (dl )
        
        1 2 3
        
        DATE;SUMMARY;DESCRIPTION [cr/lf] 20090904;"10diff";"Auswertung Wassergehalt" [cr/lf] 20091216;"9diff";"Eine sehr lange description, die ueber mehrere Zeilen geht - nein, nicht nur ueber zwei, sondern sogar drei." [cr/lf]
        
        Ich hoffe, damit ist das Ziel klar. Wie gesagt, die mehrzeiligen DESCRIPTION-Felder machen mir Probleme.
        Danke für die Mühen, Richard
        
        modedit Editiert von renee: code-Tags eingefügt
        Last edited: 2011-02-15 06:39:29 +0100 (CET)
        
        +3 replies
        
        Linuxer
        
        2011-02-14 19:14
        
        User since
        2006-01-27
        3894 articles
        HausmeisterIn
        
        Wenn Du Deine Beispiele in [code][/code] stellst, dann werden auch die Leerzeichen korrekt dargestellt.
        
        Code: (dl )
        
        1 2 3
        
        Hier mein Code.
        
        Kannst Du bitte Deinen Beitrag korrigierend editieren? Danke.
        
        Ist auch nachzulesen unter:
        AllgemeinesWieFrageIchbeiPerlCommunity#4_Code_im_Beitrag
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        +2 replies
        
        r_a_mueller
        
        2011-02-16 19:12
        
        User since
        2011-02-11
        6 articles
        BenutzerIn
        
        Sorry für die Nicht-Verwendung der Code-Tags. Aber da es sich ja eigentlich um keinen Code handelt, sondern mehr um eine Aneinanderreihung von Daten, war das eigentlich "Absicht". Um so die Leerzeichen zu zeigen, wäre das trotzdem sinnvoll gewesen...
        Gruß, Richard
        
        pq
        
        2011-02-16 19:25
        
        User since
        2003-08-04
        12209 articles
        Admin1
        
        code-tag bedeutet nicht unbedingt programmcode, sondern allgemein inhalte wie daten. damit wird für die anderen leser genau ersichtlich, wo die daten anfangen/enden; sie werden mit fester buchstabenbreite angezeigt (auch oft wichtig für die lesbarkeit), und wie gesagt die leerzeichen.
        desweiteren kann man, wenn man diese daten selber testen will, diese durch das code-tag direkt als textdatei runterladen, ohne umständlich kopieren zu müssen. also alles in allem sehr praktisch, das tag, und auch kein grosser aufwand für den schreiber, sie hinzuzufügen.
        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
        
        +3 replies
        
        renee
        
        2011-02-15 07:37
        
        User since
        2003-08-04
        14371 articles
        ModeratorIn
        
        Code: (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 30 31 32 33 34 35 36 37 38 39 40 41
        
        #!/usr/bin/perl use strict; use warnings; use Tie::iCal; use Data::Dumper; use Text::CSV; # erzeuge neues Text::CSV objekt - mit Win32-Zeilenumbruechen, ;. # binary => 1, da in den Texten auch Newlines vorkommen koennen my $csv = Text::CSV->new({ eol => "\r\n", sep_char => ";", binary => 1, }); # lies die iCal-Datei ein tie my %ical, 'Tie::iCal', 'test.ics' or die "Problem: $!"; # oeffne Dateihandle fuer CSV-Datei open my $out_fh, '>', 'test.csv' or die "Problem bei Erstellung der CSV: $!"; # gib die Spaltennamen aus $csv->print( $out_fh, [ qw(DATE SUMMARY DESCRIPTION) ] ); for my $event ( keys %ical ) { my $event_data = $ical{$event}->[1]; my $date = $event_data->{DTSTART}->[1]; my $summary = $event_data->{SUMMARY}; my $description = $event_data->{DESCRIPTION}; # mehrzeilige Beschreibungen sind in einer Arrayreferenz $description = join "\r\n", @{$description} if ref $description; $csv->print( $out_fh, [ $date, $summary, $description ] ); } close $out_fh; untie %ical;
        
        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/
        
        +2 replies
        
        r_a_mueller
        
        2011-02-16 19:14
        
        User since
        2011-02-11
        6 articles
        BenutzerIn
        
        Das geht ja wie Schmitz' Katze. Danke für die Zeilen! Ich arbeite das Skript mal durch, um ein bisschen meinen Horizont zu erweitern (nur laufen lassen reicht mir nicht).
        Vielen Dank und schönen Abend, Richard
        
        renee
        
        2011-02-17 08:29
        
        User since
        2003-08-04
        14371 articles
        ModeratorIn
        
        Bei Fragen einfach fragen ;-)
        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/

View all threads created 2011-02-11 12:33.