- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
#!/usr/bin/perl -w
use strict;
use warnings;
use diagnostics;
use LWP::Simple;
binmode(STDOUT, ":utf8");
my $url = 'http://govnokod.ru/comments';
my $document = get $url; die "Couldn't get $url" unless defined $document;
$document =~ s/\n/ /g;
$document =~ s/\h+/ /g;
my @arr = ( $document =~ m/(?<=\<strong class="entry-author">)(.*?)(?<=\<a class="answer")/gi );
my $str;
my @sink;
foreach my $val (@arr) {
$val =~ m/(?<=\>)(.*?)(?=\<\/a\>)/i;
$str = "Author: ".$1;
$val =~ m/(?<=published" title\=")(.*?)(?=")/i;
( my $dt, my $tm ) = split('T', $1);
$str = $str . "\nDate: " . $dt;
$str = $str . "\nTime: " . $tm;
$val =~ m/(?<=\<\/abbr\> \<a href\=")(.*?)(?=" name\=)/i;
$str = $str."\nLink: ". $1;
$val =~ m/(?<=\<div class\="entry-comment">)(.*?)(?=\<\/div\>)/i;
$str = $str . "\nComment: " . str_formater($1);
push(@sink, $str);
}
@sink = reverse (@sink);
foreach my $v (@sink) {
print ("\n".("+" x 81)."\n"."$v\n");
}
print ("\n".("+" x 81)."\n\n");
sub str_formater {
my $str = $_[0];
my $res="";
my $cmt_len = 69;
my $cmt_indent = 11;
while (1) {
if (length($str)<=$cmt_len) {
return $res . $str;
}
$res = $res . substr($str,0, $cmt_len) . "\n" . (" " x $cmt_indent);
$str = substr($str, $cmt_len);
}
return $res;
}
exit 0;
bormand 06.08.2012 18:23 # 0
sayidandrtfm 06.08.2012 18:28 # 0
roman-kashitsyn 06.08.2012 18:30 # +2
bormand 06.08.2012 18:30 # 0
sayidandrtfm 06.08.2012 18:36 # 0
inkanus-gray 15.11.2012 21:19 # +1
govnotify.ch available
govnotify.li available
govnotify.lt available
govnotify.lv available
govnotify.pl available
govnotify.com.pl available
govnotify.net.pl available
govnotify.org.pl available
govnotify.to available
govnotify.co.uk available
govnotify.biz available
govnotify.com registered
govnotify.net available
govnotify.info available
govnotify.org registered
bormand 15.11.2012 21:30 # 0
Зарегать и разместить там RSS на сток?
Govnocoder#0xFF 15.11.2012 21:12 # 0
inkanus-gray 15.11.2012 21:15 # −1
Govnocoder#0xFF 15.11.2012 21:20 # 0
inkanus-gray 15.11.2012 21:21 # 0
Govnocoder#0xFF 15.11.2012 21:24 # +1
> Кликнуть любой дурак сможет.
- Эй ты чё, иди-ка сюда.
- А? Чего?
- Сиги есть шоль?
- Нету.
- Чё, спортсмен? А если найду? Гы-гы-г
LispGovno 16.11.2012 01:42 # 0
roskomgovno 14.06.2018 00:31 # 0
bormand 15.11.2012 21:32 # +4
Пользователю bormand, согласно пункту 5.6 правил вынесено предупреждение за обсуждение действий модератора.
Govnocoder#0xFF 15.11.2012 21:34 # 0
inkanus-gray 15.11.2012 21:36 # 0
Govnocoder#0xFF 15.11.2012 21:49 # +3