mplayer-eee-tv/program/mojtv.pl

#!/usr/bin/perl

use warnings;
use strict;

use XML::FeedPP;
use DateTime;
use Data::Dump qw(dump);

my $now = DateTime->now;

sub scrape {
        my $url = shift;
        my $feed = XML::FeedPP->new( $url );
        print "Title: ", $feed->title(), "\n";
        print "Date: ", $feed->pubDate(), "\n";
        foreach my $item ( $feed->get_item() ) {
                my ( $channel, $date ) = split /\s*-\s*/, $item->title(), 2;
                my ( $dd, $mm, $yyyy ) = split /\./, $date, 3;
                my $program = $item->description();
                $program =~ s{<div[^>]*>}{\n}gs;
                $program =~ s{</div>}{\n}gs;
                my @last;
                foreach my $line ( split(/\n+/, $program) ) {
                        if ( $line =~ s{<strong>(\d+):(\d+)</strong>\s*}{} ) {
                                my ($h,$m) = ($1,$2);
                                my $link = $1 if $line =~ s{<a.+href="(.+?)">([^<]+)</a>}{$2};
                                my $t = DateTime->new(
                                        year => $yyyy, month => $mm, day => $dd,
                                        hour => $h, minute => $m
                                );
                                if ( @last ) {
                                        my ( $dt, $description, $link ) = @last;
                                        $t->add( days => 1 ) if $t < $dt;
                                        my $duration = $t - $dt;
                                        my $sec = $duration->hours * 60 * 60
                                                + $duration->minutes * 60
                                                + $duration->seconds;
warn "# $t $dt = $sec\n";
                                        printf "[ ] %4s %s %s %4d\t%s%s\n",
                                                $channel,
                                                $dt->ymd('-'), $dt->hms(':'), $sec,
                                                $description,
                                                $link ? "\t<$link>" : '' if $t > $now;
                                };
                                
                                @last = ( $t, $line, $link );
                        }
                }
        }
}

scrape "http://mojtv.hr/rss/rsschannel.ashx?id=$_" foreach ( 1,2,3,4 );
1	#!/usr/bin/perl
2
3	use warnings;
4	use strict;
5
6	use XML::FeedPP;
7	use DateTime;
8	use Data::Dump qw(dump);
9
10	my $now = DateTime->now;
11
12	sub scrape {
13	my $url = shift;
14	my $feed = XML::FeedPP->new( $url );
15	print "Title: ", $feed->title(), "\n";
16	print "Date: ", $feed->pubDate(), "\n";
17	foreach my $item ( $feed->get_item() ) {
18	my ( $channel, $date ) = split /\s-\s/, $item->title(), 2;
19	my ( $dd, $mm, $yyyy ) = split /\./, $date, 3;
20	my $program = $item->description();
21	$program =~ s{<div[^>]*>}{\n}gs;
22	$program =~ s{</div>}{\n}gs;
23	my @last;
24	foreach my $line ( split(/\n+/, $program) ) {
25	if ( $line =~ s{<strong>(\d+):(\d+)</strong>\s*}{} ) {
26	my ($h,$m) = ($1,$2);
27	my $link = $1 if $line =~ s{<a.+href="(.+?)">([^<]+)</a>}{$2};
28	my $t = DateTime->new(
29	year => $yyyy, month => $mm, day => $dd,
30	hour => $h, minute => $m
31	);
32	if ( @last ) {
33	my ( $dt, $description, $link ) = @last;
34	$t->add( days => 1 ) if $t < $dt;
35	my $duration = $t - $dt;
36	my $sec = $duration->hours * 60 * 60
37	+ $duration->minutes * 60
38	+ $duration->seconds;
39	warn "# $t $dt = $sec\n";
40	printf "[ ] %4s %s %s %4d\t%s%s\n",
41	$channel,
42	$dt->ymd('-'), $dt->hms(':'), $sec,
43	$description,
44	$link ? "\t<$link>" : '' if $t > $now;
45	};
46
47	@last = ( $t, $line, $link );
48	}
49	}
50	}
51	}
52
53	scrape "http://mojtv.hr/rss/rsschannel.ashx?id=$_" foreach ( 1,2,3,4 );