2013年02月27日20:45 カテゴリTipsLightweight Languages perl - soloで任意のコマンドを期限付きで排他実行する Perl Cookbook (English, Kindle Ed.) Christiansen / Torkington [邦訳: Perlクックブック] solo という名前の perl script を、App::solo という名でリリースしました。 dankogai's p5-app-solo at master - GitHub プロセス間の期限付き排他ロック - (ひ)メモ プロセス間の排他的実行を制御したい 一定時間経過したら実行できるようにしたい これに対する別解答です。 以下、PODの抄訳。 NAME solo - run only one process up to given timeout. SYNOPSIS

2012年11月24日08:45 カテゴリTipsLightweight Languages Perl & JavaScript - 万能配列操作関数spliceを覚えておこう Perl Cookbook (English) Christiansen / Torkington [邦訳: Perlクックブック] 風邪が全然抜けない…リハビリしなきゃ… 2012/11/23:リストを任意件数ごとにぬるぬる処理する用のモジュール書いた - bayashi.net 鉈でひげ剃り感があるのは、こうも書けるからかな。 use 5.012; sub fizzbuzz { my @fizzbuzz; push @fizzbuzz, ('Fizz')[$_%3] . ('Buzz')[$_%5] || $_ for @_; @fizzbuzz; }; my @hundred = (1..100); whil

2012年10月18日04:30 カテゴリLightweight LanguagesTips perl - の@INCを実行寸前に変更する Perl Cookbook (English) Christiansen / Torkington [邦訳: Perlクックブック] えーっ perlbrewなperlで共通のパスを@INCに入れたい、もしくはperl実行時にごにょごにょしたい話 - (ひ)メモ perlbrewでsitecustomizeを有効にしてビルドするには perlbrew install --notest 5.16.1 \ --sitecustomize \ /usr/oreno/etc/perl/sitecustomize.pl とします そんな親友を助けるためだけに契約するようなことをしなくても、全ての@INCをプロセスが生まれる前に上書きできますよ。 -Iさえあれば。

2012年01月04日21:00 カテゴリLightweight Languages algorithm - mapBetween - 配列の隣接する2項にそれぞれ演算を施した配列 言語を増やしたかったのと、そういう関数に名前を付けたかったのとで1 entry割くことにしました。 等差数列 - タイトル 配列の隣接する2項にそれぞれ演算を施した配列を得たい。つまり、 f (+) [1,2,3,4,5] = [3,5,7,9] のような f が欲しい。 名前 もちろん等差数列を作るのにもこの関数は使えるのですが、この一般的に使える関数に使う名前としてはあまりに局所的。というわけで mapBetween としてみました。使いどころはかなり多そうです。各言語に標準装備されていないのがちょっと不思議なほど。 JavaScriptによる実装 Array.prototype.mapで滅多に使われない第

2011年08月13日21:00 カテゴリLightweight Languages perl - ニコニコ動画ダウンローダー新認証対応版 初出2007.08.26; 追記2011.08.13 この仕様変更の影響は、ニコニコ動画ダウンローダーにも及びます。というわけで改訂版。 パスワード変更のお知らせ【更新 20:31】 - ニコニコ動画 開発者ブログ（新着情報） 以前プレミアムパスを設定していなかった、または設定したが忘れてしまった方はログインフォームの下にある【パスワードを忘れた】から新しいパスワードを設定してください。 とはいっても、変更する必要があったのはわずか一カ所、認証用のURIだけでしたが。 #!/usr/bin/env perl # # $Id: nicoget.pl,v 0.3 2011/08/13 12:12:02 dankogai Exp dankogai $ # o

2011年07月17日22:00 カテゴリLightweight LanguagesTips perl - @_をコピーするコスト Perl Best Practices Damian Conway [邦訳:Perlベストプラクティス] これ、やけに差がないと思いきや… Perlで重複した要素をユニークにする - ichirin2501の日記 ふと、どのコードが速いのか気になったのでベンチマークを取ってみました。 id:ichirin2501のコードのどこに問題があるかは、以下のベンチマークを走らせてみればわかります。 #!/usr/bin/env perl use 5.012; use Benchmark qw/:all/; sub uniq_copy { my @array = @_; my %hash; @hash{@array} = (); return keys %hash; }

2011年01月03日06:00 カテゴリLightweight Languages perl - 短縮URLを一行で展開する Perlですから。 Schwarze SQ: 短縮URLを展開するRubyスクリプトを作ってみた なにやら短縮URLを使い、不正なサイトにアクセスさせウィルスに感染させる行為が流行っているらしい(まぁ想定の範囲内だが)。そこで、短縮URLを展開できるrubyスクリプトをちょちょっと作ってみた。perl -MLWP::UserAgent -lE \ 'say LWP::UserAgent->new->head(shift)->request->uri' \ http://j.mp/dankogai id:amachangが昔こさえてくれたこの短縮URLもhttp://blog.livedoor.jp/dankogai/と展開されるはずです。 もう少しverboseに

サキとは彼女の自宅近く、湘南台駅前のスーパーマーケットで待ち合わせをした。彼女は自転車で後から追いつくと言い、僕は大きなコインパーキングへ車を停めた。煙草を一本吸ってからスーパーマーケットへ向かうと、ひっきりなしに主婦的な女性かおばあちゃんが入り口を出たり入ったりしていた。時刻は午後5時になる。時計から目を上げると、待たせちゃったわねと大して悪びれてない様子でサキが手ぶらでやってきた。 お礼に料理を作るとはいえ、サキの家には食材が十分足りていないらしく、こうしてスーパーマーケットに寄ることになった。サキは野菜コーナーから精肉コーナーまで、まるで優秀なカーナビに導かれるように無駄なく点検していった。欲しい食材があると、2秒間程度それらを凝視し、一度手に取ったじゃがいもやら豚肉やらを迷うことなく僕が持っているカゴに放り込んだ。最後にアルコール飲料が冷やされている棚の前へ行くと、私が飲むからとチ

2010年08月26日17:00 カテゴリLightweight Languages perl,bf,ruby,etc - の真実でなくてfact(orial) まずは添削から。 本当にLispはカッコが多い？ - 八発白中 それぞれの言語のプログラムを、以下のPerlワンライナーを使ってカッコを数えました。 perl -e '$_=join//,@ARGV;print s/[(){}]//g||0' `cat filename` catいらないよね。 % cat fact.scm #!/usr/local/bin/gosh (use srfi-1) (define (fact n) (if (zero? n) 1 (* n (fact (- n 1))))) (define (main args) (for-each (lambda (i) (print i "! = " (fact i

2009年02月10日01:00 カテゴリLightweight Languages perl - open my $fh, "comand |"; # はモダンじゃない モダンPerl入門 牧大輔 「モダンPerl入門」発売記念ということで、同書を補足するentryを。 同書でちょっと残念だったのが、[5.2 外部コマンドの実行]。あまりモダンではないのだ。 P. 141 system("/sbin/wget", "http://example.com"); これはいいのだが、以下がちょっとまずい。 my $output = `/bin/ls tmp`; open(my $fh, '| cat -v'); これ、何がまずいか、というと、コマンド実行の際に/bin/shを使ってしまうのだ。そのおかげでcommand < from > to 2&>1のようなリダイレクトも使えるなどの利点もあ

2008年06月03日06:00 カテゴリLightweight Languages perl -　勝手に添削 - Perl入門#1@ITPro さすがに出典が日経Linux 2003年7月号だけあって、少しトウがたってはいるけど、現在でもわずかな修正で使える記事。さすが川合さんといったところか。 第1回　Perlの文法の基本：ITpro というわけで、この記事の「現代化」Patchを。 全般 use strict;だけではなくuse warnings;も加えましょう。 さらに，調べても分からないことがあれば，メーリング・リストやユーザー・グループ＊2に質問してみてもよいでしょう。 blogに書くのもアリです。あと私は使っていないけどIRCとか。 ビルトイン関数は()でくくらない方が視認性が上がります。 before: chomp($sLine); after: chomp $sLine;

2008年05月26日02:30 カテゴリ一日一行野郎Tips perl - tac を一行で それってone-linerで。 [を] さくらのレンタルサーバに tac コマンドを入れる UNIX 系のコマンドで、tac というのがすごく便利なのです。 これはファイルを先頭から表示する cat というコマンドの逆で、 ファイルを行単位でひっくり返して末尾から表示してくれるのです。% perl -e 'print reverse <>' ただし、このやり方は一端メモリーに全ファイルを読み込むので非効率といえば非効率。以下のようにすればもう少し効率的になりますか。 #!/usr/local/bin/perl use strict; use warnings; @ARGV or die "$0 [files...]"; for my $filename ( reverse @ARGV ) { o

2008年05月31日00:30 カテゴリLightweight Languages perl - glob,readdir, and regexp なかなか良い仕事をしてくれているid:perlcodesampleだが、今回のこのタイトルはどうかと思う。 カレントディレクトリのファイル一覧を取得する。　glob - サンプルコードによる Perl 入門 というのも、glob()で得られるのはカレントディレクトリのファイル一覧とは限らないし、何よりファイル一覧を取るにはreaddir()という関数が別に存在するからだ。 例えば、以下のようにした場合、得られるのはカレントディレクトリではなくルートディレクトリにあるファイル一覧だ。 [codepad] print "$_\n" for </*> glob("*")または<*>は、以下とほぼ等価である。 [codepad] my @files

2008年03月30日19:45 カテゴリLightweight Languages一日一行野郎 perl - ワンライナーの書き方入門 まあ、ruby のコマンドラインオプションって、Perl由来ですから。 Rubyでワンライナーを書く方法のまとめ まぁ、Perlもあるしあんまり需要が無いのかも知れませんが。 というわけで、Rubyistにも役立つPerlのワンライナー入門です。 基本中の基本 コマンドとしてのperlは、スイッチがない場合、引数はスクリプト名として扱われます。 % cat hello.pl print "Hello, world!\n"; % perl hello.pl Hello, world! % コマンドライン中の文字列をスクリプトとして解釈させるには、-eを使います。 % perl -e 'print "Hello, World!\n"' Hello, worl

2006年09月30日23:30 カテゴリLightweight Languages perl - GDで文字列を画像に 野暮用があったのでこさえました。 GD.pmを使ってプログラムするのは久しぶり。 [追記:機能強化しました]これまた車輪の再発明っぽいのですが、気に入ったのがなかったので。 いわずもがなですが、鯖にアクセスできる人はなるべく自分のところでこのCGIを動かして下さい。ソースは例によってご自由にお持ち帰りいただいて結構なので。 そうそう。もちろん日本語も通ります(もちろんフォントが日本語をサポートしている場合には)。 Font: Size: Antialiased? Foreground Color:# Background Color:# Transparent Padding:px GDはTrueTypeサポート付きでインストールする必要があり、またTrueTypeフォ

2007年01月18日08:00 カテゴリLightweight Languages perl - pargs = xargsモドキ GNUじゃなけりゃ 作ってしまえ xargs. 技術メモ帳 - xargsコマンドを使って指定したコマンドを並列実行させる あまり知られていないが、GNUのxargsコマンドには、 プロセスの最大数を設定できるオプションというのが用意されている。 コレを使って、プロセスを並列実行させてみよう。 OS Xのxargs(1)はgnu版じゃないんだよね。 というわけでperlで即興で作ったのがこちら。 pargs #!/usr/local/bin/perl use strict; use warnings; use Getopt::Std; use POSIX ":sys_wait_h"; our $PPID = $$; our %Opt; getopts "P:

2008年02月24日22:45 カテゴリLightweight Languages perl - the best friend of find(1) find(1)ネタというのも、定期的にネットを賑やかにする時候ネタになりつつあるようです。 いまさらxargsの便利さを主張してみる findでファイル検索入門 - builder by ZDNet Japan というわけで、いまさらfindとperlの相性のよさを再確認してみることにしてみます。 基本形 まずは、これを覚えておきましょう。 find [options and args of find] -print0 | perl -l0ne 'perl program' findが見つけたファイルを一つ見つけると、perlの$_にそのファイル名が入るのでそれに対して何らかの処理を行います。 perl側の-l0neというのは、以下と同等