Телепрограмма в коньках

[00:07:27][aitap@Tarkus ~]> perl -MLWP::Simple -e '$text = get("http://2x2tv.ru/program"); $text =~ s/.*efirinner240_//s; @data = (split /<td class=/s,$text)[1..3]; for (@data) { ($time = $_) =~ s/.*>([0-9]+:[0-9]+)<.*/\1/s; ($title = $_) =~ s/.*<td style="text-align: right;">(.*)<\/td>.*/\1/s; $title =~ s/<[^>]*>//gs; $time =~ s/^\s*//s; $time =~ s/\s*$//s; $title =~ s/^\s*//s; $title =~ s/\s*$//s; print "$time -- $title\n";}' 2>/dev/null
23:40 -- Мужские истории 1№2
00:10 -- Большая игра Покер Старз-2 №33
01:10 -- 1:05 Летучие конкорды 1№6
[00:07:30][aitap@Tarkus ~]>

${execi период_в_секундах perl -MLWP::Simple -e '$text = get("http://2x2tv.ru/program"); $text =~ s/.*efirinner240_//s; @data = (split /<td class=/s,$text)[1..3]; for (@data) { ($time = $_) =~ s/.*>([0-9]+:[0-9]+)<.*/\1/s; ($title = $_) =~ s/.*<td style="text-align: right;">(.*)<\/td>.*/\1/s; $title =~ s/<[^>]*>//gs; $time =~ s/^\s*//s; $time =~ s/\s*$//s; $title =~ s/^\s*//s; $title =~ s/\s*$//s; print "$time -- $title\n";}'

#!/usr/bin/perl
use LWP::Simple;
$text = get("http://2x2tv.ru/program"); $text =~ s/.*efirinner240_//s; @data = (split /<td class=/s,$text)[1..3]; for (@data) { ($time = $_) =~ s/.*>([0-9]+:[0-9]+)<.*/\1/s; ($title = $_) =~ s/.*<td style="text-align: right;">(.*)<\/td>.*/\1/s; $title =~ s/<[^>]*>//gs; $time =~ s/^\s*//s; $time =~ s/\s*$//s; $title =~ s/^\s*//s; $title =~ s/\s*$//s; print "$time -- $title\n";

user@desktop:~/documents$ perl program.pl
Can't locate LWP/Simple.pm in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.10.1 /usr/local/share/perl/5.10.1 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.10 /usr/share/perl/5.10 /usr/local/lib/site_perl .) at program.pl line 2.
BEGIN failed--compilation aborted at program.pl line 2.

 $ wget http://2x2tv.ru/program -O /tmp/2x2 2> /dev/null; perl 2x2.perl
01:10 -- 1:05 Летучие конкорды 1№6 
01:45 -- Мультреалити 3№14
02:10 -- Улетный Trip 2№8
artem@mgentoo ~/tmp $ cat 2x2.perl 
#!/usr/bin/perl
open(DATA, "/tmp/2x2");
$a = "";
while(<DATA>) {
$a = "$a$_";
}
close(DATA);

while ($a =~ /<tr>\s*<td class=\".*?\" height=\"25\"><strong>(\d{2}:\d{2})<\/strong><\/td>\s*<td style=\"text-align: right;\">(<strong>|\s*<a.*?>)\s*(.*?)<\/(strong|a)>\s*<\/td>\s*<\/tr>/mig)
{
print "$1 -- $3\n";
}

Wide character in print at program.pl line 6.
01:45 -- "efirredlight" height="25">01:45
                
                                            Мультреалити 3№14
Wide character in print at program.pl line 6.
02:10 -- "efirreddark" height="25">02:10
                        
                                                            Улетный Trip 2№8
Wide character in print at program.pl line 6.
02:35 -- "efirreddark" height="25">02:35
                        
                                                            Южный парк 10№13
                                                    
                    
                                
        
        
                     
    460 чел.



    
    
460 чел.

    
           
           
            В женском интернет-магазине косметика Holy Land - эффективный крем

artem@mgentoo ~/tmp $ wget http://2x2tv.ru/program -O /tmp/2x2 2> /dev/null; perl 2x2.perl 2> /dev/null
02:10 -- Улетный Trip 2№8
02:35 -- Южный парк 10№13
03:05 -- Джек - на все руки мастер №25
artem@mgentoo ~/tmp $ cat 2x2.perl 
#!/usr/bin/perl
open(DATA, "/tmp/2x2");
$a = "";
while(<DATA>) {
    $a = "$a$_";
}
close(DATA);

while ($a =~ /<tr>\s*<td class=\".*?\" height=\"25\"><strong>(\d{2}:\d{2})<\/strong><\/td>\s*<td style=\"text-align: right;\">\s*(|<strong>)\s*(|<a.*?>)\s*(|<strong>)\s*([^<>]*)\s*(|<\/strong>)\s*(|<\/a>)\s*(|<\/strong>)\s*<\/td>\s*<\/tr>/mig)
{
        print "$1 -- $5\n";
}

#!/bin/bash
#
PAGE=`curl -s http://2x2tv.ru/program`
TOP=`echo $PAGE | sgrep '"<div class=\"efirinner240top\">".."</div>"' | w3m -dump -T "text/html"`
BOTTOM=`echo $PAGE | sgrep '"<div class=\"efirinner240bottom\">".."</div>"' | w3m -dump -T "text/html"`
printf "$TOP\n"
printf "$BOTTOM\n"
#

Backslash at end of string
Parse error in command line expression column 15 :
	Unknown word
"<div class=\"efirinner240top\">".."</div>"
              ^
No query to evaluate. Bailing out.
Backslash at end of string
Parse error in command line expression column 15 :
	Unknown word
"<div class=\"efirinner240bottom\">".."</div>"
              ^
No query to evaluate. Bailing out.

$ ./2x2_my.sh
14:05 Фантастические дни №1
14:35 Фантастические дни №2
15:05 Фриказоид 2№11

$ curl -s http://2x2tv.ru/program | sgrep '"<div class=\"efirinner240top\">".."</div>"' 
<div class="efirinner240top"><table>
            <tr>
                <td class="efirredlight" height="25"><strong>14:05</strong></td>
                <td style="text-align: right;"><strong>
                                            Фантастические дни №1                                    </strong></td>
            </tr>
        </table></div>

$ curl -s http://2x2tv.ru/program | sgrep '"<div class=\"efirinner240bottom\">".."</div>"' 
<div class="efirinner240bottom"><table>
        
                                    <tr>
                        <td class="efirreddark" height="25"><strong>14:35</strong></td>
                        <td style="text-align: right;">
                                                            Фантастические дни №2                                                    </td>
                    </tr>
                                    <tr>
                        <td class="efirreddark" height="25"><strong>15:05</strong></td>
                        <td style="text-align: right;">
                                                            <a href="/serial/freakazoid" class="telecast" >Фриказоид 2№11</a>
                                                    </td>
                    </tr>
                                
        </table></div>