ファイルハンドルをめぐる冒険（ただしマニア向け） - daily dayflower
以下は Perl 5.8.8 のソースを元に記述しました。Perl 5.10 でもそう変わってはいないと思いますが，結構内部が変更されているので違うかもしれません。大まかには同じだと思います。 イントロダクション Perl でのファイルハンドルは内部的には [http://search.cpan.org/perldoc?IO::Handle:title=IO::Handle] オブジェクトとして保持されています。そのような記述は perl5004delta くらいでしか見つかりませんでした。ラクダ本にもなかったような。 Internal change: FileHandle class based on IO::* classes File handles are now stored internally as type IO::Handle. The FileHandle module
File::Find::Rule
NAME File::Find::Rule - Alternative interface to File::Find SYNOPSIS use File::Find::Rule; # find all the subdirectories of a given directory my @subdirs = File::Find::Rule->directory->in( $directory ); # find all the .pm files in @INC my @files = File::Find::Rule->file() ->name( '*.pm' ) ->in( @INC ); # as above, but without method chaining my $rule = File::Find::Rule->new; $rule->file; $rule->na
404 Blog Not Found:perl - In-Memory File
2006年11月08日04:30 カテゴリLightweight Languages perl - In-Memory File Perl 5.8以降では、このような場合にin-memory fileが使えます。 【続】やはり Perl はメモリ喰いな言語。データ型の内部構造 :: Drk7jp ＤＢ上の全レコードをいったん perl 側の配列に格納して、その結果を返す。ってコードなのですが、当然ながらレコード数が多くなればメモリを食うのは当たり前なのですが、以前の記事の内容を完全に忘却してました。ここには落とし穴があるのです。使い方は、簡単です。 my @array = (0x21..0x7e); my $memfile; open my $wfh, '>', \$memfile or die $!; print $wfh chr($_), "\n" for (@array); clos
ファイルパスから正規表現で色々と取り出す方法＠のぶろぐ
ファイルのコピーでも使ったけど、正規表現で何かを取り出したいときに使いやすいコード。 (my $to_dir = $to) =~ s|([^/]*?)$||; 例の場合は、ファイルパスからディレクトリ名を取り出す。 この場合$toは変更されない。 $toの中身が$to_dirにコピーされて、$to_dirに対して置換が実施される。 ２行に分けて書いても同じだが、１行で書けるのが便利。 my $to_dir = $to; $to_dir =~ s|([^/]*?)$||; 置換の内容は、一番右の「/（スラッシュ）」よりも右側を、空文字列に置き換える（平たく言うと、削除する）。 他にも、ファイル名だけを取り出してみたり、 (my $filename = $path) =~ s|^.*/||; 拡張子（ファイル名のピリオド以降）を取り出してみたり、 (my $ext = $path) =~
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
ディレクトリを見る＠のぶろぐ
ファイルに書き出す＠のぶろぐ
