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	dpavlin	12	#!/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 );