perl html パース hPod: use HTML::TreeBuilder
Excite ブログから Seesaa ブログへの移行：その２ 次に、 Excite ブログのドキュメント構造を調べる。ドキュメント構造なんて言うと小難しいことをやりそうだけれど、単に HTML を、目で、パースしてみたにすぎない。この HTML から、各要素を抜き出して、 Seesaa ブログの（エクスポートしたデータの）書式に合わせて整えればよいのだけれど、 Excite ブログのそれは、ちょっと酷い内容。あまり長く眺めていると、気絶しそう。 一見、たくさんのスタイルの指定がしてあるので、データもそれなりに括られているのかと思われど、要素としては意識されておらず、 HTML デザインの延長として（だけに）スタイルを作っているように思われる。でも、ほかに手がかりもないのでそれを頼りにするしかない。 DIV タグと、その要素 class の値。でもそれらを取り出せば、記事の構成要素を抽出し
SoftAMIS - High quality Web and Java development offshore outsourcing services from Ukraine!
'; return html; } function writeContent() { var html = writeContent1(); html += writeContent2(); html += writeContent3(); html += writeContent4(); html += writeContent5(); var element = getElement("contentDiv"); if (element) { element.innerHTML = html; if (navigator.userAgent.indexOf("Safari") >= 0) element.style.display = "block"; } writeMenuHtml("menuContent"); writeBottomNavigationItemsHTML("bo
配列の差分
[Perl] => [配列] 二つの配列の差分を調べるには以下のようにします。 [コード] #!/usr/bin/perl @one = qw(a a a a b c d e f g); @two = qw(b c e h i i i i j); my %tracker = (); $tracker{$_} .= 1 for @one; $tracker{$_} .= 2 for @two; for (sort keys %tracker) { if ($tracker{$_} !~ /1/) { print "$_ has been added\n"; } elsif ($tracker{$_} !~ /2/) { print "$_ has been deleted\n"; } else { print "$_ is in both old and new\n"; } } [実行例]
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
http://www.saitaniya.com/perl/perl04.html
