＜紙＞さんＬＯＧ

「パソコンヲタクの雑記帳」
　ＰＣ／Linux系／物理・化学で遊んでいます。
思いついたことを綴っています。

Perl で Web アクセス３

2009年07月30日 | ＰＣクリニック
ご訪問ありがとうございます。　　昨日までの状況は右下の「アクセス状況」にあります。


「Perl で Web アクセス２」では、「LWP::Simple」でした。
一般のページを読むには十分ですネ。


小回りを利かせられるように、「LWP::UserAgent」を勉強しました？？？

「LWP::UserAgent」だと、「ログイン」処理を行うことができるので、
「LWP::Simple」ではアクセスできない、「あし＠」の自分のマイページにアクセス出来て、
「ＭＹブログの足跡」なども読み込めます。
（以前ダメだったページも処理できる！）


例えば、
ＭＹブログの足跡(足跡履歴)の先頭ページをプリント するなら、
下記の１３行のプログラムで出来ました。（内３行は無くても結果は同じでしたが・・・）

－－－－－－－－ foot_print.pl －－－－－－－－－－－－－－
use LWP::UserAgent;
use HTTP::Cookies;
$ua = LWP::UserAgent->new;
$ua->cookie_jar(HTTP::Cookies->new(file => "lwpcookies.txt", autosave => 1));
$req = HTTP::Request->new(GET => 'http://www.ashia.to/login/');
$req = HTTP::Request->new(POST => 'http://www.ashia.to/login/login/');
$req->content_type('application/x-www-form-urlencoded');
$req->content('－－－－－－－－－');
$ua->request($req);
$req = HTTP::Request->new(GET => 'http://www.ashia.to/member/');
$ua->request($req)->as_string;
$req = HTTP::Request->new(GET => 'http://www.ashia.to/foot/site');
print $ua->request($req)->as_string;
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
（蛇足：「－－－－－－－－－」は自分のログイン情報です。）

これで、どんな(？)ページでも読める？？？

ますます、「Perl」が好きになりました。

と云うことで、何かの参考になりましたら、幸いです。　　



見ていただきありがとうございました。
お帰りに投票して頂けると嬉しいです。 ⇒ 日記@BlogRanking（「６０代～」と「茨城」）

人気BlogRanking　⇒　（「インターネット・・・・・」＞「ウェブログ」）

P-NETBANKING　⇒　（「パソコン・・・・・」と「茨城」）

LAPACK インストール

2009年07月28日 | Linux系
ご訪問ありがとうございます。　　昨日までの状況は右下の「アクセス状況」にあります。


andLinuxが本格的に使えるようになったので、
Cygwinでインストールした LAPACK をインストールしてみました。

「CP2Kのインストール」にある、
「Lapackをインストールし、lapack**.a、blas**.aを作る。」
という手順そのままで出来ました。


ホスト側で、「E:￥CoFS￥」に、
本体の「lapack-3.1.1.tgz」と、テスト用プログラム「sample.f」を格納しておく。

andLinux「Terminal」を立ち上げて、インストールする。
（立上時は、/home/kami になっており、そこに /windows ディレクトリがある）

１．「tar」で展開する。
　　cp /windows/lapack-3.1.1.tgz lapack-3.1.1.tgz
　　tar xvzf lapack-3.1.1.tgz

２．「make.inc」を作る。
　　cd lapack-3.1.1
　　cp make.inc.example make.inc

３．「make.inc」を、以下のように変更する。
　　その通り変更。
　　FORTRAN = g95
　　OPTS = -O2
　　DRVOPTS = $(OPTS)
　　NOOPT =
　　LOADER = g95
　　LOADOPTS =

４．「make blaslib」でBlasを生成し、
　　その後「make lapacklib」でLapackを生成する。
　　その通り実行。
　　make blaslib
　　・・・・・・・約１分間
　　make lapacklib
　　・・・・・・・約６分間

５．「su」で、これらのファイルを格納する。
　　su
　　cp blas_LINUX.a /usr/local/lib/blas.a
　　cp lapack_LINUX.a /usr/local/lib/lapack.a


以上ですネ。
それで、実行確認のテストを実施しました。




ＯＫですネ。

と云うことで、何かの参考になりましたでしょうか？　　　



見ていただきありがとうございました。
お帰りに投票して頂けると嬉しいです。 ⇒ 日記@BlogRanking（「６０代～」と「茨城」）

人気BlogRanking　⇒　（「インターネット・・・・・」＞「ウェブログ」）

P-NETBANKING　⇒　（「パソコン・・・・・」と「茨城」）

１年１ヶ月と１日

2009年07月26日 | Weblog
ご訪問ありがとうございます。　　昨日までの状況は右下の「アクセス状況」にあります。



「１st Anniversary」から１ヶ月と１日が経過しました。

これが、２７４件目の記事です。

と云うことで、定例(？)の 最近の状況についてまとめます。



＜閲覧履歴機能＞

１．「gooあしあと」

「友達」は、今８名です。(先月より１名減：ブログの整理)
(これでも、多いかも？)
１６人の方に「注目」されています。(先月より１名増)

「あしあと会員」分
日当たりのアクセス(ＰＶ)数：１３９(先月より１減)。
日当たりの訪問者(ＩＰ)数　：１３６(先月より１増)。

「あしあとランキング」では、ほぼ変わらず、２１位前後？


２．「あし＠」

「あし＠」会員アクセス数：１５５ＰＶ／日(先月より４７減)。
　　　　　　　　　ユーザ数：１１６ＵＵ／日(先月より２２減)。
毎月減少しています！？
（一括スルー指定を活用しているお陰(？)でしょうか？）


「あしとも」は、今７名です。(先月と同数：ブログの整理)
(これでも、多いかも？)
「読者」には、１０２名載っています。(先月より３名減 で７名増)
最近、変動が落ち着いて来ました。

「アクセスランキング」
　　カテゴリー「パソコン」、308件中１位をキープです。
　　総数は 77,159 件で、１１８位になりました。(少し上がった！)
「読者ランキング」
　　カテゴリー「パソコン」、231件中１位をキープです。
　　総数は 46,481 件で、１６２位になりました。(少し上がった！)


＜「gooブログ」標準アクセス＞

日当たりアクセス数：８２７ＰＶ(先月より７２減)。
　　　ＩＰベースでは、４３１ＩＰ(先月より１５減)。
残念、今月は減少に転じました。頭打ちでしょうか？？？

ランキングでは、今月520IP＝1067位、522IP＝1068位もありましたが、
いまでは、1500～1600位あたりです。


ＩＰベースの内訳で見ると、
gooアクセス(４３１)＝gooあしあと(１３６)＋あし＠(１１６)＋一般(１７９)
と云う状況でしょうか。(「gooあしあと」と「あし＠」に重複がありますが・・・)

因みに
６月は、４４６＝１３５＋１３８＋１７３
５月は、４３２＝１２７＋１５９＋１４６
４月は、３７２＝１０９＋１９６＋　６７

と云うことは、
合計・・・・・・・反転・減少
gooあしあと・・・足踏み
あし＠・・・・・・減少傾向
一般・・・・・・・増加(？)傾向
でしょうか？？？
と云うことで、これからも頑張り(？)ます。　　



見ていただきありがとうございました。
お帰りに投票して頂けると嬉しいです。 ⇒ 日記@BlogRanking（「６０代～」と「茨城」）

人気BlogRanking　⇒　（「インターネット・・・・・」＞「ウェブログ」）

P-NETBANKING　⇒　（「パソコン・・・・・」と「茨城」）

あし＠：スルー機能

2009年07月25日 | Weblog
ご訪問ありがとうございます。　　昨日までの状況は右下の「アクセス状況」にあります。


あしとも「cyah」さんの記事を参照しま～す。


以前、「“友達”・“あしとも”について２」で、
「藪から棒」の「あしとも申請」について書きましたが、
「スルー」しませう！ じゃないですか。

「藪から棒」の「あしとも申請」については、
＜紙＞は、速攻「スルーリストに追加する」をクリックです。
(相手の記事を見なくても、プロフィールを見れば分かりますよネ。)
当然こちらも(此まで見ていたとしても)見に行きません。

実は、「スルー」しませう！ を見た日にも、
２週間振りの「申請」(？)がありました！・・・・・言わずもがなです。


また、「ユーザーメニュー」の「プロフィール編集」にある、
「一括スルー指定」を活用しましょう。

「○ 人以上からスルーされている人をスルー」については、
＜紙＞は １０ に(下げて)います。
「cyah」さんが書いていますが、デフォルトでは１００人になっています。
でも、引き下げてもいいのでは？
(１にするとか？　＜紙＞は小さい人間なので、１０ですが・・・・・)

あし＠会員のみなさん、
気に障る書き込みが合った場合は「スルー機能」を活用しませんか。

もっとも、「PV/UU 欲しさにスルー設定できない・・・」気はしますが、・・・・・
＜紙＞も本音ではそうです・・・・・が、しかし、
そんな PV/UU は長続きしないでしょうネ？

と云うことでした。　お粗末。　　　



見ていただきありがとうございました。
お帰りに投票して頂けると嬉しいです。 ⇒ 日記@BlogRanking（「６０代～」と「茨城」）

人気BlogRanking　⇒　（「インターネット・・・・・」＞「ウェブログ」）

P-NETBANKING　⇒　（「パソコン・・・・・」と「茨城」）

Perl で Web アクセス２

2009年07月24日 | ＰＣクリニック
ご訪問ありがとうございます。　　昨日までの状況は右下の「アクセス状況」にあります。


「Perl で Web アクセス」では、「socket」を使ってHTTPクライアントを作る方法でした。
これでも、１０行以下で作れます。

ところが、もっと簡単な方法があったんですね。

「Perl - LWP」では、
ＬＷＰとは、
　　libwww-perl。Perl 用の WWW ライブラリモジュール群。
とありました。
もう少し詳しい説明は、[ThinkIT] 第1回：Web APIの紹介(1/2)にありました。

ＬＷＰは、「socket」に比べれば各段に楽ですが、
なかでも、「LWP::Simple」は、
　　その名の通り、シンプルな LWP のインターフェイス。
とあって、
「get($url)」、「getprint($url)」、「getstore($url, $file)」 などが使える！

これだと、
「socket」では１０行近く必要だった処理が、
－－－－－－－－ jn1inl_print.pl －－－－－－－－－－－－－－
use LWP::Simple;
getprint("http://blog.goo.ne.jp/jn1inl/");
－－－－－－－－－－－－－－－－－－－－－－－－－－－－
上の、たった２行だけのプログラム「jn1inl_print.pl」で、
今見ている、「＜紙＞さんＬＯＧ」をGETして表示できますね。
（ただし、日本語の表示はおかしいですが・・・）

ファイルに取り込むなら、
－－－－－－－－ jn1inl_file.pl　－－－－－－－－－－－－－－
use LWP::Simple;
getstore("http://blog.goo.ne.jp/jn1inl/","jn1inl.html");
－－－－－－－－－－－－－－－－－－－－－－－－－－－－
とすればＯＫ。ファイルを開くと日本語もきちんと表示される。

さらに、「LWP::UserAgent」だと、
　　単純なアクセスを行う場合は LWP::Simple でいいのかも知れないけれど、
　　ヘッダを解析したり POST を使いたい場合は LWP::Simple では力不足。
　　それで、やっぱり LWP::UserAgent やらを使うということになる。
とあります。


この「ＬＷＰ」を使うと、socket ではダメだった、「あし＠」のページも読み込めました。

ただし、メニューの上の段のものしかダメで、下の段は「ゲスト」扱いでした。
（「ログイン」の処理が必要？！？）

「socket」を使うんだったら、＜紙＞のレベルでは「LWP::Simple」で十分です。

でも、少し「LWP」を勉強して、「ログイン処理」なんかもできるようになりたい！

と云うことで、何かの参考になりましたら、幸いです。　　



見ていただきありがとうございました。
お帰りに投票して頂けると嬉しいです。 ⇒ 日記@BlogRanking（「６０代～」と「茨城」）

人気BlogRanking　⇒　（「インターネット・・・・・」＞「ウェブログ」）

P-NETBANKING　⇒　（「パソコン・・・・・」と「茨城」）