Perl で簡単にパーザを書く - tokuhirom's blog
パーザを書こうという場合、Parse::RecDecsent のようなモジュールを使うのが一般的だが、Perl5 の正規表現は強力すぎるため、そんなものに頼らなくても超絶簡単にパーザを実装することが可能だ。 以下に、四則演算のパーザを示す。 use 5.018000; package Calc { use Carp (); sub parse { local $_ = $_[1]; _parse_expr(); } sub err { my ($msg) = @_; my $ret = join('', $_, "\n", (" " x pos()) . "^\n", $msg, "\n", ); Carp::croak $ret; } sub _parse_expr { my @nodes; until (/\G\s*\z/gc) { my $m = _parse_add() or do
Perlでコマンドラインモジュールを書くときのクラス設計 | おそらくはそれさえも平凡な日々
コマンドラインから引数が渡すようなモジュールでも以下のような要件があったりする。 コマンドラインからだけじゃなくて、コード内で直接オブジェクトをnewしたい場合もある 複数のコマンドラインツールを組み合わせて使うような場合に@ARGVを何度か渡すケースがある growthforecast.plみたいなサーバースクリプトだとよくあると思っていて、スクリプト単体で引数渡して起動できるけど、自分でGrowthForecast::Web->newしたくなることもある。これが前者。 growthforecast.plにPlackとGrowthForecastのオプションをコマンドラインから同時に渡したいみたいなのがある。これが後者。 GrowthForecastはあくまで例えです。念のため。 それに対しては以下のようにすればよいのかなーとなった。 parse_optionsというクラスメソッドで@A
Perlでハッシュをソートする方法のまとめ
Perlでハッシュをソートする方法をまとめました。 このエントリーはPerlビギナーの方向けの内容です。 １．問題点 次のようなハッシュを作り、出力してみました。 my %foo; $foo{Mon} = 10; $foo{Tue} = 200; $foo{Wed} = 30; $foo{Tur} = 1000; $foo{Fri} = 20; $foo{Sat} = 50; $foo{Sun} = 1; for my $key (keys %foo) { print "$key:$foo{$key}\n"; } 実行結果（例） Mon:10 Tue:200 Fri:20 Tur:1000 Wed:30 Sun:1 Sat:50 このハッシュについて、キーと値のそれぞれでソートして出力したいのですが、具体的な方法が分かりません。 ２．ハッシュのキーでソートする ハッシュのキーでソートするに
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
初めて Perl でコードを書く時に知っておきたかったこと - あらびき日記
