Perlで書く  RSSを登録する

Perlに関するTipsや関数の使い方を紹介します。

最新号をメルマガでお届けします    
登録 解除

規約に同意して

登録した方には、まぐまぐの公式メルマガ(無料)をお届けします。
2009/02/15

Perlで書く 2009.02.15 Vol.228

=====================================================================
Perlで書く 2009.02.15 Vol.228
[WAZA]ファイルを一文字列として読み込む
http://www2u.biglobe.ne.jp/~MAS/perl/
=====================================================================
●ファイルを一文字列として読み込む

 File::SlurpモジュールやPath::Classモジュールを使うと簡単です。
 モジュールを使わない方法としては、特殊変数$/にundefを設定する方法が
簡単です。この場合、そのまま$/を変更するとプログラム全体に影響を及ぼす
のでlocalで影響範囲を限定した方が良いです。

---------------------------------------------------------------------
use strict;
use warnings;
use File::Slurp;

my $filename = '/home/user1/data.txt';

my $text = File::Slurp::read_file($filename);
print $text;
---------------------------------------------------------------------
use strict;
use warnings;
use Path::Class;

my $filename = '/home/user1/data.txt';

my $text = Path::Class::file($filename)->slurp;
print $text;
---------------------------------------------------------------------
use strict;
use warnings;

my $filename = '/home/user1/data.txt';

open my $fh, '<', $filename or die $!;
my $doc;
{
    local $/ = undef;
    $doc = <$fh>;
}
print $doc;
---------------------------------------------------------------------
use strict;
use warnings;

my $filename = '/home/user1/data.txt';

open my $fh, '<', $filename or die $!;
my $doc = do { local $/ = undef; <$fh>; };
print $doc;
---------------------------------------------------------------------

●関連項目

・空行を区切り文字として読み込む
  http://www2u.biglobe.ne.jp/~MAS/perl/waza/feline.html

=====================================================================
■雑記

 モダンPerl入門の一部がPDFで公開されました(*1)。第6章「テストの薦め」
の一部と第9章「押さえておきたいPerlの基礎」の一部を読むことができます。

*1 http://codezine.jp/article/detail/3563

=====================================================================
Perlで書く(マガジンID:0000109251) 配信数:850
発行者:MAS
本メールマガジンに関するご意見・お問い合わせは
t-masuda@mvd.biglobe.ne.jp までお寄せ下さい。

解除 http://www2u.biglobe.ne.jp/~MAS/perl/magazine.html
検索 http://www2u.biglobe.ne.jp/~MAS/perl/search/index.html
バックナンバー http://archive.mag2.com/0000109251/index.html
RSS  http://archive.mag2.com/0000109251/rss10.xml

本メールマガジンは「まぐまぐ」 http://www.mag2.com/ を利用して発行
しています。
=====================================================================
最新号をメルマガでお届け
登録 解除

規約に同意して

登録した方には、まぐまぐの公式メルマガ(無料)をお届けします。

最近の記事

上へ戻る