http://back-paper.labs.mfac.jp/show?paper_rid=OEF9g0a6g8 これをみて、globとか久々にみたのですが、 指定ディレクトリ以下のファイルを操作する場合はFile::DirWalkがお勧めです。 #! /usr/bin/perl use strict; use warnings; use File::DirWalk; use Path::Class qw/file/; my $dir = shift or die "usage : $0 <dir>\n"; my $dw = File::DirWalk->new; $dw->onFile(sub { my ($name) = @_; my $file = file($name); my $fh = $file->openr(); while (<$fh>) { print "$_"; }
以前、id:naoyaさんのd:id:naoya:20061006:1160134639にて「HTML::TreeBuilder + CSSセレクタがいい感じな件」ってエントリがあったんですが、まさにそのコンボとなるモジュールがリリースされてました。 HTML::TreeBuilder::Select 例えばtext-vimcolorの出力の中でsynIdentifier扱いされるブロックで変数と思しき物だけvar要素に置換して、出力するなら下記みたいなソースになる。 #!/usr/bin/perl use strict; use warnings; use HTML::TreeBuilder::Select; my $html; read(STDIN, $html, -s *STDIN); my $tree = HTML::TreeBuilder::Select->new; $tree-
CPAN shellはカラー表示ができる。 モジュールを入れるときにエラーを見つけるのがわかりやすくなるので使ってる。 Plagger入れるときとかにべーんり。 Term::ANSIColorを入れる。これが入っていると、CPANシェルの起動時にカラー対応になる。 cpan[1]> install Term::ANSIColorで cpan[2]> o conf colorize_output 1 CPAN: Term::ANSIColor loaded ok colorize_output [1]これで色が有効になる。 ターミナルが白背景の場合はここまででOK。 ターミナルが黒背景の場合だと、反転表示になってしまうので、もうちょい設定 cpan[3]> o conf colorize_print 'bold cyan on_black' colorize_print [bold cyan
NAME MIME::Lite::TT::Japanese - MIME::Lite::TT with Japanese character code SYNOPSIS use MIME::Lite::TT::Japanese; my $msg = MIME::Lite::TT::Japanese->new( From => 'me@myhost.com', To => 'you@yourhost.com', Subject => 'Hi', Template => \$template, TmplParams => \%params, TmplOptions => \%options, Icode => 'sjis', LineWidth => 72, ); $msg->send(); DESCRIPTION MIME::Lite::TT::Japanese is subclass of
名前¶ File::Slurp - ファイル全体の効率的な読込/書込 概要¶ use File::Slurp; my $text = read_file( 'filename' ) ; my @lines = read_file( 'filename' ) ; write_file( 'filename', @lines ) ; 説明¶ このモジュールは1つの簡単な呼び出しによりファイル全体を読み込み、 書き込みを可能にするサブルーチンを提供します。これらは簡単に使え、 柔軟な方法でファイルの内容を渡したり、取得できるように、そして 非常に効率よくなるように設計されています。またディレクトリに 入っている. と ..を除く全てのファイルを読み込むサブルーチンも 提供します。 これらの丸呑み/吐き出しサブルーチンはファイルにのみ機能し、パイプや標準入出力には 機能しないことに注意してください
NAME MIME::Lite - low-calorie MIME generator WAIT! MIME::Lite is not recommended by its current maintainer. There are a number of alternatives, like Email::MIME or MIME::Entity and Email::Sender, which you should probably use instead. MIME::Lite continues to accrue weird bug reports, and it is not receiving a large amount of refactoring due to the availability of better alternatives. Please consid
こんにちは。TypePad Engineer の重田です。 今年も YAPC::Asia Tokyo の季節がやってきました。今回も豪華メンバが参加するのでとても楽しみですね。 さて今回はYAPCにちなんでPerlモジュールの作成方法をご紹介します。 準備 Perl プログラマのバイブルである Perl Best Practices の Chapter17: Modules の Refactoring の冒頭で Damian Conway が言っています。 Place original code inline. Place duplicated code in a subroutine. Place duplicated subroutines in a module. さあ皆さんもそろそろ車輪の再発明に別れを告げてモジュール作りをはじめてみませんか? h2xs 少し前の書籍などでは h2
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
NAME MP3::Info - Manipulate / fetch info from MP3 audio files SYNOPSIS #!perl -w use MP3::Info; my $file = 'Pearls_Before_Swine.mp3'; set_mp3tag($file, 'Pearls Before Swine', q"77's", 'Sticks and Stones', '1990', q"(c) 1990 77's LTD.", 'rock & roll'); my $tag = get_mp3tag($file) or die "No TAG info"; $tag->{GENRE} = 'rock'; set_mp3tag($file, $tag); my $info = get_mp3info($file); printf "$file leng
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く