日頃より楽天のサービスをご利用いただきましてありがとうございます。 サービスをご利用いただいておりますところ大変申し訳ございませんが、現在、緊急メンテナンスを行わせていただいております。 お客様には、緊急のメンテナンスにより、ご迷惑をおかけしており、誠に申し訳ございません。 メンテナンスが終了次第、サービスを復旧いたしますので、 今しばらくお待ちいただけますよう、お願い申し上げます。
日頃より楽天のサービスをご利用いただきましてありがとうございます。 サービスをご利用いただいておりますところ大変申し訳ございませんが、現在、緊急メンテナンスを行わせていただいております。 お客様には、緊急のメンテナンスにより、ご迷惑をおかけしており、誠に申し訳ございません。 メンテナンスが終了次第、サービスを復旧いたしますので、 今しばらくお待ちいただけますよう、お願い申し上げます。
PadreはPerl製のオープンソース・ソフトウェア。Javaの開発というとEclipseやNetBeanを使ったり、.NETであればVisualStudioを使うなどIDEを使うことでより手早く開発が行えるようになる言語がある。いわゆるスクリプト系のプログラミング言語ではあまりIDEを用いるという文化は浸透していないように思える。とは言えテキストエディタを素のままで使うかというとそんなことはなく、ハイライト表示すると開発しやすくなるだろう。 Perl開発に適したIDE もしあなたがPerlでシステム開発を行っているなら、Padreを使ってみよう。PadreはPerl専用のIDEで開発をやりやすくする工夫が盛り込まれているソフトウェアだ。ハイライト表示はもちろんのこと、コード補完やCPANライブラリのインストールもできるようになっている。 セッションの保存、コメントのトグル、文字コード変換
正規表現を使って１桁から５桁の数字で表されたコードの桁数を数える方法 数字で表されたコードがあるとします。 それぞれのコードは１桁から５桁の数字で表されており、 それぞれの桁数ごとにいくつあるかをカウントします。 たとえば、１桁のコードがいくつ、２桁のコードがいくつ、といったようにです。 ご参考のため、プログラムの全体をコピーします。 my %commg; my $sum=0; open(FILE, 'data.csv') or die "$!"; while (my $line=<FILE>) { chomp($line); my @comm=split(/,/,$line); unless ($comm[3]=~/[A-Za-z]/) { $commg{$comm[3]}=0;}} my @commnum=keys(%commg); foreach my $item (@commnum
Blog Post Featured post Sprinkle delicious dishes as a cook with gourmet cookware Continue reading Points to Note When Shopping for a Washing Machine There are different washing machines brands in New Zealand. When shopping, therefore, you need to ensure that first, you get a quality machine; a machine that will last through many years without breaking down. You check product warranties and review
ロリポップなどのレンタルサーバで使えるCPANモジュールをリストアップするスクリプト。 このスクリプトに適当な名前をつけて、使っているレンタルサーバにアップして、ブラウザからアクセスすれば、どのCPANモジュールがインストールされているかが一目で分かる。 #!/usr/bin/perl use strict; use CGI; use File::Find; my $q = CGI->new; our %modules; find( ¥&wanted, @INC ); my @modules = sort( keys %modules ); &show(¥@modules); # 画面表示 sub show { my $modules = shift; my $title = 'CPAN modules that you can use in this server'; print $q-
1: #!/usr/bin/perl 2: 3: use LWP::Simple; 4: 5: use constant IDMIN => 1000; 6: use constant IDMAX => 10000; 7: use constant URL => "http://quote.yahoo.co.jp"; 8: 9: print "[ ID ] "; 10: print "銘柄 "; 11: print "取引値 "; 12: print " 前日比 "; 13: print "前日終値 "; 14: print " 出来高 "; 15: print " 時価総額(x百万) "; 16: print " 始値 "; 17: print " 高値 "; 18: print " 安値 "; 19: #print "売気配 "; 20: #print "買気配 "; 21: #p
かなーり今更感がありますが。 モジュール自体は、大分前にウェブにあったスクリプトをコピペして使ったときにインストール済みでしたが、なんとなく難しそうで敬遠していたところもありました。 が、やってみると簡単かつパワフルなモジュールであることがわかりました。 参考：use Web::Scraper; - 今日のCPANモジュール XPathがなかなかわからないのですが、CSSセレクタでもいけるのが超絶簡単です。 例えば、aタグのhref属性を取得する場合のprocessは以下のとおり。 process 'a', 'urls[]' => '@href'; で、この場合だと、href属性がないaタグも対象になってしまうので、未定義（undef）が入る場合があります。 なので、href属性があるものだけを対象としたのが以下のprocessです。 process 'a[href]', 'url
もう一個 CSS セレクタでの練習をしときたいなどと，平和なことを考えておりましたから，CD のウィークリーランキングを抜き出すなどをしてみた! Oricon さんのを抜き出してみたんですけども，一位の扱いが他の順位の曲と違うのでアレな感じですね!!! あと，なぜか英語が全角文字なのが気持ち悪かったので，そのへんは半角に変換する． #!/usr/bin/perl use strict; use warnings; use utf8; use URI; use Web::Scraper; binmode( STDOUT, ':utf8' ); my $uri = URI->new( "http://www.oricon.co.jp/rank/js/w/" ); # retrieve weekly ranking my $s = scraper { process 'table[class="
2009年08月05日 Perlでスクレイピング(Web::Scraperモジュール) スクレイピングとは？ 以前業務で、既存のWebページから、テーブルの値だけを抜き出して処理する、 というスクリプトを作成したことがあるのですが、必要な値だけを抜き出すというのが難しくて、かなり苦労しました。 当時は知らなかったのですが、、 ウェブサイトのデータを必要な部分だけ抽出して利用することを、スクレイピングといい, スクレイピングの技術を利用すれば、Web API やRSSが公開されていないウェブサイトからも, htmlデータから必要な部分だけ抽出して利用することが出来ます。 Perl でスクレイピングを行うには、Web::Scraper モジュールを利用すると、とても簡単です。 自力での苦労を思うと、本当に感動するほど簡潔、簡単でした！ とりあえずCPANのマニュアル
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く