- 1
- 2
- 3
- 4
- 5
- 6
my (@data) = $content =~ m#href="/show/\d+.*?">(.*?)</a>.*?(Ep: \d+).*?(at \d{2}:\d{2}).*?</small>#gsi;
for (my $i; $i < @data;){
$data .= $data [$i++].' '.$data [$i++].' '.$data [$i++];
$data .= "\n" unless $i == @data;
}
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
−122
my (@data) = $content =~ m#href="/show/\d+.*?">(.*?)</a>.*?(Ep: \d+).*?(at \d{2}:\d{2}).*?</small>#gsi;
for (my $i; $i < @data;){
$data .= $data [$i++].' '.$data [$i++].' '.$data [$i++];
$data .= "\n" unless $i == @data;
}
Распарсил.
guest 21.05.2012 23:34 # 0
guest 21.05.2012 23:36 # 0
http://www.linux.org.ru/forum/development/7775969?cid=7779251
santa_microbe 22.05.2012 08:46 # 0
VictorVonSpok 22.05.2012 09:59 # 0
santa_microbe 22.05.2012 11:48 # 0
Так лучше ?
Правда лишний \n будет в конце, но я думаю это не критично.
guest 22.05.2012 16:21 # 0
roman-kashitsyn 22.05.2012 17:04 # 0
guest 22.05.2012 18:51 # +2
bormand 22.05.2012 18:54 # 0
guest 22.05.2012 19:41 # 0
TarasB 22.05.2012 19:55 # +5
code -> epmty | character+code