Test::Base利用時に、__DATA__の中身の量が多い場合、ファイル分割してわかりやすくする - Lazy Programmer :-p
t/hoge.t use Test::Base qw/no_plan/; my $DIR = 't/data'; spec_string( &load_data() ); run { my $block = shift; # 貴方のテストをここへ。テスト名を入れるのを忘れずにね。 is( $block->before , $block->after , $block->name ); }; sub load_data { opendir(DIR, $DIR) or die $@; my @list = readdir(DIR); closedir(DIR); my $data = ''; for my $file ( @list ) { next unless $file =~ /\.dat$/; my $dat = $DIR .'/'. $file; my $name = "\e[33m
一行野郎(one-liner)はperlにおまかせ
序文 もしもプログラミング言語が宗教だったら……（全訳版）［絵文録ことのは］2008/12/21 によると、ブードゥー教徒らしい dankogai です。 ブードゥー教徒らしく、「上司があなたに金曜夜21時に緊急の仕事を命ずるときにしばしば使われる」呪文をここでまとめておくことにします。 基本中の基本 コマンドとしてのperlは、スイッチがない場合、引数はスクリプト名として扱われます。 % cat hello.pl print "Hello, world!\n"; % perl hello.pl Hello, world! % コマンドライン中の文字列をスクリプトとして解釈させるには、-eを使います。 % perl -e'print "Hello, World!\n"' Hello, world! % ちなみに、perlとコマンド名だけで起動すると、標準入力をスクリプトとして返します。 %
エキスパートPerl - 変態モジュール総覧
Perl の世界には、「変態モジュール」と呼ばれるモジュールがたくさん存在します。 これらは、モジュールの形態をとりながら、Perl の内部に踏み込み、蹂躙しているという恐ろしい存在です。 しかしながら、これらのモジュールは使いどころを間違えなければ非常に有用であり、あなたのプログラムに無限の可能性をもたらすことでしょう。 自分の足をどうやって撃ちぬくか、よく考えてからつかってください。 下記のモジュールたちは、それ自体が変態的なものもあれば、変態的なことをするときに使うモジュールもあります。 PadWalker PadWalker は変態モジュールの筆頭です。レキシカルスコープの変数を、レキシカルスコープの外から見たり書き換えたりできます。 peek_my peek_our peek_sub closed_over という４つの関数をサポートしています。 下記のようなありえない操作を可能
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
masartz->log(type=>'hatenablog')
うっかり先月になってしまったが、最近イギリス旅行ができたので、大したことではないが思ったことをメモしていたら、SNSへの1エントリを超えそうだったので、ブログエントリにしてみる 観光編 決済周り 事前に調べていた遠りだったが、VISAのTouchlessが完全に浸透しきっていた。カタールW杯の時もVISA Touchだったが、あれはVISAが大会スポンサーだったのもあったし、ドーハ自体が近年作られた都市だったのもあっての普及率だったのかと思っていた。イギリスでは訪れた各都市（ロンドン・リバプール・マンチェスター）で完全にデフォルトになっており、結果として遂に一度も現金を使わないで旅を完結することができた。W杯の時は一部、寄り道のUAEで露店で使うためとかのためにキャッシングで引き出したので、旅行を通して本当にノー現金は今回が初だった。 改札 具体的には、リバプールのバス、マンチェスターのト
use fields によるPrivateなフィールド - Pixel Pedals of Tomakomai
use fields のperldocにはこう書いてます。 Field names that start with an underscore character are made private to the class and are not visible to subclasses. これでPrivateフィールドが作れる！？ と思ったら、微妙に違います。 use strict; use warnings; { package MyBase; use fields qw(name _age); sub new{ my $class = shift; my __PACKAGE__ $self = fields::new($class); $self->{name} = 'Mery'; $self->{_age} = 22; return $self; } } { package My
perlオブジェクト指向プログラミング /lib/mailmag
Object Oriented Programming w/ Perl melma! を使って発行しているたメールマガジンです。 Perl のオブジェクト指向やテスティング、デザインパターンなどの話題を中心に、2週間に1回程度発行していますした。 Name Last modified Size Description Parent Directory 26-Aug-2005 13:02 - 15/ 09-Mar-2001 16:23 - 16/ 21-Sep-2001 03:43 - 17/ 29-Mar-2001 20:22 - 18/ 13-Apr-2001 03:30 - 19/ 02-May-2001 12:30 - 20/ 17-May-2001 00:08 - 21/ 31-May-2001 11:58 - 22/ 09-Jun-2001 14:49 - 23/ 05-Jul-
perl - B::Deparse : 404 Blog Not Found
2007年02月11日13:45 カテゴリLightweight Languages perl - B::Deparse 尻馬乗るべし、ということでB::Deparseの紹介。 いやなブログ - スクリプト言語用のデバッガの使い方 - Ruby, Python, Perl スクリプト言語用の CUIのデバッガの使い方を簡単にまとめました。対象言語は Ruby, Python, Perl です。実は私も、デバッガーはperl -de1ぐらいしか使っていない(perl -de1は非常によく使うので、Terminal.appのウィンドウの一つがそれ専用になっている。スクリプト言語のインタラクティブな利用法に関しては以前「404 Blog Not Found:LL Intaractive」にまとめたのでそちらをご覧頂くとして、ここではなぜスクリプト言語では滅多にデバッガーを使わないかをおさらいした
第1回 memcachedの基本 | gihyo.jp
株式会社ミクシィ 開発部 システム運用グループの長野です。普段はミクシィのアプリケーション運用を担当しております。今回から数回にわたり、最近Webアプリケーションのスケーラビリティの分野で話題になっているmemcachedについて、弊社開発部 研究開発グループの前坂とともに、使い方や内部構造、運用について解説させて頂きます。 memcachedとは memcachedは、LiveJournalを運営していたDanga Interactive社で、Brad Fitzpatrick氏が中心となって開発されたソフトウェアです。現在ではmixiやはてな、Facebook、Vox、LiveJournalなど、さまざまなサービスでWebアプリケーションのスケーラビリティを向上させる重要な要素になっています。 多くのWebアプリケーションは、RDBMSにデータを格納し、アプリケーションサーバでそのデータ
perl - デフォルト値のperlらしい指定法 : 404 Blog Not Found
2008年07月02日23:00 カテゴリLightweight Languages perl - デフォルト値のperlらしい指定法 Perl Cookbook (English) Christiansen / Torkington [邦訳: Perlクックブック] これでもよいのだけど、さらに恰好つけるとよりperlらしくなるので。 デフォルト値の扱い。 - サンプルコードによる Perl 入門 Scalarによるデフォルト値 sub num{ my $num = shift; # .... } ここは sub num{ my $num = shift || -1; # .... } の方がわかりやすい。0または''を入力値、すなわち非デフォルト値として扱いたい場合のみ、 sub num{ my $num = shift; $num = -1 if not defined $num;
Perlプログラマのためのgdb入門(at Shibuya.pm #9 LT) - とあるはてな社員の日記
先日のShibuya.pm #9のLightening Talkで「gdbでXS on mod_perlをデバッグ」という話をしてきました。XSを使い出すと、従来のPerl的デバッグだけでは不十分なのでgdbをうまく使って、効率的にデバッグしましょう、という話です。実は、はてな社内では1年近く前に勉強で話したネタだったのですが、ようやく公開することができました。 Shibuya.pmでは5分という枠があったのでショートver.でしたが、ここでは制限はないので、本来のロングバージョンの資料をアップします。ちょっと公開できない情報が混っていたので、xxxで隠していますが、ご了承ください。 ちなみに、Rubyとかでも似た感じでデバッグできると思うので、そちらの人も参考にしてください。長いよ!という人は、最後の「これは設定しておけ的gdb初期化マクロ」だけでもどうぞ。かなり便利です。 (資料公開が
perl - use Carp; # warn() と die() だけじゃなくて : 404 Blog Not Found
2008年06月30日04:00 カテゴリLightweight LanguagesTips perl - use Carp; # warn() と die() だけじゃなくて 以下のエラー処理の方法にちょっと口を挟みたくなったので。 エラー処理を行う。 - サンプルコードによる Perl 入門 warn() vs. die() まず、warn()の使い方。エラーに対して使ってはいけません。warnはその名の通り、あくまでもエラーではなく警告です。エラーの際にはdie()を使わなければなりません。 警告とエラーの違いですが、警告は「続けて処理してもいいけど、これはあなたの意図ではないかもしれません」という場合、エラーは「このままでは処理を続けられません」という場合です。 たとえばperlの場合、抜けた引数はundefなので、数値としては0、文字列としては''として解釈されます。それらをデフ
はてなグループの終了日を2020年1月31日(金)に決定しました - はてなの告知
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
antipop - Perl の学習コストを大幅に軽減するスゴイ方法
にわかに Perl の学習コストについて優れた Perler のみなさんがあれこれ述べておられるので、大変勉強になります。 Unknown::Programming - 新人教育 SQLAlchemy Database Engines 日記。 (TokuLog) - Perl は学習コストが高すぎる naoyaグループ - naoyaの日記 - Perl の学習コスト SQLAlchemy Database Engines 日記。 (TokuLog) - Perlの学習コストとライブラリ naoyaグループ - naoyaの日記 - アンテナ張りまくらないとの件 subtechグループ - Bulknews::Subtech - Perl、アンテナの話 Charsbar::Note - Perlの学習コスト 上記にリンクしたエントリをまとめると、オールドファッションな書き方であれば Per
Elementary, ... Googleで「はらへった」と検索するとピザが届くようにするまで
日曜は、Plagger を初めてちゃんとさわってみました。 Plagger の概略は、miyagawaさん自身による このYAPC::NAのPDF がわかりやすいです。要するに、 『ネットからフィードを集める → （ごにょごにょする） → 出力する』をするものです。 この「集める」や「ごにょごにょ」や「出力」の部分に、ブロックを重ねるようにしてモジュールを重ね、自分の好きな起承転結にできるという点が実に Perl ぽい着想です。風がふけば桶屋がもうかるフレームワークと呼んでいます。 Subscription::Bloglines / Publish::Gmail まあ、まずは普通に使ってみようということで、「Bloglines から集める」→ （エントリごとに分割、RSS 広告除去、本文の内容をできるだけ収集→ Bloglines、Delicious へのリンク付与、はてブ登録数付与） →
いまさら聞けない? 初心者向けPlagger設定覚え書き その1 - Muibrog
Plaggerをいじってみて、とても便利でなにより楽しくてしょうがない。まだ「それPla」ってほどなんでもできるわけじゃないけど、RSSを配信してないサイトから欲しい情報を取り出すことはできるようになった。意外と初心者向けの手引き的なものが見つからなかったので、初心者向けにメモしておきます。まだ簡単なことしかわからないし、間違ったことも書いてあるかも知れないのでいろいろ試してみながら確認してください。 まずはFilter::EntryFullText（みんなEFTって呼んでるみたい）について。 企業ニュースサイト（新聞社とか）のトップページにあるような自分のサイト内へのリンクのあるHTMLをフィードと変換するときに使うFilter。下のはYOMIURI ONLINEの科学のトップページから科学ニュースを取り出すためのyaml（ Wikipedia）。 author: Toshi custo
いまさら聞けない？ 初心者向けPlagger設定覚え書き その4
いまPla*1 その4です。 その3ではちょっと難しい話になってしまったので今回はできるだけライトに行きたいと思います。前回までに Filter::EntryFullText と CustomFeed::Config をうまく使うといろんなサイトの欲しいところを持ってこられるということを書いてきました。今回はその出力方法に関していくつか取り上げてみたいと思います。 その3までのconfig.yamlでは出力部分はすべてGmailにメールする設定でした。 - module: Publish::Gmail config: mailto: xxx@gmail.com mailfrom: xxx+plagger@gmail.com mailto 宛先です。ご自分のメールアドレスをどうぞ。 mailfrom 送信元となるメールアドレスです。Gmailではアカウントに対して「+xxx」という風にしても
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
https://labs.cybozu.co.jp/blog/kazuho/archives/2008/12/textmicrotemplate.php
11月25日の技術勉強会 perl
11月08日の技術勉強会 - perlのattributes - はてな技術発表会日記 - 機能変更、お知らせなど
