初めてのPerl 第7版

205

11.3　単純なモジュールを使う

も解説しています。また、

perlfaq8

ドキュメントのエントリを読むとよいでしょう。

11.3

 単純なモジュールを使う

プログラムの中で、

/usr/local/bin/perl

のような長いファイル名から、ディレクトリ部分を取

り除いたベース名（

basename

）を取り出すことを考えてみましょう。これはとても簡単です。な

ぜなら最後のスラッシュの後ろすべてがベース名だからです（このケースでは「

perl

」になりま

す ）。

my $name = "/usr/local/bin/perl";

(my $basename = $name) =~ s#.*/##;

以前に説明したように、まず最初に

Perl

はカッコ内の代入を行ってから、次に置換を実行しま

す。この置換は、スラッシュで終わる文字列（つまりディレクトリ名の部分）を空文字列に置き換

えるので、ベース名だけが残るはずです。置換演算子に

/r

スイッチを指定して、次のようにする

こともできます。

use v5.14;

my $name = "/usr/local/bin/perl";

my $basename = $name =~ s#.*/##r;

これらのコードを実行すると、一見ちゃんと動作しているように見えます。ええ、動作している

ように見えますが、実は問題が

3

つあります。

まず第

1

に、

Unix

のファイル名やディレクトリ名は改行文字を含む可能性があるということで

す（そんな名前を付けることはまずないと思えますが、とにかく許されているのです） ...