CGI/Perl を作成しています。 質問です。

リストファイルから、検索対象ファイルを読み取る
結果を表示する。

というようにしています。

結果表示で、たとえば、「答えてねっと」という語が、
「oshiete_goo.html」というファイルでヒットした場合、
結果を、
“　タイトル名 (oshiete_goo.html)　”

というように表示させています。そこで質問です。

この結果表示の、括弧内にファイル名を拡張子付きで表示させて
いるのですが、（パラメータ：$fi）
それを、拡張子をとって、「oshiete_goo」だけを表示したいのですが、
どのようにしたらいいでしょうか。

記述するスクリプトを教えて下さい。

No.1 回答者： faith_faithful 回答日時： 2003/12/13 00:19

$fi =~ s/(.*)\.(.*)$/$1/;

ではダメでしょうか。

この回答への補足

ご回答ありがとうございます。

その、ファイル名の拡張子を省いたモノを、
別の変数、$fi_sec に渡すようにするにはどうしたらいいでしょうか？

補足日時：2003/12/13 00:31

No.2 ベストアンサー 回答者： faith_faithful 回答日時： 2003/12/13 00:56

> ファイル名の拡張子を省いたモノを、

> 別の変数、$fi_sec に渡すようにするにはどうしたらいいでしょうか？

別の変数に渡す必要があるのですか？
$fi =~ s/(.*)\.(.*)$/$1/;
で、既に$fiはファイル名の拡張子が省かれて、ファイル名だけになっていますが・・・。
だから、普通に$fiを使ってもいいですし、変数名を変えたいなら、
$fi_sec = $fi;
でいいですよ。
拡張子がついたままの変数も後で使いたいので残す、というのであれば、
$fi_sec = $fi;
$fi_sec =~ s/(.*)\.(.*)$/$1/;
とするのがいいでしょうね。
$fiが拡張子を含めたファイル名、
$fi_secが拡張子を除いたファイル名のみのもの、
ということになります。

No.3 回答者： daibutsuda 回答日時： 2003/12/13 01:23

$fiを非破壊で、と言うことですよね。

だったら、m演算子と配列マッピングを使って

($fi_sec) = m/^([^\.]*)\..*$/;

とかくのが綺麗かもしれません。
あと、正規表現を使うとマッチしなかった場合ヌル値が帰ってきてしまいますので、

$fi_sec = $fi if ($fi_sec eq "");

をあとにつけておいたほうがいいかもしれません。

No.4 回答者： daibutsuda 回答日時： 2003/12/13 01:52

＃３です。

すみません、＃３で書いたのは文字列が$_に入っている場合でした。$fiに入っている場合であれば：

($fi_sec) = ($fi =~ m/^([^\.]*)\..*$/);

と書けます。

No.5 回答者： leaz024 回答日時： 2003/12/13 10:14

こんな書き方もできます。

($fi_sec = $fi) =~ s/\..+$//;