HTML :: TreebuilderでHTMLコンテンツを並べ替える方法

Question

HTMLコンテンツを再配置するためのスクリプトを作成していますが、2つの問題が残っています。私はこのHTML構造を持っています。これはムービータイトルで、サムネイルが5列にグループ化されたリリース年です。私は、2011年から1911年までの数十年単位でグループ分けされたムービーで新しいhtmlファイルを生成したいと考えています。現在 - 2011年。 2010-2001; 2000-1991;など

<table> 
    <tr> 
     <td class="basic" valign="top"> 
     <a href="details/267226.html" title="" id="thumbimage"> 
      <img src="images/267226f.jpg"/> 
     </a> 
     <br/>Cowboys &amp; Aliens &#160;(2011) 
</td> 
     <td class="basic" valign="top"> 
     <a href="details/267185.html" title="" id="thumbimage"> 
      <img src="images/267185f.jpg"/> 
     </a> 
     <br/>The Hangover Part II &#160;(2011) 
</td> 
     <td class="basic" valign="top"> 
     <a href="details/267138.html" title="" id="thumbimage"> 
      <img src="images/267138f.jpg"/> 
     </a> 
     <br/>Friends With Benefits &#160;(2011) 
</td> 
     <td class="basic" valign="top"> 
     <a href="details/266870.html" title="" id="thumbimage"> 
      <img src="images/266870f.jpg"/> 
     </a> 
     <br/>Beauty And The Beast &#160;(1991) 
</td> 
     <td class="basic" valign="top"> 
     <a href="details/266846.html" title="" id="thumbimage"> 
      <img src="images/266846f.jpg"/> 
     </a> 
     <br/>The Fox And The Hound &#160;(1981) 
</td> 
    </tr> 


...... 

</table> 

私が解決する方法見当がつかない一つの問題は、十年と一致しない動画を削除した後、私は空の「TR」タグとサムネイルの位置で左だし、もう一度再配置する方法がわからないということです5列のすべての行に5つのタイトルがあります。また、スクリプトの1回の呼び出しで各10年を処理する方法もあります。ありがとう。

use autodie; 
use strict; 
use warnings; 
use File::Slurp; 
use HTML::TreeBuilder;  

my $tree = HTML::TreeBuilder->new_from_file('test.html'); 

for my $h ($tree->look_down(class => 'basic')) { 

    edit_links($h);  

    my ($year) = ($h->as_text =~ /.*?\((\d+)\).*/); 
    if ($year > 2010 or $year < 2001) { 
     $h->detach; 
     write_file("decades/2010-2001.html", \$tree->as_HTML('<>&',' ',{}), "\n"); 
    } 
}  

sub edit_links { 
    my $h = shift; 

    for my $link ($h->find_by_tag_name('a')) { 
     my $href = '../'.$link->attr('href'); 
     $link->attr('href', $href); 
    } 

    for my $link ($h->find_by_tag_name('img')) { 
     my $src = '../'.$link->attr('src'); 
     $link->attr('src', $src); 
    } 
} 

Answer 1

以下のアプローチは、あなたが問題としていることを行う必要があります。 HTMLファイルの処理中に、%decadeというハッシュが設定され、各キーは10年の終わりになり、適切なセルの値arrayrefが設定されます。

2番目のループは、ハッシュを走査し、各5セルを囲む<tr>タグの各ファイルを出力します。

use strict; 
use HTML::TreeBuilder; 
use File::Slurp; 
use List::MoreUtils qw(part); 

my $tree = HTML::TreeBuilder->new_from_file('test.html'); 

my %decade =(); 

for my $h ($tree->look_down(class => 'basic')) { 

    edit_links($h); 

    my ($year) = ($h->as_text =~ /.*?\((\d+)\).*/); 
    my $dec = (int($year/10) + 1) * 10; 

    $decade{$dec} ||= []; 
    push @{$decade{$dec}}, $h; 
} 

for my $dec (sort { $b <=> $a } keys %decade) { 
    my $filename = "decades/" . $dec . "-" . ($dec - 9) . ".html"; 

    my $idx = 0; 
    my @items = map { $_->as_HTML('<>&',' ',{}) } @{ $decade{$dec} }; 
    my $contents = join('', 
     '<table>', 
     (map { "<tr>@$_</tr>" } part { int($idx++/5) } @items), 
     '</table>'); 

    write_file($filename, $contents); 
} 

...