HTML-TokeParser-Simpleを使ってHTMLタグを除去する トップ 差分 一覧 ソース 検索 ヘルプ PDF RSS ログイン カテゴリ[Perl] ほぼPODのサンプルまんまだけど、HTML::TokeParser::Simpleを使ってHTMLのタグを除去する。 use HTML::TokeParser::Simple; print remove_html('htttp:://yusukebe.com./'); sub remove_html{ my($url) = shift @_; my $text; my $p = HTML::TokeParser::Simple->new(url => $url); while(my $token = $p->get_token){ next unless $token->is_text; $text = $text . $to
イベントハンドラ 2種類 customfeed.handle subscription.load config.yamlのmodule: Subscription::Configのfeed urlを使う場合はcustomfeed.handleを使いましょう。 プラグインコード上でいえば、「$args->{feed}->url」を参照するなら customfeed.handle、不要ならば subscription.load となります。 ※オレオレプラグインならばとりあえずsubscription.loadで作ればいいんじゃないかな イベントハンドラ内で feed 生成 「Plagger::Feed->new」で feed をつくり、イベントハンドラの最初の引数へ追加する。 とうぜん、feed 内の各 entry も生成する。(Plagger::Entry->new) entryの作り方
「モダンPerl」という言葉の流行 先日、国内有数のPerlハッカーである牧大輔氏が『モダンPerl入門』という書籍を刊行しました。 日本のPerlユーザーのハブサイトを目指しているperl-users.jpでも「モダンなPerl入門」と題して「古来から親しまれているPerl入門とはひと味違う、今風のPerl入門テキスト」を作ろうという動きがあります。 海の向こうでは、Perl 6の言語仕様の策定にたずさわっているクロマティック(chromatic)氏が「Modern Perl Books」というウェブサイトを開設して、「モダンPerl」についての考察を始めました。氏はその名もModern::Perlというモジュール[1]を公開して「モダンPerl」の啓蒙に努めています。 個人の主義主張に過ぎないのでしょうか? でも、この「モダンPerl」とはいったい何なのでしょうか。 字面から「今風の
MacでCPANを使ってモジュールのインストールを行っている場合、OS Xの最新のセキュリティアップデートで一部のモジュールに不整合が発生して利用できなくなるという問題が発生するようだ(本家記事より)。 宮川達彦氏のブログによると、問題は下記条件が揃った場合に起きるとのこと。 Mac OS X 10.5 (Leopard)を使っているMac OS XのPerlを使っているCPANを使い、複数のコアモジュールのアップグレードを行ったことがある また、この問題が発生した場合、次のようなエラーメッセージが表示されるとのこと。 % perl -MIO IO object version 1.22 does not match bootstrap parameter 1.23 at /System/Library/Perl/5.8.8/darwin-thread-multi-2level/XSLoa
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
Ruby界隈ではあたりまえのように使われる特異メソッド*1だが,Perlでは組み込みでのサポートはなく,標準モジュールにも特異メソッドを実現するものはない。Class::MOP/Mooseの匿名クラスが似た用途を持っている*2が,オブジェクトの実装型に制約がある。たとえば,以下のコードは動かない。 #!perl -w use strict; use IO::File (); use Moose (); my $anonclass = Moose::Meta::Class->create_anon_class( superclasses => [qw(IO::File)], methods => { hello => sub{ my $self = shift; $self->print("Hello, world!\n"); }, } ); my $io = $anonclass->new
どこで読んだか忘れましたが、Perlのコミュニティの中では中堅クラスが少ない、という話がありました。 私としては、CPANによる自由拡張性が、そもそも裾野を広げる障害ではなかったか、と思います。 これは、MENTAを使っていく中で色々と読んでの感想ですが、軽量フレームワークが誕生した背景にも同じことがあったと思います。 Perlでウェブアプリケーションを開発する時にCPANモジュールを多く使っていると、公開する時点でサーバーを選んでしまいます。 つまり、Perlを学んでいけばいくほど公開する場所に制限がかかっていきます。CPANが自由に使えるサーバーは自前で用意する必要があるでしょう。 例えばMooseを使ってスクリプトを作っても、公開できるレンタルサーバーとなると、サクラサーバーくらいしかないのではないでしょうか? 私は使ったことがないのでわかりませんが、ユーザー領域にインストー
Perl のテストで Behaviour Driven Development (BDD) して遊ぶためのモジュールを CPAN に登録しました。ご利用ください。 ⇒ http://search.cpan.org/~tociyuki/Test-Behaviour-Spec-0.02/ 0.01 の POD の使用例コードにセミコロンが一ヶ所抜けていたので、修正しました。コード本体は 0.01 と同じです。 ⇒ http://search.cpan.org/~tociyuki/Test-Behaviour-Spec-0.01/ Test::Behaviour::Spec は、ふるまいを記述するための述語 describe、it、spec をサブルーチンとして使えるようにするだけで、いっさい Test::More 等への変更をおこないません。そのため、従来のどのようなテストにも、ふるまい記述を
#!/usr/local/bin/perl # ********************************************************** # メール受信テストサンプル # # 実行時、HTML 上で <> で挟まれたメールアドレス等は # 表示されないのでソースを確認する必要があります # ********************************************************** print "Content-Type: text/html; Charset=Shift_JIS\n"; print "\n"; $server_name = "ドメイン"; $user_name = "ユーザ.ドメイン"; $user_pass = "パスワード"; # メールを受信します use Net::POP3; # メールデータを解析します use
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
2006年09月22日19:15 カテゴリ perltidy で Best Practice なコーディングスタイルを身につける 最近、 :q と q: を押し間違えるのにうんざりして vim から emacs に鞍替えしたのですが、 perltidy-region というのを見つけて、せっかく Perl Best Practices も持っていることだし、これを期に perltidy なスタイルを身につけよう!ということで導入してみました。 導入といっても、開発マシンは Fedora Core 5 なので、 yum install perltidy で一発。 .perltidyrc は PBP に載っていたお手本をそのまま使っています。 使っているのですが、 cperl-mode のインデントと微妙にスタイルが違うのでちょっと戸惑っていたり。まだコード丸ごと perltidy という感じ
たまに人によってコードの書き方が違うのでイライラする時がある。 これを解消してくれるのがperltidyモジュール。 Perlベストプラクティスに載っている、.perltidyrcの推奨設定が載ってたのでメモ。 インストールして有効にするには、~/.perltidyrcを設定する必要です。 .perltidyrc -l=78 # Max line width is 78 cols -i=4 # Indent level is 4 cols -ci=4 # Continuation indent is 4 cols -st # Output to STDOUT -se # Errors to STDERR -vt=2 # Maximal vertical tightness -cti=0 # No extra indentation for closing brackets -pt=1 #
NAME Mouse - Moose minus the antlers VERSION This document describes Mouse version v2.5.11 SYNOPSIS package Point; use Mouse; # automatically turns on strict and warnings has 'x' => (is => 'rw', isa => 'Int'); has 'y' => (is => 'rw', isa => 'Int'); sub clear { my($self) = @_; $self->x(0); $self->y(0); } __PACKAGE__->meta->make_immutable(); package Point3D; use Mouse; extends 'Point'; has 'z' => (i
ということで、前項の続き。 ■Perl の Selenium RC をインストールしようとすると・・・ >makefile.pl *** Module::AutoInstall version 1.02 *** Checking for Perl dependencies... [Core Features] - Test::More ...loaded. (0.47 >= 0.42) - Test::Exception ...missing. - Test::Mock::LWP ...missing. - Test::Pod ...missing. ==> Auto-install the 3 mandatory module(s) from CPAN? [y] nTerminating on signal SIGINT(2) こんなこと言われた。でもインターネットに繋がってない PC
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く