[date:20080302]の検索結果

＋ 

A 10億円超の美術品が楽天市場で売り切れ

－ 

A 10億円超の美術品が楽天市場で売り切れ

なんと税込み10億円超の高額商品が楽天市場で売り切れだそうです。http://www.rakuten.co.jp/sim444009/788533/716049/#678743税込み10億円超の美術品をネットで人ってどんな人でしょう？まあ、システム的には実際に...

なんと税込み10億円超の高額商品が楽天市場で売り切れだそうです。
http://www.rakuten.co.jp/sim444009/788533/716049/#678743

税込み10億円超の美術品をネットで人ってどんな人でしょう？

まあ、システム的には実際に売れていなくて売り切れにはできると思いますが・・・

[232] Posted by 名無しさん at 2008/03/02 22:50:20
5 point | Link (3) | Trackback (0) | Comment (2)

＋ 

A URLを元にページのタイトルを取得するPerlサンプルスクリプト

－ 

A URLを元にページのタイトルを取得するPerlサンプルスクリプト

URLから元ページのタイトルを取得するためのPerlのサンプルスクリプトです。処理手順は以下の通りです。1.ページURLを元にHTMLソースを取得する。2.タイトルタグで囲まれている文字列を抜き出す。対象のページがどん...

URLから元ページのタイトルを取得するためのPerlのサンプルスクリプトです。
処理手順は以下の通りです。

1.ページURLを元にHTMLソースを取得する。
2.タイトルタグで囲まれている文字列を抜き出す。

対象のページがどんな文字エンコードで記述されているか不明なので、文字エンコードの変換処理も行っています。

use LWP::Simple;

use Jcode;



#my $pageurl = "http://www.01club.org/59log/";

my $pageurl = "http://59bbs.org/";

my $content = get($pageurl);

my $title = '';

my $pattern = "<title>(.+)</title>";

if($content =~ m/$pattern/i) {

    $title = $1;

}



# 文字コードをSJISに変換

my ($code, $nmatch) = Jcode::getcode(\$title); 

$title = Jcode->new($title, $code)->sjis;

print "$title\n";

サンプルコードではタイトルだけ取得してますが、正規表現のパターンを変更することで、本文も取得なども行えるはずです。

[231] Posted by buzei at 2008/03/02 22:35:06
0 point | Link (1) | Trackback (0) | Comment (0)