WEBのデータをPerlで読み込むには？ LWP::Simpleモジュールが手軽です。 use LWP::Simple; my $url = 'http://allabout.co.jp/rss/all/index.rdf'; my $data_from_web = get($url); LWP::Simpleモジュールによって使えるようになる命令は、以下のとおりです。
公開中のHTMLファイルがごっそり消失！？：星野君のWebアプリほのぼの改造計画（7）（2/3 ページ） うっかりログインしてしまうと、犯行の痕跡が消える！？ 安直に元に戻すのも気が引けたのだが、ただ単にデータが消えてしまっただけなのか、何か不正なアクセスを受けて故意に消されてしまったのかがいまの段階では分からないので、「原状復帰優先！」といわれても特に反論はできなかった。本来であればネットワークから切り離して時間をかけて解析をしたいところだ。 そんなやりとりを隣の席で聞いていた赤坂さんが、星野君に話し掛けてきた。 赤坂さん 「なんかあったの？ファイルが消えたとか聞こえたけど」 星野君 「Webサーバ内のファイルがいつの間にかごっそり消えちゃったんですよ。特にファイルが消えるような作業はしてないんですけどねー」 赤坂さん 「なんか面白そう♪それ、私も手伝っていい？」 星野君 「あ、もちろん
2006年05月28日07:30 カテゴリLightweight Languages perl - Taint Mode 手前味噌ではありますが、taint modeまできちんと紹介した上に、サンプルコードに全部-Tをつけてあるのは、日本語のものでは拙著だけかもしれません。 達人に学ぶPerl/CGI道場 小飼 弾 [を] Perl の -T スイッチ「掟」だそうです！！！Amazonマーケットプレイスではプレミアが付いちゃってますが、今見てもそんなに内容は古くなってないようにも思えます。 他にも事例があれば紹介を。 おぼろげな記憶ですが、O'ReilleyのCGI本は-T付きだったように思います。 ついでに、添削。 [を] Perl の -T スイッチ 回避するには掃除が必要。例えば5行目を以下のようにするとOK。 5 if ($fn =~ /^([a-z0-9]+)$/i) {$fn
Perl のアクセサモジュールとしては、Class::Accessor::Fast が人気すね。 # これは例 package Hoge; use base 'Class::Accessor::Fast'; __PACKAGE__->mk_accessors(qw( req )); sub new { my $class = shift; bless { url => 'http://e8y.net/', req => HTTP::Request->new, }, $class; } こんな風な、ハッシュに bless するよくあるクラスの場合に、そのハッシュのキーと同じ名前でgetterを作成しておくと、属性にアクセスする場合（$hoge->url）と属性のオブジェクトのメソッドを呼ぶ場合（$hoge->req->header()）に、ブレース{} が途中に入ってこないので見やすいし、そ
iandeth. Perl, Flash ActionScript, MySQL, Movable Type, システム開発 - そんなテーマのサイトdeth. p.32 [参考] 他のプログラミング言語では、変数宣言は宣言に含まれることが多いですが、Perlには変数宣言という概念がありません。Perlは変数が最初に評価された時点で領域を確保します。Perlと他のプログラミング言語で大きく異なるのがこの変数宣言機能の有無であり、見通しの悪い複雑なスクリプトを書いてしまう主因でもあります。 最初のイントロダクションの章でそんな風に書かれています。これを読んだプログラミング初心者の人達はきっと「えぇ？そうなの？Perl使いにくそうだなあ」と思ってしまいますよね、きっと。そしてさらには・・・ p.104 strict プラグマは、Perlスクリプトでの記法を厳密にするためのプラグマです。 (中略
はじめに 数日前、blog.bulknews.netの宮川さんが「del.icio.us と はてなブックマークに cross-post」という興味深いエントリーを書かれたのを知りました。ラッキーなことに、そのクロスポストするPerlスクリプトは公開されています。ソースを見てみると案外コード量は少なかった(100行程度)ので、読めそうかな？と思いました。そこで、早速ソースを印刷して読んでみることにしました。 そうして数日が経過しました。。。 これではいけない！と思いました。最近は忙しくてPerlの勉強ができていないので、早起きして頑張ってみました。 XML::Atomのインストール: ちょっとした困難との遭遇 まずは、XML::Atomのインストールをしました。なぜかXML::Atomで必要となるDateTimeモジュールがFedora Core 4の環境ではうまくテストをパスしてくれませ
use strict がどうのこうのという話があって、そういえば昔自分もそんなこと書いたなあと思っていろいろ自分の書いた Perl の話を見返してて、せっかくだから拙作のまとめでも作っておくかと思いました。とりあえず文章量がそれなりにあって、まとまりのあるものだけを見繕ってみます。 今見ると、当時の理解が不十分で微妙なところもあったりしますが、そのあたりはご愛嬌。 いま読んでもまだ陳腐化はしてなさそうな話 お薦めの Perl 本をいくつか紹介 : NDO::Weblog Perlおすすめの書籍や情報。今ならここにPerl救命病棟とWEB+DB PRESS総集編を入れるかな。 Perlプログラマのレベル10 - Perlプログラミング救命病棟より - naoyaのはてなダイアリー Perlプログラマのレベル10。なんか他言語にも飛び火した。 Perl の変数に関するちょっとした誤解と、動的な
PHP｡ｦ｡ｦｱ隘癸ｦ!｡ｦ�ﾚ�!｡ｦ!ﾂ�!｡ｦ�｡ｫava｡ｦ｡ｦ｡ｦ｡ｦｹ罍肭�･蟷ｲ｡ｦ｢�!ﾊ�2ｸ螟｡｡ｦ､�"ｶ�!｡ｦ｡癸ｦ｡ｦ�ﾚ�!｡ｦ!｡ｦ｡ｦｺ�!ｸ蕕ﾔ薜ﾂ�!､�!｣罍聶爐�!ﾚ�"ｸ�!ｸ芬ｻﾊ�!｡ｦｵｷ｡ｦ｡ｦﾎ�!｡ｦ｣�｡ｦｶ�?･罐遙ｦﾞ�!｡ｦ!｡ｦ｡�｡ｦ｢�"｡ｦ!｣罍鬧�*｡ｦ｡ｦ｡ｦ莠ｶ芬ｻｺ觸｡ｦ｡裔箜ｱerl｡ｦｧ茖ｦ｡ｦｶ芬ｻﾘ�!｣罍聶盒�!ｺ�!ﾞ�!｡ｦ!｣罍聶癸ｦ｣筍ｦ､�"ｶ�!ﾎ� ｢�!ﾚ�"､�!ﾚ�"､� ｢�!ｾ罍蓊筅�!｡ｦ｡ｦ萓｡罍�｡ｦｧ罍悅ｦｶ�"ｰ�!｡ｦ!｡ｦ｡裔皀罍聶盒�!ｺ�!ﾞ�!｡ｦ!｡ｦ｡�｡ｦ｢芬ｻﾊ�"ﾄ�;｡ｦｷ遑ｦﾒ�!ｶ�!｡ｦｭ裹陦ｦ!ｧ罐筍ｦｰ�!ｾ�"ｾ�!ｶ�"ｲ�"ﾆ�!ﾂ�!｡ｦ�｢�)ｲ罍蓊翳�#･罐矣癸ｦ｡ｦ裲｢�!｡罍讌癸ｦ｡筵癸ｦ｡癸ｦ�｢芬ｹ･莵鬘ｦﾄ�
MPEG::MobileInfo 携帯の動画を撮影した機種や撮影日時を読み出すPerlモジュール Milano::Monolog: 着メロ・着うたのファイルから曲名やアーティスト名を読み出すPerlモジュールにインスパイヤされて公開してみます。 photos@yappoというpictoもどきで使っています。 CPANにうｐろうと思い立ってからかなりの時間が経過してしまっとりますｗ みらのさんのと違って、こっちのはMPEG4を純粋にパースしてくだけだから各種方言には対応できてない感じですな。 MPEG::MobileInfo Posted by Yappo at 2006年05月01日 13:51 | TrackBack | Perl
「これぐらい読めるようになれyo!」と、どこかのエントリーで紹介されていたClass::Data::Inheritableのソースを読んでみます。読めるかな・・・ドキドキ package Class::Data::Inheritable; use strict qw(vars subs); use vars qw($VERSION); $VERSION = '0.04'; sub mk_classdata { my ($declaredclass, $attribute, $data) = @_; if( ref $declaredclass ) { require Carp; Carp::croak("mk_classdata() is a class method, not an object method"); } my $accessor = sub { my $wantclass
この文書は内容が古くなり、非推奨となったので削除しました。あしからずご了承ください。
先日書いた記事新人教育 - Unknown::Programmingのトラバやはてブとか読んでてあーやっぱりオールドファッションなPerlも未だに廃れてはいないんだなぁと実感させられました。 あの一覧全てを仕事で使うか？と問われると、ま確かに頻繁には使わないけどいやでも場合によっては結構使うよと。 なのでPerlで仕事するなら必須項目であると言えますね。 知らないとまずCPANモジュールのソースが読めないし。 問題にブチ当たった時に困ったりする。 どこバグってんのかとかわかんないってことになるわけです。 COREパッケージ知らないと組み込み関数と同じメソッド定義した時にうがーってなるし、 UNIVERSALパッケージ知らないとisaとかcanメソッドがどっからやってきたのかわかんないし、 AUTOLOADメソッド知らないと謎のメソッドに悩まされるし、 tie変数知らないともの凄い不思議なハ
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
