GNU Parallelがすごすぎて生きるのがつらい
皆さん今日もたくさんのサーバを相手にされていることかと思いますが、いくつかのサーバにアクセスして 1 秒間の統計情報(例えばvmstat 1 2)を集めてパッと表示したい時ってどうやってますかね？shell script を学びはじめたばっかりの僕はこんな感じで書いてました。 $ for i in host1 host2 host3; do ssh $i "vmstat 1 2 | tail -1"; done 0 0 0 329004 210836 14275360 0 0 0 2424 1410 1828 0 0 100 0 0 0 0 0 3716112 587704 25921684 0 0 0 488 1643 2026 0 0 100 0 0 1 0 0 555440 265560 14015548 0 0 0 4204 1534 2392 1 0 99 0 0 vmstatと
TheSchwartz
NAME TheSchwartz - reliable job queue SYNOPSIS # MyApp.pm package MyApp; sub work_asynchronously { my %args = @_; my $client = TheSchwartz->new( databases => $DATABASE_INFO ); $client->insert('MyWorker', \%args); } # myworker.pl package MyWorker; use base qw( TheSchwartz::Worker ); sub work { my $class = shift; my TheSchwartz::Job $job = shift; print "Workin' hard or hardly workin'? Hyuk!!\n"; $jo
mod_perl 2.0 での2種類のハンドラ modperl と perl-script - daily dayflower
mod_perl 2.0 では，SetHandler で指定するハンドラタイプとして，modperl と perl-script の2種類があります。この違いは何なんだろうと思い，mod_perl のドキュメント を読み込んでみました。 おおざっぱにまとめると，一般的に使うべきなのは perl-script タイプで，mod_perl のヘルパが便利なようにいろいろ設定してくれてます。たとえば， $ENV{QUERY_STRING} や $ENV{REMOTE_ADDR} 等の環境変数を設定してくれている STDOUT や STDIN を読み書きすることで，CGI としての入出力ができるようにしてくれている などですね。 ですから， $ENV{REMOTE_ADDR} 等は，$r->connection()->remote_host() 等使って自力で取得するし 出力も $r->print
tutorialog Blog Archive Catalyst - 簡単なアプリケーションの開発
Catalyst - 簡単なアプリケーションの開発 April 30, 2006 Posted by butcher in : Perl , trackback PerlのMVCフレームワークCatalystについて紹介します。 Catalystについてはこちらを参照ください。 今回は、インストールから、簡単なDBアプリケーションの開発、mod_perl上での実行の手順を紹介します。 開発環境は、FedoraCore4, perl v5.8.6, Apache 2.0.55, mod_perl 2.0.2, mysq l 4.1.18 です。 まずはインストール。 インストールは非常に簡単で、”Task::Catalyst”モジュールを入れるだけです。(依存関係のある他のモジュールもインストールされます。) $ perl -MCPAN -e 'install Task::Cat
nekobara カルゴルニア・ジョン: Apache2.0 mod_perl2環境でCatalystアプリ実行
【覚書】 Catalystアプリをmod_perl環境で実行するためにApacheのhttpd.confの設定 とりあえず、Webサーバへのアクセスがmod_perlで処理されるようにするには以下のようにhttp.confに設定を追加もしくは書き換えする。(つまり、http://localhostにアクセスするとCatアプリが呼ばれる） -------------------begin DocumentRoot "/var/www/TR" LoadModule perl_module modules/mod_perl.so PerlSwitches -I/var/www/TR/lib PerlSetEnv TR_DEBUG 0 PerlLoadModule TR SetHandler modperl PerlTransHandler TR PerlResponseHandler TR re
Debugging Perl DBI
Contents Introduction Good DBI programming practise Check the returns from DBI calls RaiseError Test inserts/updates worked Protect calls you expect could legitimately fail with evals Use transactions, protect them with eval and commit or roll them back after the eval Consider adding comments to SQL What you get in DBI out of the box to help you DBIx::Log4perl Advantages of using DBIx::Log4perl Wh
Catalyst
NAME Catalyst - The Elegant MVC Web Application Framework SYNOPSIS See the Catalyst::Manual distribution for comprehensive documentation and tutorials. # Install Catalyst::Devel for helpers and other development tools # use the helper to create a new application catalyst.pl MyApp # add models, views, controllers script/myapp_create.pl model MyDatabase DBIC::Schema create=static dbi:SQLite:/path/to
[Catalyst][DBIx::Class] Catalystテストサーバでの DBICのSQLログ表示 - cyberlib.enterbrainz.com
[Catalyst] [DBIx::Class] 一時的には 環境変数をenvセットでテストサーバ駆動 $ env DBIC_TRACE=1 ./script/myapp_server.pl -r いつも出す時は MyApp.pm に $ENV{'DBIC_TRACE'} = 1; と書き込んでおく。 Apache等の本番環境に移した後は気になるところだけ $c->model('DBIC')->storage->debug(1); $c->model('DBIC')->storage->debugfh(IO::File->new('/log/DBIC.log', 'w')); 通常のDBIC(non Catalyst)では my $schema = DB::Hoge->connect('dbi:mysql:dbname;localhost','I
Schema::Loader with CatalystComments
Catalyst::Model::DBIC::Schema を使う。 この Model は大きく3つの使いかたがある。 単純に既に存在する Schema クラスを使用するSchema::Loader で既存の DB から Schema クラスを生成し、それを使用するSchema::Loader で既存の DB から Schema::Loader クラスを生成し、それを利用する。 1 はまず Schema クラスをどこかに作ってあり(My::Schemaと仮定する)、それをそのまま Catalyst::Model として利用する。 ./script/myapp_create.pl model DBIC DBIC::Schema My::Schema で、MyApp::Model::DBIC が作成される。この My::Schema に connection なんかが定義されていてそれを使う場
suVeneのあれ: CPAN→Plaggerインストール(レンタルサーバさくら)
2006年08月30日 CPAN→Plaggerインストール(レンタルサーバさくら) 日常的に Perl を触る機会がなく、CPAN など利用した事すらないのだが、とりあえず「じゃぁPla」と言ったので調べてインスコするまでしてみた。 もう Plagger インストールの話も飽きただろうけども、めも的に残しておく。 簡単に説明すると、Plagger をインストールするためには、管理者権限がなければ、CPAN経由でインストールが現実的で、その為にはインストールするサーバに Telnet or SSHでログインできて make が使える事が必須である。 意味が分からない人の為に説明してもよいが、今回はそれをすると長くなるので今度にする。 今日の対象は、レンタルサーバで root 権限がない人(とくにさくら)への情報と、自分の為のメモだから。 ● CPANをユーザー領域にインストールする はっき
DBIx::Class::Storage::DBI::ReplicationにてMasterで参照クエリを発行する方法 - Unknown::Programming
DBIx::Classのちょっとしたメモ、その２。・・・と、思いきや長くなったので一記事に。 Masterで参照クエリを発行する方法なんだけど、ちょこちょこと調べて見たけど情報が殆どないのね。 ただみんな色々考えているようで、例えば use Blog::Schema; my $schema = Test::Blog::Schema->connect("dbi:SQLite:$master"); # set slave data sources. $schema->slave_connections( ["dbi:SQLite:$slave_1"], ["dbi:SQLite:$slave_2"], ); # do something in slave connection. $schema->slave->resultset('Entry')->find(1); DBIx::Classでス
Catalyst-Manual-5.9013
Catalyst Contributors, see Catalyst.pm Kieren Diment Kennedy Clark Tomas Doran Graham Knop Jonathan Rockway Jesse Sheidlower Brian Cassidy Caleb Cushing Dan Dascalescu Rafael Kitover Jason Felds Frederik Schwarzer Jonathan Yu Breno G. de Oliveira Lars Dɪᴇᴄᴋᴏᴡ 迪拉斯 Matt S Trout Florian Ragwitz Jess Robinson Matthew Horsfall Andrew Rodland Artem Konev Eden Cardim Justin Hunter Ricardo Signes Robert '
guro_chanの日記 » CPANモジュールのインストールに於いてすべてのプロンプトに自動でyes若しくはデフォルト設定で応答したい
CPANモジュールのインストール時にでてくる対話形式のプロンプトに対してすべて自動でyesで答えたいとおもった。もじゃもじゃしたperl使いのせんぱいにapt-getのオプションにある–assume-yesのようなものは無いですかと尋ねたら無いといわれたので足がつった。その拍子にyesコマンドの出力をパイプで送れば良いことに気が付いた。つまり # yes | perl -MCPAN -e 'install MODULE_NAME' こうである。しかしこの方法だとデフォルト値がNoの質問に対してもy(yes)で答えることになる。とりあえずインストールできれば良い自分としては、そういったアグレッシブな選択は身を滅ぼす可能性があるので是非避けたい。全てデフォルトの値で応答するためにエンターキーを押した状態を送りまくる方法は無いかと探してみるとyesのオンラインマニュアルに % man yes 説
crawler.jp - さくらインターネットのサーバ上の自分のホームディレクトリにCPANのモジュールをインストールする
長いタイトルのエントリーですが、内容も無駄に長いっす。 いまさらですが、このブログはさくらインターネットのホスティングサービスを利用しているので、当然root権限などあるわけがなく、CPANのモジュールを利用したくてもインストールができません。 そこで、CPANシェルの設定を変更して、CPANモジュールを自分のホームディレクトリ配下にインストールするようにします。 それでは始めませう。 初期状態では、設定ファイルが定義されていないため、CPANシェルを初めて起動すると、いろいろ聞かれました。 %perl -MCPAN -e shell /home/xxxxxxxx/.cpan/CPAN/MyConfig.pm initialized. CPAN is the world-wide archive of perl resources. It consists of about 100 si
DBIx::Class::Manual::Cookbook
mst: Matt S Trout (project founder - original idea, architecture and implementation) castaway: Jess Robinson (lions share of the reference documentation and manuals) abraxxa: Alexander Hartmaier acca: Alexander Kuznetsov acme: Leon Brocard aherzog: Adam Herzog Alexander Keusch alexrj: Alessandro Ranellucci alnewkirk: Al Newkirk Altreus: Alastair McGowan-Douglas amiri: Amiri Barksdale amoore: Andre
初めてPerl触って思ったこととか - ずっと君のターン
Perl暦一週間。ホントにまったく何にも知らないのに一身上の都合で使うことになって、勉強してみたらいろいろ驚きというかなんというか・・・。なにかが根本的に間違ってるかもしれないけど、とりあえず触ってみて思ったこと。 関数定義 sub funcname { my($arg1, $arg2, $arg3) = @_; # do something } 関数定義に仮引数がなくて毎回こう書かないとだめみたいなんだけど、誰も文句言わないのこれ？ほんとに？ 単なるシンタックスシュガーでいいから sub funcname($arg1, $arg2, $arg3) { # do something } こう書かせてほしいんだけど。 コーディングなんてその大部分は関数定義なんだから、そういうところにはもう少し気を使ってくれてもいいと思う・・・。 プレフィックスと名前空間 変数の型に応じてプレフィックスつける
Cache::Memcached::Fastを試す : blog.nomadscafe.jp
Cache::Memcached::Fastを試す Perlの新しいmemcachedクライアント「Cache::Memcached::Fast」がでていたので試してみた 結論から言うと、これは使えそう。 まず、C::M::Fastはmemcached-1.2.4でサポートされた、append, prepend, cas, gets, gets_multiをサポートする唯一のPerlクライアントです。また、常に問題となるCache分散にKetama consistent hashing algorithmをサポートしているためCacheの組み替えを最小限にしてCacheサーバの追加が行えます。 手元のベンチマークでは50%〜80%、処理によりますが300%以上高速化されてます インストールは普通にCPANから行えます。ただし、memached-.1.2.4が動いていないとmake test
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
Percona Toolkit
http://209.85.175.104/search?q=cache:dBE16V9EWP4J:d.hatena.ne.jp/webdoraku/20061117/p2+PerlSwitches&hl=ja&ct=clnk&cd=1&gl=jp&lr=lang_ja&client=firefox-a
OSXでウェブサーバーを構築する :: MacBookとその周辺のアレなこと Lifetime Apples