はてなグループの終了日を2020年1月31日(金)に決定しました - はてなの告知
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
tokuhirom blog
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
TokuLog 改め だまってコードを書けよハゲ - 近代的なメールの添付ファイルをとりだすライブラリ for Perl といえば Email::MIME::Attachment::Stripper
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
tokuhirom blog
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
CGI::Carpモジュール [Perl講座 -Smart]
章の目次 概要 関数 概要 CGIスクリプトはタイムスタンプなしで不完全な識別をエラーログに残す仕様になっています。CGI::Carpは、標準のwarn、die、croak、confess、carpの出力を、タイムスタンプを追加してHTTPサーバーエラーログに出力します。 もしCarpモジュールを使っている場合は、それを以下のようにするだけで、中のスクリプトは変更せずに、エラー出力を変更することができます。 # use Carp; use CGI::Carp CGI::Carpの簡単な使い方です。 use CGI::Carp; croak "croak message"; confess "confess message: $!"; carp "carp message"; warn "warn message"; die "die message"; 出
へぼへぼCTO日記 - Email::MIMEの生成をtemplateエンジン経由で行ってくれるEmail::MIME::Kitがいい感じ
Home > perl > Email::MIMEの生成をtemplateエンジン経由で行ってくれるEmail::MIME::Kitがいい感じ Older Email::MIME::Kitがいい感じです。内部ではEmail::MIME::Creatorを使っているのですが、MIME::LiteでいうところのMIME::Lite::TTのようなもので、更にheaderに関してもtemplateで書けます。 素のEmail::MIME::Creatorで use strict; use warnings; use utf8; use Encode; use Email::MIME; use Email::MIME::Creator; use Email::Send; use Template; my $t = Template->new({ENCODING => 'UTF-8'}); my $
正規表現ベースのHTML::FillInForm::Lite - Unknown::Programming
HTML::FillInFormを正規表現ベースで再実装したHTML::FillInForm::LiteってのがCPANにリリースされてます。 なかなか爽快ですね。HTML::FillInFormはHTML::Parserを利用しているので無駄な部分が多かったのがデメリットだったわけで。 ドキュメントには2倍近く高速になると書いてたので一応ベンチを取ってみました。 use Benchmark qw(cmpthese timethese :hireswallclock); use HTML::FillInForm; use HTML::FillInForm::Lite; my $str = q{ <form> <input type="text" name="text_data1" value="" > <input type="text" name="text_data2" value="
はてなグループの終了日を2020年1月31日(金)に決定しました - はてなの告知
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
ネストしている要素をXPathのpositionを使用して取得する – taichino.com
解りにくいタイトルですね。例えば以下のようなHTMLを考えます。 tableタグが３つありますが、そのうちの１つがネストしています(idがchildのtableタグ) このネストしているtableタグをXPathでどうやって取得すれば良いかという話です。 もちろん//table[@id=”child”]のようにidを指定すれば取得できるのですが、 //table[2]のようにインデックスを指定してネスト中のtableを取得したいというのが今回の趣旨です。 出発地点として上記のHTMLからScraperを使用してデータを取得してみました。 #!/usr/bin/perl use strict; use warnings; use LWP::Simple; use Web::Scraper; use YAML; my $url = 'http://location/of/html'; my $
MooseでAdapterパターン - あと味
前回に引き続きMooseでAdapterパターンを書いてみました。 教科書は結城さんのデザパタ本。 コード Print.pm package Print; use Moose::Role; requires qw( printWeak printStrong ); no Moose::Role; 1; Banner.pm package Banner; use Moose; use Perl6::Say; has 'string' => ( is => 'rw', isa => 'Str' ); no Moose; sub BUILDARGS { my ($self, $string) = @_; return { string => $string }; } sub showWithParen { my $self = shift; say '(' . $self->string . '
Craftworks Tech Blog - Branch
Wordpress などでマルチサイトやら色々設定していると、Basic 認証などかけたいときに、location ディレクティブの適用優先順位で混乱することがある。 そういうときは、下記のように記述すると、location ディレクティブの設定の影響は受けないので、すっきりかける。 http コンテキストで map で認証をかけたい場所を設定する。 map $request_filename $auth_realm { default off; ~*/wp-login\.php|/wp-admin/((?!admin-ajax\.php).)*$ 'wp-admin'; } server など認証をかけたいコンテキストで認証をかける。 auth_basic_user_file /path/to/.htpasswd; auth_basic $auth_realm; そこそこ大きい Web
Perlプロプログラマへの第1歩 - kuchimuraのメモ
はじめに プロとしてのPerlプログラマが身につけておくべきことをつらつらと書いてみます。 対象読者は、（というより現在の私の状態でもありますが） 達人プログラマーを読んで感銘を受けた。 が、そこから今実践できているのはDRY、割れ窓の心がけとソースコード管理くらい。 Perlプログラミング救命病棟でいったら、レベル7以上ではあることは自負しているがレベル8と言っていいのか迷っている。 モダンPerlプログラミング入門を読んで、モダンと自分の差にどっきりして、せめてテストとドキュメントをなんとかしようと思っている。 まあ、とは言っても理想にはなかなかなれないもので、日々努力して理想のPerlプロプログラマに漸近していくものと思い、やれるところからやりましょうか、といったスタンス。 です。 同じような境遇にあり、同感できる方がいらっしゃいましたら、一緒にステップアップしていきましょう。 なに
ウェブリブログ：サービスは終了しました。
「ウェブリブログ」は 2023年1月31日 をもちましてサービス提供を終了いたしました。 2004年3月のサービス開始より19年近くもの間、沢山の皆さまにご愛用いただきましたことを心よりお礼申し上げます。今後とも、BIGLOBEをご愛顧賜りますよう、よろしくお願い申し上げます。 ※引っ越し先ブログへのリダイレクトサービスは2024年1月31日で終了いたしました。 BIGLOBEのサービス一覧
Ring
Ringとは、リクルートグループ会社従業員を対象にした新規事業提案制度です。 『ゼクシィ』『R25』『スタディサプリ』など数多くの事業を生み出してきた新規事業制度は、 1982年に「RING」としてスタートし、1990年「New RING」と改定、そして2018年「Ring」にリニューアルしました。 リクルートグループの従業員は誰でも自由に参加することができ、 テーマはリクルートの既存領域に限らず、ありとあらゆる領域が対象です。 リクルートにとって、Ringとは「新しい価値の創造」というグループ経営理念を体現する場であり、 従業員が自分の意思で新規事業を提案・実現できる機会です。 Ringフロー その後の事業開発手法 Ringを通過した案件は、事業化を検討する権利を得て、事業開発を行います。 さまざまな事業開発の手法がありますが、例えば既存領域での事業開発の場合は、 担当事業会社内で予算や
tokuhirom blog
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
404 Blog Not Found:CPAN - HTTP::Response::Encoding Released!
2007年04月17日22:30 カテゴリLightweight Languages CPAN - HTTP::Response::Encoding Released! HTTP-Response-Encoding を Release したのでお知らせします。 on CPAN (coming soon) http://www.dan.co.jp/~dankogai/cpan/HTTP-Response-Encoding-0.03.tar.gz どういうものかというと、こういうものです。 use LWP::UserAgent; use HTTP::Response::Encoding; my $ua = LWP::UserAgent->new(); my $res = $ua->get("http://www.example.com/"); warn $res->encoding; prin
404 Blog Not Found:perl - File::Find::Identical
2007年03月27日00:15 カテゴリLightweight LanguagesTips perl - File::Find::Identical それってPerlで。 ファイル名が違っても中身が同じファイルを探してくれる『NoClone』 | P O P * P O P そこで便利そうなのがこのNoCloneです。重複したファイルを探してくれるツールです。そしてこれが便利なのは、きちんと中身をみて判断してくれる点。すでにその名もずばりのFile::Find::Duplicatesというのも存在しているのですが、速度的にも問題があるし、APIも気に食わないので、File::Find::Identicalというものをこさえてみました。 例えば、重複ファイルをハードリンクに全て置き換えるには、これでOKです。 dupe2link #!/usr/local/bin/perl use stri
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
naoya.dyndns.org is offline
Perlで学ぶコルーチン
perl-mongers.org