37 lines
705 B
Perl
37 lines
705 B
Perl
|
#!/usr/bin/perl
|
||
|
|
# CSV zu Remind mit HTML für Webseite
|
||
|
|
# Version 1
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
use DateTime;
|
||
|
|
|
||
|
|
my $file = $ARGV[0] or die "Need to get CSV file on the command line\n";
|
||
|
|
|
||
|
|
open(my $data, '<', $file) or die "Could not open '$file' $!\n";
|
||
|
|
|
||
|
|
while (my $line = <$data>) {
|
||
|
|
chomp $line;
|
||
|
|
|
||
|
|
my @fields = split ";" , $line;
|
||
|
|
|
||
|
|
my $start = DateTime->new(
|
||
|
|
day => $fields[0],
|
||
|
|
month => $fields[1],
|
||
|
|
year => $fields[2],
|
||
|
|
);
|
||
|
|
|
||
|
|
my $stop = DateTime->new(
|
||
|
|
day => $fields[3],
|
||
|
|
month => $fields[4],
|
||
|
|
year => $fields[5],
|
||
|
|
);
|
||
|
|
|
||
|
|
|
||
|
|
while ($start <= $stop) {
|
||
|
|
print "REM ", $start->ymd, " SPECIAL HTML <P><A HREF=\"$fields[10]\">$fields[6]</A> </P>\n";
|
||
|
|
$start->add(days => 1);
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|