開発言語などは問いませんが、出来るだけパフォーマンスのいい方を好みます。
一番下というのが、画面上の下ではなく HTML ソースで最後に出てくるという意味で解釈して良ければ、こんな感じの Perl スクリプトでできるかと思います。
use strict;
use warnings;
use LWP::Simple;
my $html = get('http://www.yahoo.co.jp/');
# 以下2行はどちらか片方を適宜残して削除してください
$html =~ /.*(<TABLE.*?>)/is; # 最後の TABLE (開始) タグを抽出する場合
$html =~ /.*(<TABLE.*?<\/TABLE>)/is; # 最後の TABLE 要素を抽出する場合
print $1;
実行のために LWP モジュールが必要です。(ActivePerl には同梱されていますが、素の Perl には付属していないので追加する必要があります)
また、ちゃんとした HTML の構文解析を行わない単純なパターンマッチですので、/* ~~ <TABLE>~</TABLE> ~~ */ というように、TABLE タグがコメントアウトされていた場合も誤検出してしまいます。
コメント(0件)