2011-10-01から1ヶ月間の記事一覧

perl共有メモリ

perl共有メモリ (Obsolete) Parallel::ForkManager + IPC::Shareable で複数のプロセスで変数を共有する - Yet Another Hackadelic

perlの複数項目ソート

初めてのPerl 第6版作者: Randal L. Schwartz,brian d foy,Tom Phoenix,近藤嘉雪出版社/メーカー: オライリージャパン発売日: 2012/07/25メディア: 大型本購入: 7人 クリック: 22回この商品を含むブログ (17件) を見る perlの複数項目ソートのサンプル #test…

処理時間

perlスクリプトの処理時間 use Time::HiRes; my $start_time = Time::HiRes::time; ##################### # 処理 ##################### #処理時間を表示 printf("%0.3f",Time::HiRes::time - $start_time);

ウェブページ取得と解析

perlによるウェブページ取得と解析 #!/usr/bin/perl use strict; use warnings; use LWP::UserAgent; use HTML::TreeBuilder; print("---------------------------------------- script start\n"); #ページ取得 my $url = "http://www.yahoo.co.jp"; my $ua …

ウェブページの取得

perlウェブページの取得 use strict; use warnings; use LWP::UserAgent; my $url = "http://www.yahoo.co.jp"; my $ua = LWP::UserAgent->new; $ua->agent('Mozilla'); my $res = $ua->get($url); my $content = $res->content; print($content."\n");

perlによるhtmlの解析

初めてのPerl 第6版作者: Randal L. Schwartz,brian d foy,Tom Phoenix,近藤嘉雪出版社/メーカー: オライリージャパン発売日: 2012/07/25メディア: 大型本購入: 7人 クリック: 22回この商品を含むブログ (17件) を見る perlによるhtmlの解析サンプルコード u…

スレッド間共有変数

perlスレッド間共有変数 use strict; use warnings; use threads; use threads::shared; use Time::HiRes; #文字コード use utf8; binmode STDIN, ":utf8"; binmode STDOUT, ":utf8"; #-------------------------------------------------------------------…

perl並列処理

threads use strict; use warnings; use threads; my $thr1 = threads->create(\&sub1,"yasai","kudamono"); my $thr2 = threads->create(\&sub1,"daikon","apple"); my @ReturnData1 = $thr1->join(); my @ReturnData2 = $thr2->join(); print("thread 1 re…