Inzwischen spuckt mein Script auch schon nen schönen RSS-Feed aus, muss man nurnoch bisschen verschönern ...
Code:
#!/usr/bin/perl
use XML::Writer;
use IO;
use LWP::Simple;
use HTML::Entities;
use Encode qw(encode decode);
#use utf8;
use Encode qw(encode_utf8);
#use Data::Dumper::Names;
my $data_rss= new IO::File(">/tmp/aw-feed.xml");
my $writer_rss = new XML::Writer (OUTPUT => $data_rss, DATA_MODE => 1, DATA_INDENT=>2);
$writer_rss->xmlDecl('UTF-8');
$writer_rss->startTag("rss" ,"version"=>"2.0", "xmlns:content"=>"http://purl.org/rss/1.0/modules/content/");
$writer_rss->startTag ("channel");
$writer_rss->dataElement( "title", "Anrufliste" );
# Daten lesen
open(CSV, '</tmp/csv-tel-data') or die $!;
@csvInhalt = <CSV>;
close(CSV);
chomp(@csvInhalt);
# Header
# HTML- und Tabellenkopf schreiben
# print qq~
# <HTML>
# <HEAD>
# <meta http-equiv="Content-Type" CONTENT="text/html; charset=iso-8859-1">
# <meta http-equiv="expires" content="0">
# <meta http-equiv="Language" CONTENT="de">
# <meta name="author" CONTENT="Created by David S.">
# <meta name="description" content="Gesprächsdaten">
# </HEAD>
# <BODY>
# <TABLE border=1 width="100%">~;
# Tabelleninhalt schreiben
foreach (@csvInhalt) {
($sp0, $sp1, $sp2, $sp3, $sp4, $sp5, $sp6, $sp7, $sp8, $sp9, $sp10, $sp11, $sp12, $sp13, $sp14, $sp15, $sp16) = (split(' ', $_))[0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16];
# print qq~
# <TR>
# <TD>
# $sp1
# </TD>
# <TD>
# $sp2
# </TD>
# <TD>
# $sp5
# </TD>
# <TD>
# $sp6
# </TD>
# <TD>
# $sp13
# </TD>
# <TD>
# $sp14
# </TD>
# </TR>~;
if ($sp6 eq "-") { $sp6 = "Unbekannt"; }
#<pubDate>Sat, 17 Dec 2011 10:57:00 +0100</pubDate>
$sp6 = encode_entities($sp6);
$writer_rss->startTag ("item");
#if ($success eq "vergebl.") {
# $writer_rss->cdataElement( "title", "Verpasster Anruf von $sp_6 ($ex_number)" );
# $writer_rss->cdataElement( "description", "Verpasster Anruf von $ex_name ($ex_number) um $sp2 am $sp1" );
#}
#else {
$writer_rss->cdataElement( "title", "Anruf von $sp6 ($sp6)" );
$writer_rss->cdataElement( "description", "Anruf von $ex_name ($sp6) um $sp2 am $sp1" );
#}
# $writer_rss->emptyTag ("call",'date' => @{$call}[1], 'time'=> @{$call}[2],'length' => @{$call}[3],'ex-number' => @{$call}[5],'ex-name' => @{$call}[6],'direction' => @{$call}[14],'success' => @{$call}[15]);
$writer_rss->endTag("item");
}
$writer_rss->endTag ("channel");
$writer_rss->endTag ("rss");
# HTML- und Tabellenfuss schreiben
# print qq~
# </TABLE>
# </BODY>
# </HTML>~;
Daher auch die "harte" Grundhaltung für neues, LG hat ne Doku für die RS232 beiliegen, Samsung nicht:= und tschüss 
Einen Kommentar schreiben: