Thread "Nächste Zeile" auslesen (12 answers)
Opened by r_a_mueller at 2011-02-11 12:33

renee
 2011-02-11 13:00
#145586 #145586
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Warum nimmst Du nicht ein Modul wie CPAN: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):
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
BEGIN:VCALENDAR
VERSION:2.0
PRODID:-//Mozilla.org/NONSGML Mozilla Calendar V1.1//EN
BEGIN:VTIMEZONE
TZID:/mozilla.org/20070129_1/Africa/Ceuta
X-LIC-LOCATION:Africa/Ceuta
BEGIN:DAYLIGHT
TZOFFSETFROM:+0100
TZOFFSETTO:+0200
TZNAME:CEST
DTSTART:19700329T020000
RRULE:FREQ=YEARLY;INTERVAL=1;BYDAY=-1SU;BYMONTH=3
END:DAYLIGHT
BEGIN:STANDARD
TZOFFSETFROM:+0200
TZOFFSETTO:+0100
TZNAME:CET
DTSTART:19701025T030000
RRULE:FREQ=YEARLY;INTERVAL=1;BYDAY=-1SU;BYMONTH=10
END:STANDARD
END:VTIMEZONE
BEGIN:VEVENT
CREATED:20110211T115359Z
LAST-MODIFIED:20110211T115442Z
DTSTAMP:20110211T115445Z
UID:06c8bffc-e19c-4f2d-898d-d7b9a9ec4d9e
SUMMARY:Testevent
DTSTART;TZID=/mozilla.org/20070129_1/Africa/Ceuta:20110211T120000
DTEND;TZID=/mozilla.org/20070129_1/Africa/Ceuta:20110211T130000
TRANSP:OPAQUE
DESCRIPTION:Das ist ein Test für Perl-Community.de\n\nDescription mit 
 mehreren Zeilen
END:VEVENT
END:VCALENDAR


Ausgabe:
more (2.5kb):
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
$VAR1 = {
          '06c8bffc-e19c-4f2d-898d-d7b9a9ec4d9e' => [
                                                      'VEVENT',
                                                      {
                                                        'SUMMARY' => 'Testevent',
                                                        'CREATED' => '20110211T115359Z',
                                                        'LAST-MODIFIED' => '20110211T115442Z',
                                                        'DESCRIPTION' => 'Das ist ein Test für Perl-Community.de\\n\\nDescription mit mehreren Zeilen',
                                                        'TRANSP' => 'OPAQUE',
                                                        'DTSTAMP' => '20110211T115445Z',
                                                        'DTEND' => [
                                                                     {
                                                                       'TZID' => '/mozilla.org/20070129_1/Africa/Ceuta'
                                                                     },
                                                                     '20110211T130000'
                                                                   ],
                                                        'DTSTART' => [
                                                                       {
                                                                         'TZID' => '/mozilla.org/20070129_1/Africa/Ceuta'
                                                                       },
                                                                       '20110211T120000'
                                                                     ]
                                                      }
                                                    ]
        };


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/

View full thread "Nächste Zeile" auslesen