hollyなblog:システム管理系なperlねたその1
システム管理のためのperlのねたのメモ。 Plack/PSGI, CatalystなどのようなmodernなWEB系システムの話じゃなく、そういうアプリケーションの下で動いている == バックエンドで動いているシステムを作る時に自分が心がけていることをまとめてみる。 バックエンドで動く == batch処理とかCLIベースなプログラム となるので、外部コマンドを実行するというのがなんとなく増えてしまう。それはそれで悪くないのだが、いろいろ思うところがあるのでずらずら書いてみよう。 まあ私見なので、他人が見たら違うというところもあるだろうけど。 1. 外部コマンドの実行結果をチェックする 平穏な状態ではまず失敗しないようなコマンドも、サーバ、ネットワークの負荷が高い、特殊な環境では失敗することもあったり。というわけでコマンド実行した後は必ずsystem "/path/to/command"
wakaponさんの超☆Perl備忘帳: Perl サンドボックス Safe.pm
5.10.0のlibディレクトリをあさっていて、Safe.pmなる標準モジュールを発見したので使ってみる。Safeがどんなモジュールかは、Nameのところにある1文がすべてを示している。 Safe - Compile and execute code in restricted compartments 制限された仕切り部屋でコンパイルと構文木の実行を行う。要するに、危険と思われる機能を取り払ったサンドボックスを作って、その中でコードを実行する。おそらくこのモジュールは、安全かどうかわからないPerlプログラムを隔離された場所で実行したいなー、というときに使われる。 実際にモジュールの機能を実感してみる。まずは最初の一歩として、Safe.pmのrevalメソッドを使ったサンプルプログラムの実行から。(See also ファイル指定版のrdoメソッド) revalメソッドの利用例 # 実行環
優れたPerlプログラマ（Acme的な意味で）を見分ける27の質問 - どんぞこ日誌(2011-03-01)
* [Perl][Acme] 優れたPerlプログラマ（Acme的な意味で）を見分ける27の質問 えー、How to Identify a Good Perl Programmerの訳文「優れたPerlプログラマを見分ける27の質問」の日本語訳の尻馬に乗ろうという寸法です。まあ、ご覧の通り、大失敗でした。 （※Acme::*を最大限利用すること） Perl5において名前空間のAcmeが示すものは何か blessを解除する際のAcme::CurseとAcme::Damnの違いは何か Acme::AnythingとAcme::Everythingの違いは何か Acme::Metasyntactic->new->nameをリストコンテキストで評価すると得られるものは何か Acme系モジュールを検索するにはどのようにするか Perl5におけるgotoとAcme::Goto::Lineの違いは何か
#perl - $Config{usemymalloc} : 404 Blog Not Found
2009年10月16日00:30 カテゴリLightweight Languages #perl - $Config{usemymalloc} それを返さないかは、その perl が受胎(conceive)したとき、平たく言えばどうConfigureされたかによって決まります。 Perl5 doesn't release SV's memory - SVアリーナのメモリ領域確保は一度おこなわれたら、「もう一生離さないぜ」な件 - TokuLog 改めB日記 Perl5 はメモリプールをもってる」ってのは、Perl Monger なら誰でもしってるわけですが、30MB とか領域確保したら、それはプールしないで、すぐ返すだろ JK とおもってたら、返してなかったので、それについて調べたときのメモ。perl がメモリーを返してくれるかどうかは、以下の簡単なscriptでチェックできます。 use
perl - 「優れたPerlプログラマを見分ける27の質問」回答例 : 404 Blog Not Found
2011年03月01日18:00 カテゴリLightweight Languages perl - 「優れたPerlプログラマを見分ける27の質問」回答例 これは良問。 How to Identify a Good Perl Programmer - Modern Perl Books, a Modern Perl Blog 「優れたPerlプログラマを見分ける27の質問」の日本語訳 - Islands in the byte stream というわけで回答例。あくまでも解答例。There's more than one way to do it はここでも例外ではないので。 Perl5において変数のシジルが示すものは何か 変数の基本型。$scalar、@array、%hash、&code、*typeglob。&codeの&は省略可能かつ省略推奨。これ以外の型はオブジェクトを作ることで作れ
[Node.js]Node.jsにperlインタプリタを組み込む node-perl - WebService::Blog->new( user => ’hide_o_55’ )
先日の Hachioji.pm #2 のLTで発表した node-perlについて簡単な解説をしておきます。 GitHub - hideo55/node-perl: Embeded perl interpreter for node.js LT資料 node-perl Perlインタプリタをnode.jsのaddonに ネタで作ったものなので、現時点では実用性無し ちゃんとインタプリタを永続化できれば、使い道はあるかも Perlインタプリタの組み込み まず、C/C++プログラムへのPerlインタプリタの組み込みはほぼperldocのperlembed - C プログラムへの Perl の埋め込み方 - perldoc.jpのままです。 ただ、インタプリタを組み込んだだけでは標準出力などはそのまま出力されてしまいます。そこで、以下のようにしています。 void override_stdhan
![[Node.js]Node.jsにperlインタプリタを組み込む node-perl - WebService::Blog->new( user => ’hide_o_55’ )](https://cdn-ak-scissors.b.st-hatena.com/image/square/4990121f1b2fb0a65b8a2b2e9b68b00733731d5a/height=288;version=1;width=512/https%3A%2F%2Fogimage.blog.st-hatena.com%2F17680117127175988019%2F17680117127176000637%2F1559255704)
Phenona: Какво е хостинг и хостинг компании, и услуги в България
Уеб хостингът е услуга, която прави вашия сайт или уеб приложение достъпни в интернет. Това е и един от най-съществените елементи, които трябва да се вземат предвид при създаването на уебсайт. Уеб хостингът обикновено се предоставя от уеб хостове, които са фирми, поддържащи, конфигуриращи и управляващи физически сървъри, на които се помещават уебсайтове. Ако закупите хостинг план от доставчик на у
2011年になってもPerlを使ってる理由 - Pixel Pedals of Tomakomai
10年以上使ってて慣れてるからってのが一番ですが、後、TMTOWTDI に共感するからってのもあります。 まず、たくさんの書き方があれば、それだけ読み手に色んなことを伝えられます。文章を書く時に、一人称を「僕」「俺」「私」のどれを使っても意味は一緒ですが、相手に与える印象は全然違います。コードも同じで、表現のレパートリーが多いというのは、それだけ様々なことを読み手に伝えるポテンシャルを持っているということになります。コードはロジックだけを伝えられればいいってものではなく、書いた人間の意図まで正しく伝えることが重要だというのは、誰もが認めるところでしょう。 また、自由度が高いものの方が、進化する伸びしろがあります。使い方がきちんと1つに決められている物は美しいですが、それ以上の使い方はできません。逆に、何に使うかわからないものまで含めてたくさんのものが混在しているような状況では、創意工夫でそ
perl - から未だに目を離せない四つ、あるいはただ一つの理由 : 404 Blog Not Found
2011年01月31日22:30 カテゴリCultureLightweight Languages perl - から未だに目を離せない四つ、あるいはただ一つの理由 やはりお鉢がまわってきたので。 回答希望。ラクダかわいい以外で。@dankogai さんとか？ 「〜今あえてPerlを取る理由というのが個人的には思い浮かばない。生粋のPerl使いならきっと流暢な解答を用意してくれると思う。」 プログラミング言語人気TOP10の簡易解説 http://ht.ly/3NaTkless than a minute ago via HootSuite佐藤 治男 HalSato プログラミング言語人気TOP10の簡易解説用途的にPythonやRubyと被るので、今あえてPerlを取る理由というのが個人的には思い浮かばない。生粋のPerl使いならきっと流暢な解答を用意してくれると思う。 ベタ プログラミ
2011年のPerl | gihyo.jp
あけましておめでとうございます。今回は新春特別企画ということで、2010年のPerl界を振り返りつつ、2011年のPerl界がどうなっていくかを、予定と期待を織りまぜながら見ていきましょう。 Perl 5.14 2010年のYAPC::Asiaでジェシー・ヴィンセント（Jesse Vincent）氏が紹介されていたように、Perl 5は現在、2011年4月に予定されているPerl 5.14のリリースに向けて最後の仕上げをしているところです。Perl 5.14は2010年の開発成果をまとめた定期リリースなのでPerlの根幹をゆるがす大きな仕様変更はありませんが、Perl本体、コアモジュールともに細かなバグがいくつも修正されているほか、内部的にはさまざまな最適化が行われています。 一例を紹介しますと、Perl 5.14ではkeysやeach、あるいはpushやshiftのような、配列やハッシュ
複雑な要件をシンプルに実現することこそ技術力である
要件があるからそれをホイホイと拾いに行って設計・開発・試験をするだけなら、確かに誰でもできますね。要件を突き詰めて考えて、場合によっては要件自体の見直しにも踏み込みながら、シンプルな設計にすると、当然実装もテストもシンプルになり、皆が喜ぶという未来が待っています。日々これ勉強、といったところです。
『スロット ハワイアン ドリーム』｜豪 血 寺 一族 パチンコ|cr オグリ キャップ･栃木県佐野市|長野県筑北村|美空 ひばり パチンコ
広島県北広島町 パチスロ かぶき ものがたり Basic Strategy Counting DIA 4th ミニアルバム「Summer Ade」ティザー映像公開 爽やかなルックスのおまけスロットマシン シンガポール 中泊町 大工 の 源 さん 超 韋駄 天 ボーダー ジェリーフィッシュ・エンタテインメント・ジャパン株式会社 インタラクティブ・メディア・ミックス株式会社td 長崎県島原市 ニューギン 009 (G)I-DLEがフラッシュモブに参加したファンとタイムズスクエアの前でポーズをとっている画像。 豪 血 寺 一族 パチンコ マクロス f パチンコ 初代 パチスロ ガメラ 導入 日 新曲「雨が降ったら」MVティザー映像 [ウングァンInstagram全文] こんにちは 5ch スロット 機種 福岡県宗像市 キョンシー パチンコ 自身のインスタグラムに「2週間前の稽古場で…明るくて優し
Perl embarking on new era (perl 5.13.7 features) - Islands in the byte stream
perl 5.13.7がリリースされた*1。このバージョンは革新的な新機能を搭載しており、新時代のPerlといっても過言ではないものとなっている。 それが以下の機能である。 Array and hash container functions accept references All built-in functions that operate directly on array or hash containers now also accept hard references to arrays or hashes: |----------------------------+---------------------------| | Traditional syntax | Terse syntax | |----------------------------+-------
にひりずむ::しんぷる - DBI で実際に発行されるクエリーを取得する DBIx::QueryLog を書いた
季節が変わって、早速風邪をひいています。 さて、もう秋を通り越して冬の様相を呈してきた昨今ではありますが、DBI では、普通はプレースホルダを使い my $stmt = 'SELECT * FROM user WHERE user_id = ?'; my @bind = ($user_id); $dbh->do($stmt, undef, @bind); とか書くと思います。 このときに、実際にバインドされた後の SQL をみたいなーって衝動に駆られると思いますが*1、どう頑張ってドキュメントを読んでもわかりませんね。 こういうときは仕方ないので、$stmt と @bind を両方ログに出してお茶を濁していました。 $self->log->_dump($stmt, @bind); # => SELECT * FROM user WHERE user_id = ?, [1234] でもこれっ
Contextの生成・破棄を任意のタイミングで制御可能にする Scope::Container(仮) - blog.nomadscafe.jp
追記 CPANリリースしました http://search.cpan.org/dist/Scope-Container/ /追記 mod_perl のアプリケーションでは、Apacheモジュールの提供するpnotesを使うとリクエスト毎のデータを簡単に持つことができます。pnotesに入れたデータはリクエストの処理が終了したところで自動的にクリーンアップされます。これを利用したのがリクエストごとにインスタンスを作成破棄できる、Apache::Singleton(::Request)です。 また、pnotesはデータベースの接続の管理にもしばしば使われます。1リクエストを裁いている間だけデータベースとの接続を維持し、リクエストが完了したところで接続を閉じるような処理に利用されています。このようにすることでmod_perlのプロセス数分(数百）の接続がMySQLに常に張られることもなく、また１
はてなグループの終了日を2020年1月31日(金)に決定しました - はてなの告知
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
第37回 YAPC：国際的なイベントなのだ、ということはお忘れなく | gihyo.jp
連載の裏話を発表してきました 先日開催されたYAPC::Asia 2010では、この連載の番外編として、筆者が執筆の際にどのような資料を見ているか、また、どのような基準でとりあげる話題を決めているかをお話しました。本当はもう少しいろいろな情報源を見ていただいて、サイトの外観や内容の変化から最近のPerl界のうつろいを感じていただければと思っていたのですが、昨年は同じ分量のスライドで半分近く時間を余してしまったからと思ってゆっくりめに話したら、さじ加減を間違えたようで、本当に紹介しようと思っていた部分はかなりすっ飛ばしてしまう結果となってしまいました。資料はいまだに整理が済んでいないのですが、内容を説明しそびれたページについてはまた何らかの形で紹介していかれればと思っています。 気になることの多いYAPCでもありました さて、自分のスライドに日本語をつけそびれてしまったことをはじめ、個人的に
[perl] AnyEvent::Twitter::Stream で自動再接続処理
インターネット、Go、JavaScript、Python、Perl によるプログラミング、ISUCON、Windows、Raspberry Pi など、興味のある事について気まぐれに記事を書いています。 Perl関係のツイートをリツイートするうざいボット @AE_PerlIsm を動かして得られた知見についての記事です。 キーワードを含んだツイートは、Twitter Streaming API を AnyEvent からいい感じで取得できる AnyEvent::Twitter::Stream で取得しているのですが、この接続が12～24時間に1回くらい切られるようなので、再接続処理が必要だと思います。 そのコードは以下のような感じでやっています。 注意点は、 接続状態から切れた時は wait なしで再接続する。 接続成功は、30秒おきに届く on_keepalive で判明する場合もある。
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Rolling with Ruby on Rails
Rolling with Ruby on Rails